Для каждой матрицы найти минимальный элемент в каждом столбце и записать их в виде одномерных массивов - Turbo Pascal
Формулировка задачи:
К сожалению, не объяснили на лекции эти задания, сам всё разобрать не могу. Помогите, пожалуйста:
Даны две матрицы А(5, 6) и В(10, 15). Для каждой матрицы найти минимальный элемент в каждом столбце матрицы и записать их в виде одномерных массивов С и D с помощью процедуры. С помощью процедуры-функции вычислить суммы элементов вектора С и аналогично для D.
Решение задачи: «Для каждой матрицы найти минимальный элемент в каждом столбце и записать их в виде одномерных массивов»
textual
Листинг программы
uses crt; const nmax=15; type mtr=array[1..nmax,1..nmax] of integer; mas=array[1..nmax] of integer; procedure matrix(var a:mtr;m,n:byte;c:char); var i,j:byte; begin writeln('Матрица ',c); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:3); end; writeln; end; end; procedure minstb(a:mtr;m,n:byte;var b:mas); var i,j:byte; mn:integer; begin for j:=1 to n do begin mn:=a[1,j]; for i:=2 to m do if a[i,j]<mn then mn:=a[i,j]; b[j]:=mn; end; writeln('Массив минимальных в столбцах'); for i:=1 to n do write(b[i]:3); writeln end; function summa(a:mas;n:byte):integer; var i:byte; s:integer; begin s:=0; for i:=1 to n do s:=s+a[i]; summa:=s end; var a,b:mtr; c,d:mas; begin clrscr; randomize; matrix(a,5,6,'A'); minstb(a,5,6,c); writeln('Сумма=',summa(c,6)); writeln('Нажмите Enter для продолжения'); readln; matrix(b,10,15,'B'); minstb(b,10,15,d); writeln('Сумма=',summa(d,15)); writeln('Нажмите Enter для выхода'); readln end.
Объяснение кода листинга программы
- В функции
matrix
создается матрица случайных чисел размером 5x6 и выводится на экран. - Затем вызывается функция
minstb
, которая находит минимальный элемент в каждом столбце матрицы и записывает их в виде одномерных массивов. - После этого вычисляется сумма всех элементов в полученном массиве и выводится на экран.
- В основной части программы создается еще одна матрица случайных чисел размером 10x15 и вызывается функция
minstb
. - Вычисляется сумма всех элементов в полученном массиве и выводится на экран.
- Программа завершается после ввода пользователем символа Enter.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д