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

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);

assign(f1,name);

rewrite(f1);

gotoxy(2,21);

write('Вводите текст !!!          ');

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



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

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