Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

readln(name);

assign(f1,name);

reset(f1);

              if ioresult<>0 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<0;   {считывай функциональные клавиши пока i<0,

Рекомендуем скачать другие рефераты по теме: сочинение капитанская, борьба реферат.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

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