Предыдущая страница реферата | 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('Ввод окончен, нажмите чего-нибудь ...');

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

Рекомендуем скачать другие рефераты по теме: инновационный менеджмент, взаимодействие реферат.



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

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