Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262

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

24.03.2012, 08:15. Показов 1759. Ответов 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)
Вложения
Тип файла: rar 1.rar (3.7 Кб, 9 просмотров)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.03.2012, 08:15
Ответы с готовыми решениями:

Нужна Помощь! Странная Проблема С Репликацией
Столкнулась со странной проблемой с репликацией под VPN. Запуск беграундной репликации выдает ошибку &quot;Replicator error. Remote...

Нужна ваша помощь при выборе внешнего жд.
Здравствуйте уважаемые форумчане! Очень нужна ваша помощь при выборе внешнего жд. Остановился на следующей моделе: WESTERN DIGITAL...

НУЖНА ВАША ПОМОЩЬ
Помогите пожалуйста. Есть задание - надо создать 2 таблицы и поставить связь между ними в Access, с этим справилась. связь многое ко...

17
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
24.03.2012, 09:33
Цитата Сообщение от ikari81 Посмотреть сообщение
то ли в с++ генератор случайных чисел работает по другому.
Вполне возможно. Нигде не сказано, что они должны работать одинаково.
Совет - протестируй генераторы на Си++ и Паскале. Просто посмотри, какие они числа выдают.
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 11:15  [ТС]
вот вывод random паскаля:

0.4404
0.8063
0.3203
0.8406
0.1911
0.4380
0.5395
0.2533
0.7513
0.1615
0.9021
0.3035
0.0396
0.4473
0.2584
0.0587
0.3952
0.2588
0.5024
0.3107
А вот rand()/32767.0
 
0.00360118
0.54973
0.500504
0.355052
0.748497
0.963958
0.829096
0.102878
0.962279
0.976196
0.755486
0.663045
0.578478
0.294229
0.131321
0.0550554
0.31431
0.93881
0.87759
0.0674764
0.65041
0.429548
0.0508438
0.183264
0.679403
0.363964
0.732322
Глаз уже замылился, не вижу где допустил ошибку
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 12:17
C++
1
void ProcessStep (int & CountConnect, int & CountBlock )
надо заменить на
C++
1
void ProcessStep (int *CountConnect, int *CountBlock )
и внутри функции везде писать
C++
1
(*CountConnect)
А вот когда передаёшь параметры туда, то передавать
C++
1
ProcessStep(&CountConnect,&CountBlock);
Вроде так, если память не обманывает =)
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 12:49  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
C++
1
void ProcessStep (int & CountConnect, int & CountBlock )
надо заменить на
C++
1
void ProcessStep (int *CountConnect, int *CountBlock )
и внутри функции везде писать
C++
1
(*CountConnect)
А вот когда передаёшь параметры туда, то передавать
C++
1
ProcessStep(&CountConnect,&CountBlock);
Вроде так, если память не обманывает =)
Я уже менял ссылки на указатели, результат идентичный.
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 12:54
считывание с файла вроде неверно происходит. Или мю и лямбда должны быть большими?
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 13:02  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
считывание с файла вроде неверно происходит. Или мю и лямбда должны быть большими?
Считывание проходит верно и в паскале и в си. Даже в экселе данные те же.
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 13:02
ща спецом скачал фри паскаль посмотреть разницу в си, я так понимаю, проблема, что обе строки одинаковые?
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 13:08  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
ща спецом скачал фри паскаль посмотреть разницу в си, я так понимаю, проблема, что обе строки одинаковые?
какие строки? З.Ы. Удобнее dev-pas,
http://www.bloodshed.net/devpascal.html

Добавлено через 2 минуты
вот правильный вывод в паскале:
Номер теста 1 2 3 4 5 6 7 8 9 10
Отказов 83 91 65 81 85 82 82 83 95 74
Попыток 297 320 276 288 278 309 307 292 326 286
0
go
Эксперт С++
3646 / 1378 / 243
Регистрация: 16.04.2009
Сообщений: 4,526
24.03.2012, 13:08
Цитата Сообщение от Nekto Посмотреть сообщение
надо заменить на
Зачем?
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 13:19
Цитата Сообщение от ikari81 Посмотреть сообщение
какие строки? З.Ы. Удобнее dev-pas,
http://www.bloodshed.net/devpascal.html

Добавлено через 2 минуты
вот правильный вывод в паскале:
Номер теста 1 2 3 4 5 6 7 8 9 10
Отказов 83 91 65 81 85 82 82 83 95 74
Попыток 297 320 276 288 278 309 307 292 326 286
а выдаёт
Code
1
2
3
4
5
6
7
mu:
34.0426 21.0896 22.493 13.4907 15.047
lambda:
5.25 7.66667 11.3333 9.41667 6.91667
 
285 302 308 293 293 325 286 301 303 304
287 302 308 293 293 325 286 301 303 304
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 13:21  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
а выдаёт
Code
1
2
3
4
5
6
7
mu:
34.0426 21.0896 22.493 13.4907 15.047
lambda:
5.25 7.66667 11.3333 9.41667 6.91667
 
285 302 308 293 293 325 286 301 303 304
287 302 308 293 293 325 286 301 303 304
Именно. Думаю что ключ в функции ProcessStep. Сравнивая ее с аналогичной в паскале видите ошибку?
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 13:48
кажется, что-то нашел
Pascal
1
2
3
     X: real;
