Предыдущая страница реферата | 1  2  3  4  5  6  7

readln(name);

assign(f1,name);

reset(f1);

              if ioresult0 then

begin

gotoxy(2,21);

writeln('Файл не найден ...                       ');

close(f1);

end;

          until ioresult=0;

{$I+}

table;

gotoxy(1,2);

while not eof(f1) do

begin

readln(f1,txt);

writeln(chr(179),txt);

end;

close(f1);

gotoxy(2,21);

write('Файл считан, нажмите чего-нибудь ...             ');

end;

68:goto b;   {F10} {Происходит выход на метку}

end;

until i

Скачали данный реферат: Русаков, Мусин, Аврора, Isakij, Sijanko, Kirill, Medvedkov.
Последние просмотренные рефераты на тему: организация реферат, контрольные по геометрии, бесплатные ответы, бесплатные рефераты на тему.

Предыдущая страница реферата | 1  2  3  4  5  6  7

Поделитесь этой записью или добавьте в закладки