Реферат: Модули, записи и файлы
writeln (‘Выдавать полные сведения о предприятиях, которые не ’) ;
writeln (‘начисляли налоги в отчетный период.’) ;
window(1, 1, 80, 25);
gotoxy(10, 24);
textcolor (4 + blink);
writeln (‘Для продолжения нажмите Enter ’) ;
readln ;
textcolor (10) ;
clrscr ;
assign (f, table.txt) ;
reset (f) ;
writeln (‘Cведения о предприятиях, которые не начисляли ’) ;
writeln (‘налоги в отчетный период ’) ;
writeln (‘+----------------------------------+’) ;
writeln (‘| № | ИНН | Наименование | 1 | 2 | 3 | 4 |’) ;
writeln (‘ | ---+----------+----------------+----+----+----+-----| ’) ;
while not Eof(f) do
begin
read (f, x) ;
with x do
if Nop = 0 then
begin
writeln (‘| ‘№ : 3’ | ‘,Inn : 12,’ | ’,Name : 20,’ | ’ ,Sng :4,’ | ’,Nop : 4,’ | ’,Uop : 4,’|’ ) ;
writeln (Skop : 4, ‘ | ’) ;
end;
end;
writeln (‘+-----------------------------------------------------------------------+’) ;
writeln ;
writeln (‘1- Сведения на начало года ’) ;