Лабораторный практикум по информатике. Мухина И.Н - 61 стр.

 end;
end;

procedure Obrabotka (rows:integer);
{Основной алгоритм – расчет остатка2}
var i:integer;
begin
 so1:=0;
 sp:=0;
 sr:=0;
 so2:=0;
 for i:=1 to rows do begin
  ostatok2[i]:=ostatok1[i]+prihod[i]-rashod[i];
  so1:=so1+ostatok1[i];
  sp:=sp+prihod[i];
  sr:=sr+rashod[i];
  so2:=so2+ostatok2[i];
 end;
end;

procedure WriteData (var f:text; rows:integer);
{Вывод данных в файл с дескриптором f}
var i:integer;
begin
 writeln    (f, 'Наименование':18, 'Остаток1':15,
'Приход':15, 'Расход':15, 'Остаток2':15);
 for i:=1 to rows do begin
  writeln      (f,tovar[i]:18,    ostatok1[i]:15:2,
rashod[i]:15:2, prihod[i]:15:2, ostatok2[i]:15:2);
 end;
 writeln (f,'Итого':18, so1:15:2, sp:15:2, sr:15:2,
so2:15:2);
end;

begin
 WriteLn
 ('Введите имя файла для ввода табличных данных:');
 ReadLn (Name);
 Assign (f,Name);
 Reset (f);
 ReadData (f,rows);


                        61