Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на Строки

Автор: lotion 13.12.2007 6:35

суть:пересчитать гласные и согласные во введённой строке, а потом вывести побуквенно в порядке убывания количества раз употреблённости во введённой строке

первую часть (подсчет букв) написал...а вот с сортировкой торможу..решение нужно очень срочно.желательно-до завтрашнего утра...Реализация на процедурах или функциях.

То что написанно:

Program GlasnSogl;
uses crt;
Type
Letters = set of 'a'..'z';
Var
Glasn, Sogl : Letters;
Text : String;
i, G, S : byte;
procedure Podscet;

Begin

Glasn := ['a', 'e', 'i', 'o', 'u', 'y'];
Sogl := ['b'..'d', 'f', 'g', 'h','j'..'n', 'p'..'t', 'v'..'x', 'z'];

G := 0;
S := 0;
For i := 1 to Length(Text) do
Begin
If Text[i] in Glasn
Then
G := G+1;
If Text[i] in Sogl
Then
S := S+1;
End;
Writeln('v texte " ', Text, ' " ', G, ' glasnih and ', S, ' soflasnih bykv');
end;


begin

Writeln('inputting');
Readln(Text);
podscet;

readln;


End.
end.


Автор: Lapp 13.12.2007 10:55

Для вывода в порядке количества вхождений буквы это количество нужно подсчитать и желательно сохранить. Вот, посмотри, в этой программе я использую для этого массив n. В первом цикле я подсчитываю количество вхождений, а во втором вывожу на печать (без предварительного упорядочивания).

const
s:string='Hello World';

var
i:integer;
n: array['A'..'Z']of integer;
c,d: char;

begin
for i:=1 to Length(s) do begin
c:=UpCase(s[i]);
if c in ['A'..'Z'] then Inc(n[c])
end;
repeat
d:='A';
for c:='A' to 'Z' do if n[c]>n[d] then d:=c;
if n[d]>0 then Write(d) else Break;
n[d]:=0
until false;
ReadLn
end.


Добавлено через 2 мин.
Помимо прочего, обрати внимание на использование функции UpCase для перевода в верхний регистр. Без этого теряется общность..