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

     Размерности массивов ограничены константой Мax в
программе. Программа контролирует количество вводимых
строк, чтобы оно не превысило Max. Проверка корректности
типов вводимых данных не производится.
     Основной алгоритм обработки табличных данных сводится
к циклу, выполняемому rows раз, где rows – количество
введенных строк данных. В этом цикле рассчитывается
Остаток2 по формуле Остаток2=Остаток1+Приход-Расход, а
также накапливаются суммы по столбцам таблицы для
формирования строки "Итого"
     Программа состоит из одного программного модуля
tabl.pas. Перечислим основные подпрограммы файла
tabl.pas и укажем их назначение:
• function Chislo (var s:string):real; — функция
выделяет из входной строки s очередное вещественное или
целое число и возвращает его. Используется для извлечения
значений столбцов Остаток1, Приход, Расход из строки
таблицы.
• function DeSpace (var s:string):string; —
функция удаляет лишние пробелы в строке s. Лишними
считаются более одного пробела, идущего подряд, а также
пробелы в конце и начале строки. Необходимо для обеспечения
большей гибкости в начальном представлении табличных
данных.
• procedure         ReadData      (var     f:text;      var
rows:integer); — процедура читает табличные данные из
файла с дескриптором f, заносит их в массивы, а также
определяет общее число прочитанных строк данных (rows)
• procedure Obrabotka (rows:integer); — процедура
реализует основной алгоритм обработки табличных данных, то
есть, вычисление столбца Остаток2 и строки Итого
• procedure WriteData (var f:text; rows:integer);
— процедура пишет результирующую таблицу в файл f. Если
в качестве имени выходного файла введено con, результаты
выдаются на экран монитора.


                            58