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