Множества в TP

13.01.2013, 23:44. **Показов** 1336. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Нужна помощь в создании проги, ибо с множествами не работал ни разу, а разбираться,увы, мало времени! Рассчитываю на хотя бы минимальную помощь...
Задание:
Назовем два слова, у которых совпадают множества символов, эквивалентными. Вывести каждую группу эквивалентных слов данной строки.

Спасибо за внимание...

@Zhexon · 14.01.2013, 12:49

Pascal

var
  sIn,s,s1,s2 : String;
  m,n : set of char;
  i : byte;
  b : boolean;
 
Begin
  writeln('input string s probelami :'); readln(sIn);
  s2:=sIn+' ';
  while s2<>'' do begin
    writeln;
    s:=s2; s2:=''; s1:=''; m:=[]; n:=[]; b:=true;
    for i:=1 to Length(s) do begin
      if s[i]=' ' then begin
        if s1<>'' then if b then begin
          write('nabor dlq "',s1,'" : '); b:=false;
        end else begin
          if m=n then write(s1,'  ') else s2:=s2+s1+' ';
          n:=[];
        end;
        s1:=''
      end else begin
        s1:=s1+s[i];
        if b then m:=m+[s[i]] else n:=n+[s[i]];
      end;
    end;
    writeln;
  end;
  readln;
End.

14.01.2013, 20:32

Огромное человеческое спасибо!!!!

flashin
		1
	Множества в TP 13.01.2013, 23:44. Показов 1336. Ответов 2 Метки нет (Все метки) Нужна помощь в создании проги, ибо с множествами не работал ни разу, а разбираться,увы, мало времени! Рассчитываю на хотя бы минимальную помощь... Задание: Назовем два слова, у которых совпадают множества символов, эквивалентными. Вывести каждую группу эквивалентных слов данной строки. Спасибо за внимание...

flashin
	14.01.2013, 20:32	3
	Огромное человеческое спасибо!!!!

Множества в TP

Решение