Даны два слова. Получить третье слово из неповторяющихся символов, входящих как в первое, так и во второе слова.

[dlinkz]

Всем привет! Помогите пожалуйста с программкой на PascalABC...

Даны два слова. Получить третье слово из неповторяющихся символов, входящих как в первое, так и во второе слова.

[Serge_Bliznykov]

тут, имхо, задание не совсем корректно - что означает термин "неповторяющиеся" ?!
или это символы, которые встречаются в каждом слове строго ОДИН раз,
или разрешено использовать совпадающие символы только ОДИН раз.
например, из слов МАМА и РОМАН составляется слово-ответ МА


p.s. в любом случае, задача явно на использование множеств.

[ByAlex]

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

тут, имхо, задание не совсем корректно - что означает термин "неповторяющиеся" ?!
или это символы, которые встречаются в каждом слове строго ОДИН раз,
или разрешено использовать совпадающие символы только ОДИН раз.
например, из слов МАМА и РОМАН составляется слово-ответ МА


p.s. в любом случае, задача явно на использование множеств.

Как я понял, нужно составить новое слово из букв, не повторяющихся в обоих словах. Из твоих слов МАМА и РОМАН будет РОН.

[Serge_Bliznykov]

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

Как я понял, нужно составить новое слово из букв, не повторяющихся в обоих словах. Из твоих слов МАМА и РОМАН будет РОН.

ByAlex, а если ещё раз внимательное перечитать исходное задание?
что означает

из неповторяющихся символов, входящих как в первое, так и во второе слова

[dlinkz]

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

Как я понял, нужно составить новое слово из букв, не повторяющихся в обоих словах. Из твоих слов МАМА и РОМАН будет РОН.

Скорей всего РОН будет. Ну помогите мне с этой задачей пожалуйста, у меня с множествами туго...

[ByAlex]

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

Скорей всего РОН будет. Ну помогите мне с этой задачей пожалуйста, у меня с множествами туго...

Ну если так, то вот -

program Project1;
uses
  SysUtils;
var
  s1,s2,s3:string;
function schet(s1,s2:string):string;
var
  i,j,k:Integer;
  check,check2:Boolean;
begin
  for i:=1 to Length(s1) do
  begin
    check:=False;
    for j:=1 to Length(s2) do
      if s1[i]=s2[j] then
        check:=True;
    if not check then
    begin
      check2:=False;
      for k:=1 to Length(s3) do // чтобы не добавлял одинаковые символы в результирующее слово
        if s1[i]=s3[k] then
          check2:=True;
      if not check2 then
        s3:=s3+s1[i];
    end;
  end;
end;
begin
  s3:='';
  write('Input the first word - ');
  Readln(s1);
  write('Input the second word - ');
  Readln(s2);
  schet(s1,s2); // сравниваем первое слово со вторым
  schet(s2,s1); // второе с первым 
  write('Result = ',s3);
  readln;
end.

[Hacker19_90]

Да нет же!
Ясно же написано

Получить третье слово из неповторяющихся символов, входящих как в первое, так и во второе слова.

собственно на что и обратил внимание
Serge_Bliznykov
Ну вот где рон входит в слово мама?
Короч если особо не загонятся оптимизацией хехе
можно так

Program GV_1;
Uses
    Crt;
var
    s1,s2: set of char;
    s3: string;
    i: integer;
Begin
   ClrScr;
   s1 := [];
   s2 := [];
   ReadLn (s3);
   for i := 1 to length(s3) do
   s1 := s1 + [s3[i]];
   ReadLn (s3);
   for i := 1 to length(s3) do
   s2 := s2 + [s3[i]];
   s1 := (s1*s2);
   for i := 1 to 255 do
       if chr(i) in s1 then Write(chr(i));
   Writeln;
   ReadKey;
end.

[ByAlex]

Автор сам не знает, что надо! Так или нет не понятно.

[Serge_Bliznykov]

Автор сам не знает, что надо! Так или нет не понятно.

согласен.
зато у него есть теперь ДВА разных решения (решающих разные задачи) - и он теперь может выбрать ту, что его преподавателю больше понравится!