Матрица N на N Pascal

[kostazs]

Дали в инсте такую задачу, требуется решение:

Дана матрица размерности N x N. Создать убывающую последовательности чисел, составленную из максимальных элементов матрицы по столбцам. Вывести исходную матрицу, максимальные элементы с индексами и полученную последовательность. Поиск максимального элемента в столбце оформить подпрограммой

Заранее благодарен за помощь.

[Grag]

Обращайся, сделаю быстро...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[kostazs]

платная помощь мне не подходит

[Grag]

Тогда свои наработки в студию... Что-то не получается - возможно помогут...

[Mad_Cat]

платная помощь мне не подходит

а для бесплатной : где ваши попытки сделать задачу

[kostazs]

Вчера от друга получил код программы.
Не пойму некоторые моменты: Что делает procedure Max(mt:matr;n:byte;var v:mas), чля чего служит переменная imx, Так же непонятно часть с переменными a b, часть где присутствует это until n in [1..nmax]; тоже не ясна, и к чему это write(a[i,j]:4); кароче... куча вопросов по коду.. Когда учился в школе как-то по проще все было =)

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of integer;
procedure Max(mt:matr;n:byte;var v:mas);
var i,j,imx:byte;
    mx:integer;
begin
writeln('Максимальные элементы столбцов:');
for j:=1 to n do
 begin
  v[j]:=mt[1,j];imx:=1;
  for i:=1 to n do
  if mt[i,j]>v[j] then
   begin
    v[j]:=mt[i,j];
    imx:=i;
   end;
  write('[',imx,',',j,']=',v[j],'  ');
 end;
writeln;
end;
var a:matr;
    b:mas;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Max(a,n,b);
{сортировка по убыванию}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln('Максимальные элементы столбцов по убыванию:');
for i:=1 to n do
write(b[i],' ');
readln
end.

[Serge_Bliznykov]

kostazs, поздравляю. Похоже, что программа написана верно.

procedure Max(mt:matr;n:byte;var v:mas)

она получает на вход матрицу mt размерностью n на n
и формирует (и возвращает) вектор (одномерную матрицу) v, содержащую максимальные элементы.

чля чего служит переменная imx

вспомогательная переменная.
Используется для того, чтобы запомнить индекс максимального элемента и потом выдать его (индекс) на экран. (при работе процедуры Max она пишет индексы каждого найденного максимального элемента).

непонятно часть с переменными a b

В смысле = "непонятно" ?! Переменная a - это Ваша исходная матрица, а переменная b - это полученный вектор (одномерный массив) с результатами.

repeat
  write('Размер матрицы=');
  readln(n);
until n in [1..nmax];

повторять запрос размера матрицы до тех пор, пока не будет введенно корректное значение n. Корректное, это когда n лежит в промежутке от 1 до максимально возможного nmax (это задаётся константой вначале программы).

кароче... куча вопросов по коду..

Короче. Рекомендую Вам взять курс лекций по Паскалю (их полно в Интернете) или пару толковых книжек, и почитать.
Полезно Вам будет начертить алгоритм решения данной задачи в виде блок-схемы. Ну и погоняйте программу в пошаговом режиме. По сути ничего сложного в этой программе нет.

[Grag]

Сообщение от Serge_Bliznykov

kostazs, поздравляю. Похоже, что программа написана верно.

Вчера от друга получил код программы.

Наверное, друга нужно поздравлять...

[Stilet]

Не пойму некоторые моменты

А у друга почему не спросить? Автор то лучше расскажет?

[kostazs]

Сообщение от Stilet

А у друга почему не спросить? Автор то лучше расскажет?

Больно уж он занятой) Лишний раз беспокоить не стану.

В любом случае, спасибо. Вроде стало немного понятнее, еще полистаю книжки в инете.