Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Уважаемые программисты помогите plz!

Автор: liz 29.05.2007 18:20

Уважаемые программисты помогите пожалуйста! Составить программу копирования файла с текстом программы с одного диска на другой с заменой имени. Имена входного и выходного файлов и имена дисковых устройств должны запрашиватся у пользователя. В процессе копирования программа должна подсчитывать количество строк в исходном файле.

Автор: Ozzя 29.05.2007 18:36

reset(f1, name1);
rewrite(f2,name2);
kolvo:=1;
while not eof(f1) do
  begin
     readln(f1,s);
     writeln(f2,s);
     inc(kolvo);
  end;
close(f1);
close(f2);

Автор: Ozzя 29.05.2007 18:43

Глюк, что ли?
Ответов 0, а мой ответ присутствует wacko.gif