Цитата:
Сообщение от Reiderian
Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарю.
Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк.
|
Да пожалуйста, хотя по-моему - детский сад. Только замените, если надо, пути к файлам, да исправьте, если хотите, английские ремарки на русские.
Код:
Var
f1,f2:Text;
S:String;
N_S:Integer;
Begin
N_S:=0;
Assign(f1,'D:\inp.txt');
Reset(f1);
Assign(f2,'D:\outp.txt');
Rewrite(f2);
Repeat
readln(f1,S);
if S='' then
begin
writeln(f2,'Empty string');
Inc(N_S);
end
else writeln(f2,S);
Until EoF(f1);
writeln(f2);
writeln(f2,N_S,' times');
Close(f1);
Close(f2);
End.