Заданы две матрицы. Подсчитать количество элементов, которые больше по абсолютному значению чем произвольное ч - 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.

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

  1. В начале кода объявляются константа и тип данных.
  2. Затем объявляются переменные: a, b - матрицы; k1, k2, i, j, n, s - целые числа.
  3. Далее происходит инициализация случайной генерации чисел от -n_max до n_max / 2.
  4. Выводится приглашение ввести число S.
  5. Выводится сообщение о матрицах A и B.
  6. В цикле 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] выводится пробел.
    • цикл завершается.
  7. Выводится сообщение о количестве элементов в матрице A и B, больших S.
  8. Конец программы.

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

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