Даны 3 массива символов. Определить какие символы входят в состав всех трёх массивов

[VENOMIK]

помогите написать программу)Даны 3 массива символов. Определить какие символы входят в состав всех трёх массивов)С помощью функций или процедур на паскале)

[hiho]

Например, считывать символ из массивов и записывать новые в дополнительный массив, после каждого считанного проверять, а нет ли его в нашем массиве.

[VENOMIK]

в процедуре сравниваешь 2 массива на наличие одинаковых и получается новый массив из этих элементов а потом сравниваешь с третьим при вызове процедуры как то так должно быть)как только реализовать в программе не знаю

[Serge_Bliznykov]

тут многое зависит от того, что требуется найти/вывести в программе.
если сколько бы символ не встречался в этих трёх массивах, его нужно вывести ОДИН раз, то удобно использовать тип МНОЖЕСТВО (set of char)

если же (менее вероятно, но возможно и такое) символы должны выводится столько раз, сколько они заданы в массивах, то задачу надо решать перебором с поиском каждого элемента в оставшихся массивах...

допустим. есть три массива:
A: содержимое 'a', 'f', 'c', 'a', 'c', 'd'
B: содержимое 'd', 'z', 'f', 'a', 'n', 'f', 'd'
C: содержимое 'w', 'q', 'z', 'a', 'a', 'a', 'c', 'd', 'd'

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


p.s. в случае вашего адекватного ответа я легко могу написать пример, который решает эту задачу

[VENOMIK]

он должен вывести символы которые входят в состав всех трёх)Например тут это символ a,d,

[Mad_Cat]

var a,b,c: array [1..100] of char;
 s1,s2:set of char;
 res:set of char;
i,n1,n2,n3:integer;
begin
readln(n1);
for i:=1 to n1 do begin
readln(a[i]);s1:=s1+[a[i]];
end;
readln(n2);
for i:=1 to n2 do begin
readln(b[i]);s2:=s2+[b[i]];
end;
readln(n3);
for i:=1 to n3 do begin
readln(c[i]);
end;
for i:=1 to n3 do
if (c[i] in s1) and(c[i] in s2) and not(c[i] in res) then res:=res+[c[i]];
for i:=0 to 255 do
if chr(i) in res then write(chr(i),'  ');
end.

[<- DelpHIFanat ->]

Мой вариант этой программы:

Var
  Mas1, Mas2, Mas3, Res: Array[0..39] Of Char;
  i, j, k, r, N: Byte;

begin

  Repeat
    Write('N = ');
    ReadLn(N);
  Until (N In [1..40]);

  WriteLn('Massiv 1: ');
  For i:=0 To N-1 Do
    Begin
      Write('Mas1[', i+1, '] = ');
      ReadLn(Mas1[i]);
    End;

  WriteLn('Massiv 2: ');
  For i:=0 To N-1 Do
    Begin
      Write('Mas2[', i+1, '] = ');
      ReadLn(Mas2[i]);
    End;

  WriteLn('Massiv 3: ');
  For i:=0 To N-1 Do
    Begin
      Write('Mas3[', i+1, '] = ');
      ReadLn(Mas3[i]);
    End;

  r:=0;
  For i:=0 To N-1 Do
    Begin
      j:=0;
      While ((Mas1[i]<>Mas2[j]) And (j<N)) Do
        Inc(j);

      If ((j<=N-1) And (Mas1[i]=Mas2[j])) Then
        Begin
          k:=0;
          While ((Mas1[i]<>Mas3[k]) And (k<N)) Do
            Inc(k);

          If ((k<=N-1) And (Mas1[i]=Mas3[k])) Then
            Begin
              Res[r]:=Mas1[i];
              Inc(r);
            End;
        End;
    End;

  WriteLn;
  WriteLn('-------------------------');
  WriteLn;

  For i:=0 To r Do
    WriteLn(Res[i]);

  ReadLn;
end.

[VENOMIK]

Спасибо большое!я вот сам накалякал вроде работает)вот мой вариант:

Program VeNOM;
type
      massivx=array[1..5] of char;
      massivy=array[1..5] of char;
      massivq=array[1..5] of char;
var
      q:massivq;
      n:integer;
      x:massivx;
      y:massivy;
      z:array[1..5] of char;
      i:integer;
      j:integer;
procedure srav(x1:massivx; y1:massivy; i:integer; j:integer; var q:massivq);
begin
      for i:=1 to 5 do
      for j:=1 to 5 do
      if x1[i]=y1[j] then
      q[i]:=x[i];
end;
begin
     writeln('vvedite 1 massiv');
     for i:=1 to 5 do readln(x[i]);
     writeln('vvedite 2 massiv');
     for i:=1 to 5 do readln(y[i]);
     writeln('vvedite 3 massiv');
     for i:=1 to 5 do readln(z[i]);
     srav(x,y,i,j,q);
     for i:=1 to 5 do
     for j:=1 to 5 do
     if q[i]=z[j] then writeln('odinakvie simvol=>',q[i]);
end.

[Serge_Bliznykov]

VENOMIK

1. Вы плохо понимаете, зачем нужно описание ТИПОВ.
Зачем Вы наплодили столько одинаковых типов с разными именами?!
А в довершение всего ещё и для Z не произвели описание.
я бы рекомендовал так:

type
      massiv=array[1..5] of char;
var
      x, y, z, q:massiv;
      i, j :integer;
...

2. переменная n описана, но не используется.

3. не надо переменные-счётчики передавать в процедуру.
там нужно объявлять переменные и использовать их.
примерно так

procedure srav(x1, y1 :massiv; var q:massiv);
var i, j : integer;
begin
      for i:=1 to 5 do
      for j:=1 to 5 do
        if x1[i]=y1[j] then
            q[i]:=x[i];
end;

[VENOMIK]

это был как бы черновой вариант программы)как вы написали про типы можно было сделать если массивы одинакового размера как у меня но если они будут разные нужно делать по другому)вот что получилося в итоге но и его можно было подредакитровать:

Program VeNOM;
type
      massivx=array[1..5] of char;
      massivy=array[1..5] of char;
      massivq=array[1..5] of char;
var
      q:massivq;
      x:massivx;
      y:massivy;
      z:array[1..5] of char;
      i:integer;
      j:integer;
      flag:boolean;
procedure srav(x1:massivx; y1:massivy; i:integer; j:integer; var q:massivq);
begin
      for i:=1 to 5 do
      for j:=1 to 5 do
      if x1[i]=y1[j] then
      q[i]:=x[i];
end;
begin
     writeln('vvedite 1 massiv');
     for i:=1 to 5 do readln(x[i]);
     writeln('vvedite 2 massiv');
     for i:=1 to 5 do readln(y[i]);
     writeln('vvedite 3 massiv');
     for i:=1 to 5 do readln(z[i]);
     srav(x,y,i,j,q);
     flag:=false;
     for i:=1 to 5 do
     for j:=1 to 5 do
     if q[i]=z[j] then
        begin
              writeln('odinakvie simvol=>',q[i]);
              flag:=true;
        end;
     if flag=false then writeln('odinakovix simvolov net');
end.