Файлы. Обработка файлов

@ASTROS · Регистрация: 08.11.2012

Author24 — интернет-сервис помощи студентам

Дан символьный файл f, содержащий произвольный текст длиной более 50 слов.
Слова в тексте разделены пробелами и знаками препинания. Получить 1 наиболее
часто встречается слово и число его появления.

Добавлено через 4 минуты
нужно исправить код так, что бы слово которое повторяется часто, было записано под текстом

Pascal

Const mn=[' ',',','.','!','?'];
Var A:array[1..100] of string;
    B:array[1..100] of byte;
    i,j,n,t1:byte;
    s,s1,t2:string;
    f:text;
Begin
Assign(f,'in.txt');
Reset(f);
While not Eof(f) do
Begin
readln(f,s);
s:=s+' ';s1:='';
For i:=1 to Length(s) do
if not(s[i] in mn) then s1:=s1+s[i]
else
Begin
if s1<>'' then
Begin
inc(n);
A[n]:=s1;
End;
s1:='';
End;
End;
For i:=1 to n do
For j:=i+1 to n do
if A[i]=A[j] then inc(B[i]);
For i:=n downto 2 do
For j:=2 to i do
if B[j]>B[j-1] then
Begin
t1:=B[j];
B[j]:=B[j-1];
B[j-1]:=t1;
t2:=A[j];
A[j]:=A[j-1];
A[j-1]:=t2;
End;
For i:=1 to 10 do
writeln(A[i]);
append (f);
 
End.

Добавлено через 1 минуту
как?

	21.02.2013, 18:03

Опции темы