сложная задача на подпрограмму, используется символьный массив Опции

[HelpMe]

Требуется ваша помощь в решении этой задачи:

Дан символьный массив. Определить , используя подпрограмму , какие символы встречаются 2 раза , 3 раза , к раз. Повторяющиеся символы и количество их повторений вывести на экран.

Немогу составить процедуру , возникает проблема с символами которые повторяются больше 2 - ух раз , незнаю как реализовать ... требуется ваша помощь , спасибо тому кто поможет в решении

[volvo]

Немогу составить процедуру , возникает проблема с символами которые повторяются больше 2 - ух раз , незнаю как реализовать

Просто:

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.

Если ты покажешь, что за символьный массив, откуда он берется, и почему нельзя пользоваться строками, для этого специально предназначенными - то я расскажу, как заполнить массив counts, чтоб его можно было использовать...

Сообщение отредактировано: volvo - 8.12.2007 15:19