Найти количесто нулевых элементов в матрице - Pascal ABC
Формулировка задачи:
Решение задачи: «Найти количесто нулевых элементов в матрице»
program robota8; const N = 4; M = 4; V = 6; C = 8; type massiv = array [1..100, 1..100] of integer; var a, b: massiv; // A: array[1..N, 1..V] of integer; // B: array[1..M, 1..C] of integer; i, j, o, p, t: integer; function Zero(x: massiv; k, m: byte): integer; var g: byte; z: integer; begin z := 0; for var i := 1 to k do for var j := 1 to m do if X[i, j] = 0 then Inc(z); Zero := z; end; begin randomize; writeln('Array A:'); for i := 1 to n do begin for j := 1 to v do begin a[i, j] := random(0, 1); write(a[i, j]:4); end; writeln; end; writeln('Array B:'); for o := 1 to m do begin for p := 1 to c do begin B[o, p] := random(0, 1); write(B[o, p]:4); end; writeln; end; t := zero(A, n, v); writeln('Кількість нульових елементів таблиць A i B: ', zero(A, n, v) + zero(b, m, c)); end.
Объяснение кода листинга программы
В данном коде объявлены две переменные типа массив
- a
и b
, которые представляют собой матрицы размером NxV и MxC соответственно.
Функция Zero
используется для подсчета количества нулевых элементов в матрице A
. Эта функция принимает три аргумента: x
- ссылка на матрицу A
, k
и m
- два последних индекса матрицы A
. Внутри функции используется цикл for
, который проходит по всем элементам матрицы A
с индексами от 1 до k. Если элемент равен 0, то переменная g
инкрементируется. В конце функция возвращает значение переменной g
.
В основной части программы происходит генерация случайных чисел для элементов матрицы A
и B
. Затем вызывается функция Zero
для подсчета количества нулевых элементов в матрице A
. Результат выводится на экран вместе с количеством нулевых элементов в матрице B
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д