Форум программистов, компьютерный форум, киберфорум
Наши страницы

Странная проблема при преобразовании Pascal в C++. Гуру С++, нужна ваша помощь - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить, сколько шаров потребуется для строительства пирамиды из N слоев http://www.cyberforum.ru/cpp-beginners/thread526727.html
№1 Представим себе пирамиду из шаров, основание которой представляет собой квадрат со стороной, состоящей из N шаров. Следующий слой состоит из шаров, лежащих в углублениях нижнего уровня, т.е....
C++ Eclipse - ошибка No Java virtual machine was found Здравствуйте. Скачал Eclipse для программирования на языке C++, у меня Win7 64 скачал, распаковал, запускать начал и выдает ошибку A Java Runtime Environment (JRE) or Java Development Kit (JDK)... http://www.cyberforum.ru/cpp-beginners/thread526718.html
C++ Нахождение суммы большего и меньшего из 3 чисел (помочь найти ошибку)
#include <iostream.h> #include <math.h> int MAX(int,int); int MIN(int,int); int a,b,c,d,e,f void main() {cout>>"Vvedite tri chisla"; cin>>a>>b>>c; d=MAX(MAX(a,b),c); e=MIN(MIN(a,b),c);
C++ Запись/чтение из файла. Записать в файл пары чисел [x ,y] .
Нужно записать в файл пары чисел а потом прочитать информацию из файла и вывести на экран С записью всё получилось а вот с чтение ничего. Вообще ничего не выводит. #include "stdafx.h" #include...
C++ Media либа С++ http://www.cyberforum.ru/cpp-beginners/thread526685.html
Привет! Хочу научиться работать с медийными файлами (mp3, avi). Какую либу вы мне порекомендуете поюзать для этого? Есть ли в винде встроенные средства для этого? Заранее благодарю! P.S. И если не...
C++ Задача на количество перестановок На вход подаем число предметов, которые человек берет с разных мест. На выход должно выдать число - количество способов вернуть каждое из этих предметов так, чтобы ни один из предметов не попал на... подробнее

Показать сообщение отдельно
ikari81
3 / 3 / 1
Регистрация: 17.05.2011
Сообщений: 224

Странная проблема при преобразовании Pascal в C++. Гуру С++, нужна ваша помощь - C++

24.03.2012, 08:15. Просмотров 1070. Ответов 17
Метки (Все метки)

Нужно было переписать паскаль в с++. Переписал, но программы работают по разному, понять ничего не могу. То ли ключевую процедуру неправильно переписал, то ли в с++ генератор случайных чисел работает по другому.
Паскаль:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
program montekarlo;
uses Windows, Crt;
const
  N = 5; { Количество компьютеров}
  L = 2; { Количество каналов связи}
  T = 10.0;
  Dt = 0.001;  {вероятность того, что на очередном шаге компьютер будет подключаться/отключаться}
  U = 2.575;
 
  TEST_COUNT = 10;    {количество испытаний}
 
var
  aOnlineTime: array [1 .. N] of Real;    {mu(i) - время работы}
  aConnectCount: array [1 .. N] of Real;  {Lambda(i) - интенсивности подключений}
  aCountBlock,    {количество отказов}
   aCountConnect: array [1 .. TEST_COUNT] of Integer;   {количество попыток подключиться}
  aState: array [1 .. N] of Integer; {aState[i] = "0" - значит i-й компьютер не в сети  }
  C: Real;
  SummConnectCount, SummBlockCount: Integer;
  p,        {Вероятность отказа при подключении}
  Ga, Gb: Real;  {Доверительный интервал: [Ga..Gb]}
 
 
{процедура запуска одного шага в эксперименте по методу Монте-Карло}
procedure Step(var CountConnect, CountBlock: Integer);
var
  i, j: Integer;
  CountComputerOnline: Integer;
  X: real;
begin
  for i := 1 to N do
  begin
    CountComputerOnline := 0;
    X := (Random);  {Генерируем случайное число [0 ; 1]}
    if aState[i] = 0 then { Если компьютер не в сети}
    begin
      if (X <= (aConnectCount[i] * Dt)) then  {Проверяем, будет ли он подключаться}
      begin
        Inc(CountConnect); { Пытается подключиться}
 
        for j := 1 to N do  {Смотрим сколько компьютеров  у нас уже подключены}
          if aState[j] = 1 then Inc(CountComputerOnline);  {Считаем их количество}
 
        if CountComputerOnline < L then {Если у нас есть свободный канал}
          aState[i] := 1  {То подключаем компьютер к сети}
        else  Inc(CountBlock);  {Иначе увеличиваем счетчик отказов}
      end;
    end
    else  {Иначе если компьютер в сети}
      if X <= aOnlineTime[I] * Dt then  {Проверяем будет ли он отключаться}
      aState[i] := 0;  {Если будет, то отключаем его}
  end;
