РЕБЯТКИ, ЭТО ОЧЕНЬ Безотлагательно!!!На вход программы подаются произвольные алфавитно-цифровые
РЕБЯТКИ, ЭТО ОЧЕНЬ Безотлагательно!!!
На вход программки подаются произвольные алфавитно-цифровые знаки. Ввод этих знаков кончается точкой. Нужно написать программку, которая будет печатать последовательность строчных британских букв ('a' 'b'... 'z') из входной последовательности и частот их повторения. Печать должна происходить в алфавитном порядке. К примеру, пусть на вход подаются следующие знаки:
fhb5kbfыshfm.
В этом случае программка обязана вывести
b2
f3
h2
kl
ml
s1
1 ответ
Антон
Var s:string;
a:array['a'..'z'] of integer;
i:integer; c:char;
begin
writeln('Введите строчку:');
readln(s);
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if (s[i]gt;='a')and(s[i]lt;='z') then a[s[i]]:=a[s[i]]+1;
for c:='a' to 'z' do
if a[c]gt;0 then writeln(c,' ',a[c]);
end.
Программа:
Введите строчку:
fhb5kbfыshfm.
b 2
f 3
h 2
k 1
m 1
s 1
a:array['a'..'z'] of integer;
i:integer; c:char;
begin
writeln('Введите строчку:');
readln(s);
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if (s[i]gt;='a')and(s[i]lt;='z') then a[s[i]]:=a[s[i]]+1;
for c:='a' to 'z' do
if a[c]gt;0 then writeln(c,' ',a[c]);
end.
Программа:
Введите строчку:
fhb5kbfыshfm.
b 2
f 3
h 2
k 1
m 1
s 1
Алиса
Спасибо громадное!!!))
Vladimir Mukendi
Пожалуйста.
Татьяна Алитовская
А её возможно решить без "char"?
Alla Bolhova
Можно, но это будет длиннее.
Кирилл Черас
Я знаю, что длиннее, просто дело в том, что мне не знаком char. Не могу сообразить как сделать через string
Федосовская
Лилия
char - это один знак, а string - это несколько символов, только и всего. char изучается ранее, чем string обычно.
Наталья Мейч
Где-то да, а вот у нас нет. Через char такое лёгкое и прыткое решение, удивительно, что мы делаем не так.
Жовненко
Владислав
И как же вы делаете?
Саша Тюльпаков
Говорю же через string, мы char вообщем никогда не использовали.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов