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

 Close (f);
 WriteLn ('Данные прочитаны из файла ',name,
' (кол.-во строк=', rows, ')');
 Obrabotka(rows);
 WriteLn('Расчет выполнен');
 WriteLn('Введите имя файла для вывода ',
'результатов расчета (con - на экран):');
 ReadLn (Name);
 Assign (f,Name);
 Rewrite (f);
 WriteData (f,rows);
 Close (f);
end.

4. Результаты тестирования программы

Файл tabl.dat, использованный для тестирования программы:
Товар1   345 45 40
Товар2   721 31 34
Товар3   456 98 34
Товар4   682 12 18
Товар5   74 37 20

Листинг вывода программы:
Введите имя файла для ввода табличных данных:
tabl.dat
Данные прочитаны из файла tabl.dat (кол.-во строк=5)
Расчет выполнен
Введите имя файла для вывода результатов расчета(con-на экран):
con
Наименование Остаток1      Приход         Расход       Остаток2
Товар1      345.00          40.00          45.00         350.00
Товар2      721.00          34.00          31.00         718.00
Товар3      456.00          34.00          98.00         520.00
Товар4      682.00          18.00          12.00         676.00
Товар5       74.00          20.00          37.00          91.00
Итого      2278.00         223.00         146.00        2355.00




                              62