end;
 
var {Переменные для считывания исходных данных из файла}
  Column: Integer;   {Количество элементов в столбце}
  Value, Summ_Value: Real; {Значение считываемой переменной и сумма этих переменных}
  i,j: Integer;
  IOFile: TextFile;    {Переменная для работы с файлом}
 
{Главное тело программы}
BEGIN
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
  Randomize; {Подготовка к работе со случайными числами}
{Вводим исходные данные. Предполагается, что число абонентов N=5 - постоянное}
Assign(IOFile, 'd:\1\Data.txt');  {Присваиваем переменной Input ссылку на конкретный файл}
Reset(IOFile);   {Открываем файл для чтения}
 
Readln(IOFile, Column);  {Считываем первое значение - количество столбцов}
  for i := 1 to N do
  begin
    Summ_Value := 0;  {обнуляем сумму}
    for j := 1 to Column do
    begin
      Read(IOFile, Value); {Считывание времени работы по каждому компьютеру}
      Summ_Value := Summ_Value + Value; {и сразу суммируется общее время}
    end;
    aOnlineTime[i] := Column * 24 / Summ_Value; {вычисляется mu(i) - время работы}
  end;
 
 
  Readln(IOFile, Column); {Считываем количество столбцов во второй таблице}
  for i := 1 to N do
  begin
    Summ_Value := 0;
    for j := 1 to Column do
    begin
      Read(IOFile, Value); {Считывание количество подключений по каждому компьютеру}
      Summ_Value := Summ_Value + Value;  {и сразу суммируется}
    end;
    aConnectCount[i] := Summ_Value / Column;  {вычисляется Lambda(i) - интенсивности подключений}
  end;
 
  Close(IOFile);  {Закрываем файл}
 
 
  SummConnectCount := 0;   {обнуляем сумму попыток подключиться и }
  SummBlockCount := 0;     {сумму отказов в подключении}
 
  for i := 1 to TEST_COUNT do  //Проводим эксперимент в количестве TEST_COUNT=10 попыток
  begin
     C := Dt;
     while C < T do //выполняем шаги эксперимента
     begin
        Step(aCountConnect[i], aCountBlock[i]);
        C := C + Dt;
     end;
  end;
 
 
  for i := 1 to TEST_COUNT do  {Считаем общее количество попыток подключений и отказов}
  begin
    Inc(SummConnectCount, aCountConnect[i]);
    Inc(SummBlockCount, aCountBlock[i]);
  end;
  p := real(SummBlockCount) / real(SummConnectCount); { Находим вероятность отказа}
  Ga := (p - U * Sqrt((p * (1 - p)) / SummConnectCount));
  Gb := (p + U * Sqrt((p * (1 - p)) / SummConnectCount));
 
 {Выводим результаты работы программы}
 Assign(IOFile, 'd:\1\Out.txt');  {Присваиваем переменной Input ссылку на конкретный файл}
  Rewrite(IOFile);   {Открываем файл для записи}
   Writeln(' Компьютер: | Интенсивности подключений: | Время работы:');
   Writeln(IOFile,' Компьютер: | Интенсивности подключений: | Время работы:');
  for i := 1 to N do begin
    Writeln('  ',i,'         | ', aConnectCount[i]:6:2, '                     |  ', aOnlineTime[i]:0:2);
     Writeln(IOFile,'  ',i,'         | ', aConnectCount[i]:6:2, '                     |  ', aOnlineTime[i]:0:2);
  end;
  Writeln;
 
  Write('Номер теста      ');
  Write(IOFile,'Номер теста      ');
  for i := 1 to TEST_COUNT do  begin
        Write(i:5);
        Write(IOFile,i:7);
  end;
  Writeln;   Writeln(IOFile);
  Write('Отказов          ');  Write(IOFile,'Отказов          ');
  for i := 1 to TEST_COUNT do  begin
        Write(aCountBlock[i]:5);
        Write(IOFile,aCountBlock[i]:5);
  end;
  Writeln;  Writeln(IOFile);
  Write('Попыток          ');  Write(IOFile, 'Попыток          ');
  for i := 1 to TEST_COUNT do  begin
       Write(aCountConnect[i]:5);
       Write(IOFile, aCountConnect[i]:5);
  end;
  Writeln;  Writeln(IOFile);
  Writeln('Вероятность отказа при подключении: ', p:0:3);
  Writeln(IOFile, 'Вероятность отказа при подключении: ', p:0:3);
  Writeln('Доверительный интервал: [', Ga:0:3, ' : ', Gb:0:3, ']');
  Writeln(IOFile, 'Доверительный интервал: [', Ga:0:3, ' : ', Gb:0:3, ']');
  Close(IOFile);
 
  Readln;
 
