Создать новую матрицу, каждый элемент которой равен минимуму из значений соответствующих элементов двух данных матриц - Pascal

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

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

Даны две матрицы одинакового размера. создать матрицу каждый элемент которой равен минимальному из значений соответствующих элементов двух данных матриц! помогите

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

textual
Листинг программы
var a,b,c:array[1..10,1..10] of real;
    m,n,i,j:integer;
begin
randomize;
repeat
writeln('Введите размеры матриц m,n от 2 до 10');
readln(m,n);
until (m in [2..10])and(n in [2..10]);
writeln('Матрица А');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Матрица B');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=9*random;
    write(b[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Матрица C');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<b[i,j] then c[i,j]:=a[i,j] else c[i,j]:=b[i,j];
    write(c[i,j]:5:2);
   end;
  writeln;
 end;
end.

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

  1. Объявлены три матрицы a, b и c размером 10x10, а также четыре переменные m, n, i, j типа integer.
  2. Пользователю предлагается ввести размеры матриц m и n от 2 до 10.
  3. В цикле repeat-until происходит проверка корректности введенных размеров матриц и вывод сообщения об ошибке при неправильном вводе.
  4. В цикле for i:=1 to m выполняется заполнение матрицы a случайными значениями от 0 до 99 и вывод этих значений с шагом 5 знаков после запятой.
  5. Аналогично заполняется и выводится матрица b.
  6. В цикле for i:=1 to m выполняется сравнение элементов матриц a и b и заполнение матрицы c значениями минимума из этих двух матриц.
  7. Аналогично выводятся значения элементов матрицы c с шагом 5 знаков после запятой.
  8. Конец программы.

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

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