Создание текстового редактора в Turbo Pascal

Категория реферата: Рефераты по информатике, программированию
Теги реферата: рассказы чехова, реферат на тему природа
Добавил(а) на сайт: Полиект.

59:menu; {F1}

60:begin {F2} table; gotoxy(2,21); write(' '); gotoxy(2,21); write('Введите имя:'); readln(name); assign(f1,name); rewrite(f1); gotoxy(2,21); write('Вводите текст !!! '); gotoxy(1,2); repeat write(chr(179),':>'); readln(txt); writeln(f1,txt); until txt=''; close(f1); gotoxy(2,21); writeln('Ввод окончен, нажмите чего-нибудь ...'); end;

61:begin {F3} gotoxy(2,21); write('Введите имя файла, в который копир-я файл ',name,'->'); readln(new_name); reset(f1); assign(f1_new,new_name); append(f1_new); while not eof(f1) do begin readln(f1,txt); writeln(f1_new,txt); end; close(f1); close(f1_new); gotoxy(2,21); writeln('Файл ',name,' скопирован в ',new_name,' нажмите чего-нибудь ...'); end;

62:begin {F4} gotoxy(2,21); write(' '); gotoxy(2,21); write('Введите новое имя файла:'); readln(new_name); assign(f1,name); rename(f1,new_name); gotoxy(2,21); writeln('Файл ',name,' перименован в ',new_name,' нажмите чего-нибудь ... '); end;

63:begin {F5} erase(f1); gotoxy(2,21); writeln('Файл ',name,' удалён с диска, нажмите чего-нибудь ...'); end;

64:begin {F6}

{$I-} repeat gotoxy(2,21); write('Введите имя файла для считывания текста ->'); 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

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