Сформировать два массива целых чисел; вывести числа, встречающиеся в каждом массиве - Pascal

Узнай цену своей работы

Формулировка задачи:

сформировать два массива целых чисел определенной длины вывести на печать числа встречающиеся в каждом массиве в паскале

Решение задачи: «Сформировать два массива целых чисел; вывести числа, встречающиеся в каждом массиве»

textual
Листинг программы
uses
  crt;
const
  n = 10;
 
var
  A, B: array[1..n] of Integer;
  i, j: Integer;
  k: Boolean;
 
begin
  clrscr;
  randomize;
  writeln('Array A: ');
  for i := 1 to n do
  begin
    A[i] := random(n);
    write(a[i]:4);
  end;
  writeln;  
  writeln('Array B: ');  
  for i := 1 to n do
  begin
    B[i] := random(n);
    write(b[i]:4);    
  end;
  writeln;
  writeln('Числа встречающиеся в каждом массиве: ');
  for i := 1 to n do
  begin
    k := false;
    for j := 1 to n do
      if A[i] = B[j] then
      begin
        k := true;
        continue;
      end;
    if k  then
      write('  ', A[i]);
  end;
  
  for i := 1 to n do
  begin
    k := false;
    for j := 1 to n do
      if B[i] = A[j] then
      begin
        k := true;
        continue;
      end;
    if k then
      write('  ', B[i]);
  end;
  readkey;
end.

Объяснение кода листинга программы

  1. Объявляются переменные:
    • A, B: array[1..n] of Integer; - массивы целых чисел размером n
    • i, j: Integer; - переменные для циклов
    • k: Boolean; - переменная для хранения флага
  2. Генерируются случайные числа и заполняется массив А:
    • Цикл от 1 до n, генерация случайного числа и его запись в массив A
  3. Выводится массив А:
  4. Генерируются случайные числа и заполняется массив B:
    • Цикл от 1 до n, генерация случайного числа и его запись в массив B
  5. Выводится массив B:
  6. Ищутся числа, встречающиеся в каждом массиве:
    • Цикл от 1 до n для массива A:
      • Устанавливается флаг k в false
      • Цикл от 1 до n для массива B:
      • Если текущий элемент массива A равен текущему элементу массива B:
        • Устанавливается флаг k в true
        • Продолжается выполнение цикла
      • Если флаг k установлен в true, то выводится текущий элемент массива A
  7. Ищутся числа, встречающиеся в каждом массиве:
    • Цикл от 1 до n для массива B:
      • Устанавливается флаг k в false
      • Цикл от 1 до n для массива A:
      • Если текущий элемент массива B равен текущему элементу массива A:
        • Устанавливается флаг k в true
        • Продолжается выполнение цикла
      • Если флаг k установлен в true, то выводится текущий элемент массива B
  8. Ожидается нажатие клавиши.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы