[MotoArhangel]

Знакомый попросил написать программку.
Вот только не могу сообразить в чем дело:

Код:

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

program cex;   type // указываем как и что нужно писать в массив STROKA=record           // ограничиваем ввод 10 символами           Nazvanie:string[10];           rashod:integer;           end;   var i,j,Nceh,Nmes,SredSumm:integer;     // Двумерный масиив для всего     a:array[1..25, 1..3] of STROKA;     // Массив для даты     m:array[1..12] of Integer; const // Строка разделитель l='_________________________________________________'; begin      write('vvedite kolichestvo mesyachev= ');      readln(Nmes);      write('vvedite kolichestvo cehov= ');      readln(Nceh);    begin    for i :=1 to Nceh do {цикл для перебора всех строк}      for j :=1 to Nmes do {перебор всех элементов строки по столбцам}        begin          // Записываем месяцы в первую одномерный массив m          m[j]:=j;            // Записываем название цеха в 1 строку двумерного массива          //Если столбеч первый тогда          if j=1 then begin              write('Nazvnie ceha= ');              ReadLn(a[i,j].Nazvanie);            end;            // Записываем расход начиная со 2 столбца              write('Vvedite rashod= ');              ReadLn(a[i,j].rashod);         end;  end;   // Заполняем таблицу // Шапка writeln('Table'); writeln(l); writeln('|         |              Data'); // выводим месяцы из m for i:=1 to Nmes do   begin     write('|         |',m[i]:10);   end; // переходим на новую строку writeln; // константа writeln(l); writeln('|      Ceh|              Rashod'); writeln(l); // выводим из двумерного массива for i:=1 to Nceh do  begin    for j:=1 to Nmes do      with a[i,j] do begin        write(Nazvanie:10,'|',rashod:10);      end ;    writeln;  end;   readln;   // проходим по столбцам и считаем среднее for j:=2 to Nmes do  begin    for i:=1 to Nceh do      begin        //Сумма в столбце        SredSumm:=SredSumm+a[i,j].rashod;      end;        // получаем среднее        SredSumm:=SredSumm div Nceh;        // Дописывем в массив среднее значение в дополнительной строке        a[Nceh+1,j].rashod:=SredSumm;  end;        // Дописываем в массив дополнительную строку        a[Nceh+1,1].Nazvanie:='srednya chena';   // Заполняем таблицу // Шапка writeln('Table'); writeln(l); writeln('|         |              Data'); // выводим месяцы из m for i:=1 to Nmes do   begin     write('|         |',m[i]:10);   end; // переходим на новую строку writeln; // константа writeln(l); writeln('|      Ceh|              Rashod'); writeln(l); // выводим из двумерного массива for i:=1 to Nceh+1 do  begin    for j:=1 to Nmes do      with a[i,j] do begin        write(Nazvanie:10,'|',rashod:10);      end ;    writeln;  end;   readln; end.

Интересует этот кусок

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

// проходим по столбцам и вычисляем среднее for j:=2 to Nmes do  begin    for i:=1 to Nceh do      begin        //Сумма в столбце        SredSumm:=SredSumm+a[i,j].rashod;      end;        // получаем среднее        SredSumm:=SredSumm div Nceh;        // Дописывем в массив среднее значение в дополнительной строке        a[Nceh+1,j].rashod:=SredSumm;  end;

Не правильно считает среднее. Сижу, смотрю, понять не могу где накосячил.

[poli-smen]

Сообщение от MotoArhangel

Интересует этот кусок

Код:

Не правильно считает среднее. Сижу, смотрю, понять не могу где накосячил.

Наверное нужно обнулять переменную SredSumm перед вычислением очередного среднего значения.

[MotoArhangel]

Сообщение от poli-smen

Наверное нужно обнулять переменную SredSumm перед вычислением очередного среднего значения.

Код:

1 2 3 4

for j:=2 to Nmes do  begin    SredSumm:=0;    for i:=1 to Nceh do

Так. И все равно считает не правильно.

[poli-smen]

Сообщение от MotoArhangel

Код:

Так. И все равно считает не правильно.

Ну так наверное потому-что у тебя так:

Код:

1	for j := 2 to Nmes do

а не так:

Код:

1	for j := 1 to Nmes do

[MotoArhangel]

Посчитал что в j=1 хранится строка и этот столбец не нужен.
Ну все разобрался спасибо огромнейшее=)