ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 16.09.2024
Просмотров: 40
Скачиваний: 0
СОДЕРЖАНИЕ
3.1 Опис структури даних та вимоги до них
3.2 Опис стандартних процедур та функцій, що використовувалися у програмі
3.3 Опис процедури та функцій користувача
3.4 Опис файлів та їх призначення
4 Інструкція для роботи з програмою
5 Приклад тестування та результату роботи програми
begin
clrscr;
reset(f);
v:=0;;
for i:=1 to filesize(f) do
begin
read(f,z);
if z.u4_zaved='VNZ' then
begin
gotoXY(1,wherey); write(z.fam);
gotoXY(12,wherey); write(z.im);
gotoXY(22,wherey); write(z.otch);
gotoXY(34,wherey); write(z.klass);
gotoXY(40,wherey); write(z.nom_atest);
gotoXY(50,wherey); write(z.sr_bal:4:2);
gotoXY(57,wherey); write(z.u4_zaved);
writeln;
end else v:=v+1;
end;
if v=i then writeln('Vupusnikov net');
readkey;
close(f);
end;
end.
