Множества, задача на повторяющиеся элементы, Решение без массива...Как?! Опции

[Clerick]

Помогите решить задачу!!!
Нужно составить программу, которая будет искать в множестве повторяющиеся болле 2-х раз элементы и выводить их на экран!!!
Есть решение через массивы на примеры строки букв, но училка сказала, что можно и без них как???

uses crt;
const n=255;
type alarm=set of char;
var c: array [1..255] of integer;
      a:alarm;
      s:string [25];
      i,j:integer;
 begin
 clrscr;
 readln(s);
for i:=1 to n do
 for j:=1 to length(s) do
    begin
     if s[j]=chr(i) then c[i]:=c[i]+1;
    end;
for i:=1 to n do 
 if c[i]>=2 then a:=a+[chr(i)];
for i:=1 to n do
 if  chr(i) in a then write (chr(i));
end.
 

Заранее спасибо!!!

[volvo]

искать в множестве повторяющиеся болле 2-х раз элементы

Трудно искать черную кошку в темной комнате... Особенно если ее там НЕТ и быть не может (как и двух одинаковых элементов в множестве).

Вариант:

var
  i, j, count: integer;
  s, rs: string;

begin
  readln(s);

  rs := '';
  for i := 1 to length(s) do
    if pos(s[i], rs) = 0 then begin
      count := 0;
      for j := 1 to length(s) do
        if s[i] = s[j] then inc(count);

      if count > 1 then rs := rs + s[i];
    end;
  writeln(rs);
end.

[Clerick]

Извиняюсь за некорректное условие. Нужно в строке отыскать одинаковые символы!!!
А Что такое inc(count)???

Сообщение отредактировано: Clerick - 5.03.2006 12:41

[volvo]

То же самое, что

Count := Count + 1;

Так больше нравится?

Нужно в строке отыскать одинаковые символы!!!

Судя по твоей программе - нужно отыскать символы, встречающиеся более одного раза...

[Clerick]

Ну да!!! Опять некорректность... Спасибо за помошь!!!

Сообщение отредактировано: Clerick - 5.03.2006 12:50