множество.

[Юлька:)]

Распечатать все буквы входящие в текст не мене двух раз в алфавитном порядке.




var s:string;a:array[ord('a')..ord('z')] of byte;i:integer;
begin
s:='prived at midveda';
for i:=1 to length(s) do begin
a[ord(s[i])]:=a[ord(s[i])]+1;
end;
for i:=ord('a') to ord('z') do begin
if a[i]>=2 then
write(chr(i));
end;
readln;
end.
помогите найти ошибку или сделать программу полегче..

[Sazary]

"Множество" - это тема для задачи? (на будущее: прочитайте правила и больше не называйте так темы).
Если да, то задача решена неверно. Вам ведь нужны множества.

Заводите 2 пустых множества чаров.
Идете в цикле по строке.
Если текущий символ отсутствует в множестве 1, то заносим его туда.
Иначе, если он там есть, и если он есть и во втором множестве, то ничего ничего не делаем.
Иначе, если символ есть в первом множестве, но отсутствует во втором, то заносим его во второе множество.

После этого выводим в алфавитном порядке символы из 2-го множества.

uses crt;
var
m1,m2 : set of char;
s : string;
i : integer;
c : char;

begin
clrscr;
s:='prived at midveda';
m1 := [];
m2 := [];
for i:=1 to length(s) do
 begin
 if s[i] in m1 then
   begin
   if s[i] in m2 then continue
   else include(m2,s[i]);
   end
 else include(m1,s[i]);
 end;
writeln(s);
writeln;
for c:='A' to 'z' do
 if c in m2 then write(c);

readln;
end.