Найти наименьший элемент каждого столбца - 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 и выполняет следующие действия:

  1. Создает массив a размером n x m, где n и m - это константы, которые определяют количество строк и столбцов массива соответственно.
  2. Заполняет массив случайными числами от -8 до 9.
  3. Выводит содержимое массива построчно.
  4. Находит наименьший элемент в каждом столбце массива.
  5. Выводит найденные значения вместе с соответствующими строками.
  6. Вычисляет сумму всех элементов в последней строке массива.
  7. Выводит сумму. Примечание: Вложенных списков в этом коде нет.

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

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