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

[votsar]

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

[Aleksandr H.]

логичное ф = 0
для і от леваяграницаА до праваяграницаА
   для j от леваяграницаB до праваяграницаB
    если а[i] = b[j] тогда ф = 1; выход цикла для
   конец для
конец для
если ф тогда вывод сообщения "есть совпадения"

[Serge_Bliznykov]

есть ещё достаточно экзотическое решение с помощью использования множеств
Но сразу предупреждаю, это не пойдёт в Unicode-версиях Паскаля (FreePascal/свежие версии Delphi и т.п.)
но в старом добром "классическом" Паскале отработает как надо!

const
  n = 5;
var a, b, res : set of char;
  m1, m2 : array[1..5] of char;
  i, cnt : integer;
begin
  WriteLn('Программа определения различных символов в двух массивах');
  {ввод массива m1 и заполнение множества a}
  a:=[];
  i:=1;
  repeat
    Write('Введите ',i,'-й элемент первого массива: ');
    Read(m1[i]);
    if m1[i] in a then WriteLn('Неверно! Такой символ уже есть в массиве!')
    else begin Include(a, m1[i]); Inc(i)  end;
  until i>n;
  {ввод массива m2 и заполнение множества b}
  b:=[];
  i:=1;
  repeat
    Write('Введите ',i,'-й элемент второго массива: ');
    Read(m2[i]);
    if m2[i] in b then WriteLn('Неверно! Такой символ уже есть в массиве!')
    else begin Include(b, m2[i]); Inc(i)  end;
  until i>n;
  
  {ввод закончен. Теперь, собственно,сама программа!}
  res := (a-b)+(b-a);
  cnt := 0;
  for i:=0 to 255 do
    if chr(i) in res then Inc(cnt);

  if cnt=0 then WriteLn('В массивах нет разных символов')
   else WriteLn('В массивах есть различные элементы в количестве ',cnt,' шт.');

end.

[votsar]

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

есть ещё достаточно экзотическое решение с помощью использования множеств
Но сразу предупреждаю, это не пойдёт в Unicode-версиях Паскаля (FreePascal/свежие версии Delphi и т.п.)
но в старом добром "классическом" Паскале отработает как надо!

const
  n = 5;
var a, b, res : set of char;
  m1, m2 : array[1..5] of char;
  i, cnt : integer;
begin
  WriteLn('Программа определения различных символов в двух массивах');
  {ввод массива m1 и заполнение множества a}
  a:=[];
  i:=1;
  repeat
    Write('Введите ',i,'-й элемент первого массива: ');
    Read(m1[i]);
    if m1[i] in a then WriteLn('Неверно! Такой символ уже есть в массиве!')
    else begin Include(a, m1[i]); Inc(i)  end;
  until i>n;
  {ввод массива m2 и заполнение множества b}
  b:=[];
  i:=1;
  repeat
    Write('Введите ',i,'-й элемент второго массива: ');
    Read(m2[i]);
    if m2[i] in b then WriteLn('Неверно! Такой символ уже есть в массиве!')
    else begin Include(b, m2[i]); Inc(i)  end;
  until i>n;
  
  {ввод закончен. Теперь, собственно,сама программа!}
  res := (a-b)+(b-a);
  cnt := 0;
  for i:=0 to 255 do
    if chr(i) in res then Inc(cnt);

  if cnt=0 then WriteLn('В массивах нет разных символов')
   else WriteLn('В массивах есть различные элементы в количестве ',cnt,' шт.');

end.

вот что он мне выдает

[votsar]

Просит ввести только i-ый элемент первого массива и выполняет программу(

[Serge_Bliznykov]

такого просто не может быть.
Что у Вас за Паскаль?

дело в том, что для строчки кода

    Write('Введите ',i,'-й элемент первого массива: ');

НЕ МОЖЕТ вывести сообщение "Введите i-й элемент....."
вместо i будет выводится ЧИСЛО.
если это не так - выбрасывайте этот Паскаль в помойку.

[votsar]

да, все правильно,выводит сообщение введите 1-й элемент первого массива
после ввода завершает программу

[Serge_Bliznykov]

Вы так и не ответили, какой у Вас Паскаль...

и я не могу понять, ПОЧЕМУ ВЫ программу НАБИРАЛИ ВРУЧНУЮ!
при этом с ошибками?!!
Выделить тут, на форуме, скопировать в буфер обмена, открыть любой текстовый редактор, вставить код программы
и сохранить в текстовый файл с расширением .PAS - неужели это так сложно?!!!!


Теперь об ошибках.
Вы при переносе программы, например, неверно задаёте условие выхода из цикла!
сравните

until i>n;

и что Вы написали...

[votsar]

турбо паскаль.
Не знал что так можно((сейчас сделаю

[Aleksandr H.]

хм..у меня закосячило на вводе 1 масива. Приглашает ввести 1-й елемент, ввожу 1 жме ентер, дальше пишет с новой строки приглашения ввода 2-3 елементов и только после 4-го приглашения можна ввести новое значение