Заданы две матрицы. Подсчитать количество элементов, которые больше по абсолютному значению чем произвольное ч - Turbo Pascal
Формулировка задачи:
Заданы две матрицы. Подсчитать количество элементов, которые больше по абсолютному значению чем произвольное число S
Решение задачи: «Заданы две матрицы. Подсчитать количество элементов, которые больше по абсолютному значению чем произвольное ч»
textual
Листинг программы
const n_max = 100; type matrix = array[1..n_max, 1..n_max] of integer; var a, b: matrix; k1, k2, i, j, n, s: integer; begin randomize; n := 10; s := 0; k1 := 0; k2 := 0; write('Введите число S: '); readln(s); writeln('Матрица А:':25, 'Матрица B:':50); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := -n_max div 2 + random(n_max); write(a[i, j]:4); if abs(a[i, j]) > s then inc(k1); end; write(' ':10); for j := 1 to n do begin b[i, j] := -n_max div 2 + random(n_max); if abs(b[i, j]) > s then inc(k2); write(b[i, j]:4); end; writeln; end; writeln('В матрице А элементов, больших S: ', k1, 'В матрице B элементов, больших S: ':50, k2); end.
Объяснение кода листинга программы
- В начале кода объявляются константа и тип данных.
- Затем объявляются переменные: a, b - матрицы; k1, k2, i, j, n, s - целые числа.
- Далее происходит инициализация случайной генерации чисел от -n_max до n_max / 2.
- Выводится приглашение ввести число S.
- Выводится сообщение о матрицах A и B.
- В цикле for i от 1 до n происходит следующее:
- для каждой строки матрицы A вычисляется значение элемента a[i, j] и выводится на экран. Если абсолютное значение этого элемента больше S, увеличивается значение k1.
- после вывода элемента a[i, j] выводится пробел.
- затем, в цикле for j от 1 до n происходит следующее:
- для каждой строки матрицы B вычисляется значение элемента b[i, j] и выводится на экран. Если абсолютное значение этого элемента больше S, увеличивается значение k2.
- после вывода элемента b[i, j] выводится пробел.
- цикл завершается.
- Выводится сообщение о количестве элементов в матрице A и B, больших S.
- Конец программы.