end. {Окончание работы программы}
Текст в С++:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
#include <windows.h>
#include <stdio.h>
#include <conio.h>
#include <time.h>
#include <math.h>
#include <iostream>
 
using namespace std;
 
#define N 5             //Количество абонентов
#define TEST_COUNT 10   //Количество испытаний
#define L 2             //Количество каналов
#define T 10.0          //Количество суток
#define U 2.575;
#define Dt 0.05         //вероятность того, что на очередном шаге компьютер будет подключаться/отключаться
 
float aOnlineTime[N]; // mu(i) - время работы
float aConnectCount[N];// Lambda(i) - интенсивности подключений
int aCountBlock[TEST_COUNT];//    {количество отказов}
int aCountConnect[TEST_COUNT];//   {количество попыток подключиться}
int aState[N];// {aState[i] = "0" - значит i-й компьютер не в сети  }
 
 
void ProcessStep (int & CountConnect, int & CountBlock )
    {
        for(int i=0;i<N;i++)
        {   
            int CountComputerOnline=0;
            float x=rand()/32767.0; 
            if (aState[i]==0) //Если компьютер не в сети
            {
                if  (x<=aConnectCount[i]*Dt) //Проверяем, будет ли он подключаться}
                {
                    CountConnect++;                                 //Пытается подключиться
                    for(int j=0;j<N;j++)
                        if (aState[j]==1) CountComputerOnline++; //Считаем количество компьютеров в работе
                    if (CountComputerOnline<L)                  //Если у нас есть свободный канал
                        aState[i]=1;                            //То подключаем компьютер к сети
                    else
                        CountBlock++;                       //Иначе увеличиваем счетчик отказов
                }
                else    //Иначе если компьютер в сети
                {
                    if (x<=(aOnlineTime[i]*Dt))                 //Проверяем будет ли он отключаться
                        aState[i]=0;                            //{Если будет, то отключаем его}
                }
            }
        }
    }
int main(int argc, char* argv[])
{
    srand(time(NULL));
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    FILE *F;
    F=fopen("data.txt","rt");
    int col=0;              //Количество столбцов
    fscanf(F,"%d",&col);    //Считываем количество столбцов
    cout<<"mu:"<<endl;
    for(int i=0;i<N;i++)
    {
        float sum=0;
        for(int j=0;j<col;j++)
        {
            float temp;
            fscanf(F,"%f",&temp);
            sum+=temp;
        }
        aOnlineTime[i]=((float)col*24)/sum; //{вычисляется mu(i) - время работы}
        cout<<aOnlineTime[i]<<" ";
        aState[i]=0;
    }
    cout<<endl;
    
    fscanf(F,"%d",&col);    //Считываем количество столбцов
    cout<<"lambda:"<<endl;
    for(int i=0;i<N;i++)
    {
        float sum=0;
        for(int j=0;j<col;j++)
        {
            float temp;
            fscanf(F,"%f",&temp);
            sum+=temp;
        }
        aConnectCount[i]=sum/(float)col;    //вычисляется Lambda(i) - интенсивности подключений
        cout<<aConnectCount[i]<<" ";
    }
    cout<<endl<<endl;
    fclose(F);
    
    float SummConnectCount=0;  //{обнуляем сумму попыток подключиться и }
    float SummBlockCount=0;     //{сумму отказов в подключении}
    
    for(int i=0;i<TEST_COUNT;i++)   //{Проводим эксперимент в количестве TEST_COUNT=10 попыток}
    {
        float C=Dt;
        while (C<T) //{выполняем шаги эксперимента}
        {   
            ProcessStep(aCountConnect[i], aCountBlock[i]);
            C+=Dt;
        }
    }
    
    for(int i=0;i<TEST_COUNT;i++)   //Считаем общее количество попыток подключений и отказов
    {
        SummConnectCount+=aCountConnect[i];
        SummBlockCount+=aCountBlock[i];
    }
    
    for(int i=0;i<TEST_COUNT;i++)
    {
        cout<<aCountBlock[i]<<" ";
    }
    cout<<endl;
    for(int i=0;i<TEST_COUNT;i++)
    {
        cout<<aCountConnect[i]<<" ";
    }
    cout<<endl;
        
    float p=SummBlockCount/SummConnectCount; //{ Находим вероятность отказа}    
    getch();
    
}
Я подозревал функцию ProcessStep, но вроде бы я ее в с++ правильно перевел.
Во вложении исходники и файл с начальными данными.
Компилировал в Dev-Pas и Dev-CC (VS2010)
0
Вложения
Тип файла: rar 1.rar (3.7 Кб, 8 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru