Реферат: Создание текстового редактора

table;

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('Ввод окончен, нажмите чего-нибудь ...');

repeat

readkey;

keys(nn);

case nn of {определяет нажатие функциональных клавиш}

59:menu; {F1}

60:begin {F2}

table;

gotoxy(2,21);

write(' ');

gotoxy(2,21);

write('Введите имя:');

readln(name);

К-во Просмотров: 1204
Бесплатно скачать Реферат: Создание текстового редактора