Работы учащихся Решение сложных задач по программированию | Page 2

© Иванов Дмитрий, МБОУ «Лицей № 2», г. Нижневартовск
Задача № 1
На вход программы подаются произвольные алфавитно-цифровые символы. Ввод этих символов
заканчивается точкой. Требуется написать программу, которая будет печатать последовательность
строчных английских букв ('a' 'b'... 'z') из входной последовательности и частот их повторения. Печать
должна происходить в алфавитном порядке. Например, пусть на вход подаются следующие
символы:
fhb5kbfыshfm.
В этом случае программа должна вывести
b2
f3
h2
kl
ml
s1
Решение:
program bykvi;
uses crt;
var a:string;
i,l:integer;
z:array[1..26] of integer;
begin
for i:=1 to 26 do z[i]:=0;
readln(a);
i:=1;
while a[i]<>'.' do begin
l:=ord(a[i]);
i:=i+1;
if (l>96) and (l<123) then z[l-96]:=z[l-96]+1;
end;
for i:=1 to 26 do
if z[i]>0 then writeln(Chr(i+96),z[i]);
end.
май, 2015 г.