Требуется ваша помощь в решении этой задачи:
Дан символьный массив. Определить , используя подпрограмму , какие символы встречаются 2 раза , 3 раза , к раз. Повторяющиеся символы и количество их повторений вывести на экран.
Немогу составить процедуру , возникает проблема с символами которые повторяются больше 2 - ух раз , незнаю как реализовать ... требуется ваша помощь , спасибо тому кто поможет в решении
http://forum.sources.ru/index.php?showtopic=211946
var
counts: array[char] of integer;
procedure print_chars(k: integer);
var i: char;
begin
for i := #0 to #255 do
if counts[i] = k then write(i);
end;
begin
{ здесь - заполнение массива counts ... }
...
print_chars(2);
print_chars(3);
print_chars(4);
...
end.
Массив из символов , запоняться должен с клавиатуры ... допустим массив "a a gh pg g p p p g b" из 10 элеметнов , после выполнения программы должно выводиться на экран "a - 2 раза" , "p - 3 раза" ну и соответсвенное если бы был символ повторяющийся 4 раза, то воводился бы и он.
извиняюсь , не понял вопроса сразу
program abc;
var a:array [1..10] of string;
...
for i:=1 to 10 do
readln(a[i]);
Volvo , объесни пожалуйста как нужно заполнять массив для нахождения в нём символов
Ты сам-то понял, что у тебя написано: В задании сказано, что есть символьный массив, ты показываешь код с массивом строк... И как это понимать?
извиняюсь , ошибочка вышла ... писал ночью , попутал чтото ... массив должен быть и в правду Char
Расскажи как нужно его заполнить и в чём суть вот этой строки в процедуре
Мне надоело бороться с тобой. Поскольку я так и не увидел, как именно ты хотел заполнять массив - напишу свой вариант:
varСуть в том, что массив counts индексируется не числом, а символом, то есть, count['a'] после заполнения будет содержать количество символов 'a' в массиве, и т.д.
counts: array[char] of integer;
procedure print_chars(k: integer);
var i: char;
begin
{ этой строкой перебираем все символы алфавита }
for i := #0 to #255 do
if counts[i] = k then write(i);
writeln; { добавлено... Чтоб красивее было... }
end;
var
a: array [1..10] of char;
i: integer;
begin
i := 0;
{ ввод строки - постарайся не вводить больше 10 символов, а то будут проблемы }
while not eoln do begin
inc(i);
read(a[i]);
end;
readln;
{ вот так заполняем массив-счетчик }
for i := 1 to 10 do inc(counts[a[i]]);
write('2: '); print_chars(2);
write('3: '); print_chars(3);
write('4: '); print_chars(4);
end.
Volvo , спасибо за помощь , но твоя программа ищет в массиве только повторения символа "k" , а в условие нужно найти повторение любых символов введённых с клавиатуры , т.е. вводим 10 любых символов (какие символы в условие не оговоренно) и программы выдаёт какие символы повторяются 2 и т.д. раз например
вводим с клавиатуры массив "a b a d a b d i d d" на экране выдаётся "2: b" "3: a" "4: d" , вот в этом и проблема ... как реализовать это я даже не представляю , учусь только первый семестр ...
посмотри здесь, мож поможет http://forum.pascal.net.ru/index.php?showtopic=20117
for i := 2 to 10 do begin { Ну, можно и не до 10, а до скольки нужно... }
write(i, ': '); print_chars(i);
end;