...
 X := (Random);  {Генерируем случайное число [0 ; 1]}
а ты это превратил в генератор чисел 0 и 1
C++
1
        int x=rand()%2;
Добавлено через 5 минут
хм, посмотрел в шапку, а там чуть другой код О.о
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 13:51  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
кажется, что-то нашел
Pascal
1
2
3
     X: real;
...
 X := (Random);  {Генерируем случайное число [0 ; 1]}
а ты это превратил в генератор чисел 0 и 1
C++
1
        int x=rand()%2;
Добавлено через 5 минут
хм, посмотрел в шапку, а там чуть другой код О.о
Да, в шапку копировал из открытого редактора, а во вложении оказался несохраненный файл
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 14:02
мне кажется, или в коде паскаля не задаются начальные значения некоторых массивов? Т.е. оно от фонаря берётся.
0
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 14:07  [ТС]
Цитата Сообщение от Nekto Посмотреть сообщение
мне кажется, или в коде паскаля не задаются начальные значения некоторых массивов? Т.е. оно от фонаря берётся.
Не задается, но кажется фрипаскаль создаваемые структуры обнуляет, сейчас принудительно попробую обнулить.

Добавлено через 2 минуты
Инициализировал 0, ничего не изменилось.
0
347 / 292 / 37
Регистрация: 23.03.2012
Сообщений: 838
24.03.2012, 14:32
Цитата Сообщение от ikari81 Посмотреть сообщение
Не задается, но кажется фрипаскаль создаваемые структуры обнуляет, сейчас принудительно попробую обнулить.
Просто когда-то обжегся на этом в турбо паскале Программа работала через раз правильно

Добавлено через 21 минуту
C++
1
2
3
4
5
6
7
8
                                else    //Иначе если компьютер в сети
                                {
                                        if (x<=(aOnlineTime[i]*Dt))                             //Проверяем будет ли он отключаться
                                        aState[i]=0;                                                    //{Если будет, то отключаем его}
                                }
                        }
                }
        }
поменяй на
C++
1
2
3
4
5
6
7
8
                         }       else    //Иначе если компьютер в сети
                                {
                                        if (x<=(aOnlineTime[i]*Dt))                             //Проверяем будет ли он отключаться
                                        aState[i]=0;                                                    //{Если будет, то отключаем его}
                                }
                        
                }
        }
Добавлено через 1 минуту
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
#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.001        //âåðîÿòíîñòü òîãî, ÷òî íà î÷åðåäíîì øàãå êîìïüþòåð áóäåò ïîäêëþ÷àòüñÿ/îòêëþ÷àòüñÿ
 
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 = ((float)rand())/RAND_MAX; 
            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]=col*24.0/sum;    //{âû÷èñëÿåòñÿ mu(i) - âðåìÿ ðàáîòû}
        aState[i]=0;
        cout<<aOnlineTime[i]<<" ";
    }
    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*1.0/col;   //âû÷èñëÿåòñÿ Lambda(i) - èíòåíñèâíîñòè ïîäêëþ÷åíèé
        cout<<aConnectCount[i]<<" ";
    }
    cout<<endl<<endl;
    fclose(F);
    
    int SummConnectCount=0;  //{îáíóëÿåì ñóììó ïîïûòîê ïîäêëþ÷èòüñÿ è }
    int SummBlockCount=0;     //{ñóììó îòêàçîâ â ïîäêëþ÷åíèè}
    
    for(int i=0;i<TEST_COUNT;i++)   //{Ïðîâîäèì ýêñïåðèìåíò â êîëè÷åñòâå TEST_COUNT=10 ïîïûòîê}
    {
        aCountConnect[i]=0;
        aCountBlock[i]=0;
        for (float C=Dt;C<T;C+=Dt) //{âûïîëíÿåì øàãè ýêñïåðèìåíòà}
            ProcessStep(&aCountConnect[i], &aCountBlock[i]);
    }
    
    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();
    
}
так работает вроде
1
4 / 4 / 0
Регистрация: 17.05.2011
Сообщений: 262
24.03.2012, 14:55  [ТС]
вернул обратно передачу по ссылке и while, работает... Видимо дело в фигурных скобках было...

Добавлено через 7 минут
Нет, не в скобках

Добавлено через 3 минуты
В скобках, в их направлении.. накосячил..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.03.2012, 14:55
Помогаю со студенческими работами здесь

Нужна Ваша помощь
Никогда раньше не занимался продвижением ВЧ (очень жирного ВЧ) внутренней страницы сайта. В связи с этим вопрос. Судя по последним...

Нужна помощь ваша
Ребята через два дня экзамен помогите пожалуста решить задачи. 1.Составить программу на языке ASSEMBLER демонстрирующую применение...

нужна ваша помощь
в последний ап, яша заменил ревельвантность страницы по значемому для меня запросу и сразу загнал меня с 9 места на 35, подскажите что...

Нужна ваша помощь
Простите я тут первый раз!!!как закинуть пустой .txt файл на корневой каталог сайта?

Нужна Ваша помощь
Вообщем ситуация такая: есть провайдер который предоставляет безлимитные тарифы, но он режет скорость на закачку. Слышал, что существует...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru