Файлы

[opip]

структура записей файла:

наименование / номер цеха/дата проверки/период проверки
средств измерения /

выдать машинограмму, отражающую строки проверок конкретного цеха ,номер которого запросить с клавиатуры дисплея и внести в заголовок машинограммы ''средства измерения находящиеся на балансе цеха________________''.

Машинограмма должна иметь следующую структуру:

/наименование средств измерения/дата последней проверки/


ЭТО ТАБЛИЦЫ.

[Хыиуду]

Type trec=record
name: string;
number: integer;
date: string;
period: integer;
end;
var checks: array[1..100] of trec
............
writeln('Введите номер цеха');
readln(num);
for i:=1 to 100 do
if checks.num=num then
writeln(checks.name,'/',checks.date);