Отсортировать символы по убыванию частот

[sacreden]

Отсортировать символы по убыванию частот

Помогите пожалуйста.
Для текстового файла найти частность входящих в него символов. При выводе частности отсортировать символы по убыванию частот. Исходный файл Подготовить самостоятельно.

 

[Vladimir_S]

Помогите пожалуйста.
Для текстового файла найти частность входящих в него символов. При выводе частности отсортировать символы по убыванию частот. Исходный файл Подготовить самостоятельно.

Летом к нам обещали заглянуть наши экстрасенсы, тогда от них и узнаем язык программирования, на котором надлежит выполнить задание. А до тех пор мы, извините, не в силах Вам помочь.

 

[sacreden]

Летом к нам обещали заглянуть наши экстрасенсы, тогда от них и узнаем язык программирования, на котором надлежит выполнить задание. А до тех пор мы, извините, не в силах Вам помочь.

)) На любом языке С++,паскаль и т.п.

 

[Vladimir_S]

)) На любом языке С++,паскаль и т.п.

Ну тогда - вот Паскаль (пути к файлам поставьте, естественно, свои):

VAR
 f:Text;
 Smb:Set of Char;
 S:Array[1..500] of Char;
 T:Array[1..500] of Word;
 N,i,j,num:Word;
 C:Char;
BEGIN
 Smb:=[];
 N:=0;
 For i:=1 to 500 do T[i]:=0;
 Assign(f,'D:\Input.txt');
 Reset(f);
 Repeat
  Read(f,C);
  If Not(C in Smb) then
   Begin
    Smb:=Smb+[C];
    Inc(N);
    T[N]:=1;
    S[N]:=C;
   End
  else
   Begin
    i:=0;
    repeat
     inc(i);
    until S[i]=C;
    Inc(T[i]);
   End;
 Until EoF(f);
 Close(f);
 Assign(f,'D:\Output.txt');
 Rewrite(f);
 For i:=1 to N do
  For j:=1 to N-i do
   If T[j]<T[j+1] then
    begin
     num:=T[j];
     T[j]:=T[j+1];
     T[j+1]:=num;
     C:=S[j];
     S[j]:=S[j+1];
     S[j+1]:=C;
    end;
 For i:=1 to N do
  Writeln(f,S[i],' - ',T[i]:3,' times');
 Close(f);
END.