Про множественный тип, ну как же Опции

[Анютка]

Вроде девушка я не тупая, но не могу понять
Условие:

Определить какие символы встречаются в строке и посчитать сколько раз встречается каждый из них. В алфавитном порядке вывести обнаруженные символы и кол-во их вхождений в строку.

[Altair]

По просьбе...
открываю тему. и еще один вариант ...
(придумывал велосипед опять же по просьбе).
ЧТо бы только с множествами.

var
 s:string;   {входная строка}
 m:set of char;{множество встетивщихся символов}
 I,j,count:byte;{счетчики}
begin
 m:=[];{обнуляем множество}
 readln(s);{вводим строку}
 {проходим по длинне строки и включаем в множетсво встетивщиеся сиволы}
 for i:=1 to length (s) do include(m,(s[i]));
 {проходим коды символов с 32 до 255 (от пробела по всем алфавитам.. до конца)}
 for i:=32 to 255 do
 {если символ входит в множество}
  if chr(i) in m then begin
  {исключаем из множетсва, что бы исключить повторы}
   exclude(m,chr(i));
  {обнуляем количество вхождений}
   count:=0;
      {просматриваем всю строку и если находим этот символ, увеличиваем КОУНТ }
   for j:=1 to length(s) do if s[j]=chr(i) then inc(count);
   {вывод результата для текущего символа.}
   writeln(chr(i),' ',count);

  end;
 readln;
end.

p.s. рекомендую алгоритм и программу volvo.

без процедур (по просьбе).

program volvo_modify;
var
  a : array[#0..#255] of byte;
  chars: set of char;
  i : integer;
  b: string;
  c:char;
begin
  writeln('Enter string: '); readln(B);
  chars := [];
  for i := 1 to length(b) do begin
    inc(a[ b[i] ]); chars := chars + [b[i]];
  end;
  for c:=#0 to #255 do
    if c in chars then
      Writeln(c,'   -   ', a[c], ' raz ');
  readln;
  readln;
end.

Сообщение отредактировано: Altair - 30.10.2005 19:12