[Pascal] Нахождение одинаковых элементов в 2-х одномерных числовых массивах

[just4smth]

Задание:

Даны два одномерных числовых массива. Есть ли у них одинаковые элементы?

Реализация:

Program var15_odnomernii_massiv;
Uses crt;
Const n=3;
Var a:array [1..n] of integer;
    b:array [1..n] of integer;
    i,j:integer;
    rav:boolean;

Begin
        clrscr;
        Writeln('Введите элементы первого массива');
        for i:=1 to n do
            Readln(a[i]);
        Writeln('Введите элементы второго массива');
        for j:=1 to n do
            Readln(b[j]);

        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true
              else
                 rav:=false;

        if rav=true then
           Writeln('Одинаковые элементы есть')
        else
           Writeln('Одинаковых элементов нет');


        Readln;
End.

Но получается так, что переменная rav принимает значение истины, если массивы полностью одинаковые.
Подскажите, как исправить?

[veniside]

> как исправить?

rav := false;
i := 1;
while (not rav and (i <= n)) do begin
           for j:=1 to n do
              if a[i]=b[j] then begin
                 rav:=true
                 break;
             end;
  inc(i);
end;

в паскале же есть break; вроде как.

if rav=true then

если масло маслянное. Достаточно просто "if rav then"

[just4smth]

если масло маслянное. Достаточно просто "if rav then"

Точно.

Спасибо, буду разбираться.

[Антон Лысенко]

Вот программа без brake

Program Project1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Const n=3;
Var a:array [1..n] of integer;
    b:array [1..n] of integer;
    i,j:integer;
    rav:boolean;

  Begin
 writeln('enter first array');
        for i:=1 to n do
            Readln(a[i]);
         writeln('enter second array');
        for j:=1 to n do
            Readln(b[j]);
       repeat
        rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;
                 i:=n;
       until(rav)or(i=n);
        if rav then
           Writeln('true')
        else
           Writeln('false');
        Readln;
End.

[Mad_Cat]

Вот программа без brake

бред какой то)

 rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;

не надо тут repeat-until либо цикл for надо поменять либо на while либо на все тот же repeat

[Антон Лысенко]

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

бред какой то)

 rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;

не надо тут repeat-until либо цикл for надо поменять либо на while либо на все тот же repeat

почему? что тут бредового?)

[Антон Лысенко]

а понял что repeat здесь не нужно))) можно просто так:

 rav:=false;
        for i:=1 to n do
           for j:=1 to n do
              if a[i]=b[j] then
                 rav:=true;

[Mad_Cat]

да то что

for i:=1 to n do
for j:=1 to n do

в любом случае отработает до конца и твои repeat until нафиг не нужны

[Alex11223]

Как минимум то, что вы забыли begin end в цикле и программа делает немного не то, что вы предлагали.

[Антон Лысенко]

ой блин я опять тупанул) здесь можно сообщения удалять?)