помогите пожалуйста со множествами

[miksed]

Дана срока, состоящая из букв и цифр, и строка из цифр и других знаков. Получить новую строку из символов первой строки, которых нет во второй. Для решения использовать структуру – множество.

как?? что?? почему??? рву волосы уже на голове

[Вадим Мошев]

Алгоритм:

s1:=Первая строка;
s2:=Вторая строка;

поместить символы первой строки в множество 1
То же самое для вторйо строки (уже во множество 2)

Результат:= Множество_1 - Множество_2;

[miksed]

а как их туда поместить?

[Вадим Мошев]

Для этого используется операция "объединение множеств" - символ строки записывается к квадратных скобках и прибавляется (знак +) к нашему множеству.

[Stilet]

Для решения использовать структуру – множество.

Ну и задача...

var
      s1,s2,s3:string;
      l,q,w:set of #0..#254;
      i:integer; c:char;
begin
 s1:='wqe'; s2:='cfdsd';
 q:=[]; w:=[];
 for i:=1 to Length(s1) do Include(q,s1[i]);
 for i:=1 to Length(s2) do Include(w,s2[i]);
 l:=q-w;
 s3:='';
 for c:=#0 to #254 do if c in l then s3:=s3+c;
 Выводим s3
end.

Это набросок. Не проверял, но думаю должно подойти.

[miksed]

Сообщение от Stilet

Ну и задача...

var
      s1,s2,s3:string;
      l,q,w:set of #0..#254;
      i:integer; c:char;
begin
 s1:='wqe'; s2:='cfdsd';
 q:=[]; w:=[];
 for i:=1 to Length(s1) do Include(q,s1[i]);
 for i:=1 to Length(s2) do Include(w,s2[i]);
 l:=q-w;
 s3:='';
 for c:=#0 to #254 do if c in l then s3:=s3+c;
 Выводим s3
end.

Это набросок. Не проверял, но думаю должно подойти.

к сожалению ,не работает(((
выдает: "s3:"
и все

[miksed]

Сообщение от Вадим Мошев

Для этого используется операция "объединение множеств" - символ строки записывается к квадратных скобках и прибавляется (знак +) к нашему множеству.

не могли бы вы написать полностью программу? пожалуйста)

[Aleksandr H.]

Код ув.Stilet чем не подошел?

[p51x]

Тем, что там есть недописанная строчка "выводим с3"