Цитата:
Сообщение от SallahadDin
1. Создать текстовый файл с произвольным содержимым. Написать программу, которая после каждого слова записывает в файл количество символов в этом слове, а после этого дописывает в конец файла строку, в которой указывается количество слов в файле. Под словом понимается любая непустая последовательность символов, ограниченная символами пробела, табуляции, конца строки или конца файла.
|
Легко. Только пути к файлам поправьте по своему усмотрению:
Код:
Var
Lit:Set of Char;
f1,f2:Text;
W:String;
C:Char;
N_W:Integer;
Begin
N_W:=0;
Lit:=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я']+['0'..'9'];
Assign(f1,'D:\inp.txt');
Reset(f1);
Assign(f2,'D:\outp.txt');
Rewrite(f2);
Repeat
repeat
read(f1,C);
if Not(C in Lit) then write(f2,C);
until (C in Lit) or EoF(f1);
If C in Lit then
begin
W:=C;
repeat
read(f1,C);
if C in Lit then W:=W+C;
until Not(C in Lit) or Eof(f1);
Inc(N_W);
write(f2,W+'(',Length(W),')');
if Not(EoF(f1)) then write(f2,C);
end;
Until EoF(f1);
writeln(f2);
writeln(f2,N_W,' words');
Close(f1);
Close(f2);
End.