Найти наименьший элемент каждого столбца - Turbo Pascal
Формулировка задачи:
Обработать матрицу, элементами которой являются случайные значения функции F(X). Вывести на экран исходную матрицу и полученные результаты. В программе использовать подпрограммы.
Задание(N<20; M<20)
Для матрицы A[1..M,1..M] найти наименьший элемент каждого столбца и поменять его местами с соответствующим элементом побочной диагонали; вывести матрицу и сумму элементов побочной диагонали.
Функция:
F(X)=X3+1
-8<X<9
Примечание: (3 - степень x)
Решение задачи: «Найти наименьший элемент каждого столбца»
textual
Листинг программы
uses crt; const n=4;m=4; var a:array [1..n,1..m] of integer; i,j,x,min,mini,minj,s:integer; begin clrscr; randomize; writeln('Matrica : '); for i:=1 to n do begin for j:=1 to m do begin x:=random(18)-8; {-8<=x<=9 (17-8) } a[i,j]:=x*x*x+1; write(a[i,j]:7); end; writeln; end; for j:=1 to n do begin min:=maxint; for i:=1 to m do if (a[i,j]<min) then begin min:=a[i,j]; mini:=i; minj:=j; end; writeln('Min el v ',j,' stolbce = ',min); x:=a[mini,minj]; a[mini,minj]:=a[n+1-j,j]; a[n+1-j,j]:=x; end; writeln; s:=0; writeln('Poluchennaya matrica : '); for i:=1 to n do begin s:=s+a[i,n-i+1]; for j:=1 to m do begin write(a[i,j]:7); end; writeln; end; writeln('Summa na pobochnoy = ',s); readkey; end.
Объяснение кода листинга программы
Этот код написан на языке Turbo Pascal и выполняет следующие действия:
- Создает массив
a
размеромn x m
, гдеn
иm
- это константы, которые определяют количество строк и столбцов массива соответственно. - Заполняет массив случайными числами от -8 до 9.
- Выводит содержимое массива построчно.
- Находит наименьший элемент в каждом столбце массива.
- Выводит найденные значения вместе с соответствующими строками.
- Вычисляет сумму всех элементов в последней строке массива.
- Выводит сумму. Примечание: Вложенных списков в этом коде нет.