Реферат: Модули, записи и файлы
Глава 10. Основная программа
program part2;
uses crt;
type table = record
n : integer ;
inn : string[12];
Name : string[20];
Sng : integer;
Nop : integer;
Uop : integer;
Skop : integer;
End;
Var
f : file of table;
x : table;
begin
clrscr;
window(45,2,75,7);
textcolor (5) ;
writeln (‘Курсовая работа по информатике ’) ;
writeln (‘Факультет АЭС группа А-92 ’) ;
writeln (‘студента: Грязина Д.’) ;
window (1, 1, 80, 25) ;
gotoxy (30, 5) ;
writeln (‘Часть 2’) ;
window(10, 8, 80, 20) ;
writeln (‘В файле table.txt содержатся справочные сведения’) ;
writeln (‘о предприятиях-задолжниках по уплате налогов ’) ;
writeln ;