Помощь - Поиск - Пользователи - Календарь
Полная версия: Уважаемые программисты помогите plz!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
liz
Уважаемые программисты помогите пожалуйста! Составить программу копирования файла с текстом программы с одного диска на другой с заменой имени. Имена входного и выходного файлов и имена дисковых устройств должны запрашиватся у пользователя. В процессе копирования программа должна подсчитывать количество строк в исходном файле.
Ozzя
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я
Глюк, что ли?
Ответов 0, а мой ответ присутствует wacko.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.