Почему программа выводит некорректный результат?

Question

[SevaSava]

Найдите способ сформировать ряд случайных булевых значений, напечатайте 20 из них. Подсказка: булевы значения плучаются сравнением двух случайных целых чисел.

Программа выдаёт непонятный результат. По-моему, она некорректно сравнивает элементы. В чём я ошибся? Писал программу в PascalABC.

program randbul;
uses crt;
var A: array [1..20] of integer;
    B: array [1..20] of integer;
    result: boolean;
    i,j,n,m: integer;
begin
     clrscr;
     n:=20;
     m:=20;
     for i:=1 to n do
         begin
              Randomize;
              A[i]:=random(20);
         end;
     Writeln('Ìàññèâ A: ');
     {for i:=1 to N do
         Writeln(A[i])};
     for j:=1 to M do
         begin
              Randomize;
              B[j]:=random(20);
         end;
     Writeln('Ìàññèâ B: ');
     {for j:=1 to M do
         Writeln(B[j]);}
     {if (A[i] = B[i]) then
        writeln('True.')
     else
         Writeln('False.');  }
     for i:=1 to N do
         for j:=1 to M do
             if (A[i] = B[j]) then
                begin
                   Writeln(A[i]);
                   Writeln(B[j]);
                   result:=true;
                   writeln('   ', Result);
                end
             else
                 begin
                      //Writeln(A[i]);
                      //Writeln(B[j]);
                      result:=false;
                      writeln('   ', Result);
                 end
end.

Comments

[Hemul GM]

Запусти под отладкой и смотри

[mayton2019]

По заданию не очень понятно какая форма распределения должна быть. Если булево
случаная величина - то это 50 на 50 или какая-то другая форма? Это важно для данной реализации.

И надо посчитать вероятность срабатывания этого условия. Возможно это формула сложения
вероятностей для совместных событий.

for i:=1 to N do
         for j:=1 to M do
             if (A[i] = B[j]) then
                begin
                   Writeln(A[i]);
                   Writeln(B[j]);
                   result:=true;

[kalapanga]

Программа выдаёт непонятный результат.

а привести пример этого результата и написать, что в нём непонятного, нельзя было? Подозреваю, что у Вас true встречается гораздо реже чем false, так?
Я бы по-другому это решал. Массивы A и B не нужны совершенно, это раз. Сравнение чисел - это не только проверка равенства, это два.
Делаем так. Получаем одно случайное число X, получаем второе случайное число Y. Наш искомый булевый Z равен (X>Y). Печатаем его. И так 20 раз. Ну, чтобы "на ребро не встало" для определённости пусть будет Z := (X>=Y).
Но! Задание ведь явно учебное, да? А учебные задания надо рассматривать в контексте изучаемого материала. Что за тема, что Вам в ней рассказывали, что нужно использовать для решения и т.п. Поэтому не факт, что моё решение или решение другого пользователя устроит Вашего преподавателя.
p.s. Randomize не надо тыкать во все возможные места. Его нужно вызвать один раз в начале программы.

[SevaSava]

kalapanga, добрый день.
Был скрин с выводом результата. Не загрузился. Исправлю.
Благодарю за наводку. Не понял только один момент:

Наш искомый булевый Z равен (X>Y)

Это как? В программу не вобьёшь Z:=X>Y. А у меня мысль пока только такая. Не догоняю чуток..

Задание учебное, да. Из книги "Песни о Паскале". В теме про цикл repeat-until. Через этот цикл решения не нашёл, вот и решил дебри с массивами залезть)

[kalapanga]

В программу не вобьёшь Z:=X>Y

Что, правда что ли? (PascalABC под рукой нет) Выражение как выражение...
Ну напишите: if X >= Y then Z := true else Z := False;
А цикл у Вас по большому счёту только один и нужен - 20 итераций отсчитать (ну или какое-то другое заданное число). Сейчас у Вас там цикл For, если очень нужно для отчётности, то замените его на repeat-until. Это не принципиально.

Answer 1

[Atom Engineer]

Массивы тут не нужны.

var x,y,i: integer;
        Z: boolean;
begin
     Randomize;
     repeat
           x:=Random(20);
           y:=Random(20);
           Z:=(x>=y);
           writeln(Z);
           i:=i+1;
     until i>20;
end.

Comments

[SevaSava]

Благодарю!

[kalapanga]

SevaSava, добавлю только, что в операторах для расчёта x и y в качестве аргумента функции Random совершенно необязательно брать аргумент 20. Пожалуй даже, чем больше это число, тем лучше ("случайнее") будут Ваши значения. Да и вообще, необходимость этого аргумента притянута только упоминанием целых чисел в задаче. Вполне сгодились бы x и y типа real и их получение просто x := Random; y := Random;