процедуры и двумерный массив Опции

[18192123]

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

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

проблема в том, что процедуры для меня - новая тема, я ее еще не достаточно освоила, а задание нужно к середине недели

for i:=1 to n do
for k:=1 to n-1 do
if j:=1 to n-k do
if a[i,j]<a[i,j+1] then
begin
t:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=t;
end;

b:=0;
for i:=1 to n do
for j:=1 to i do
a[i,j]:=b;

больше ничего не могу...

проблема в том, что я не разберусь, какие параметры должны быть входными-выходными

Сообщение отредактировано: volvo - 8.11.2006 3:52

[volvo]

В процедуру сортировки зачем передаешь A, B, C? Лучше описать их локально внутри процедуры, иначе я повторяю - нет смысла делать процедуры, и заставлять их работать с глобальными переменными...

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

Насчет самой сортировки пузырьком - смотри в FAQ-е, надоело уже исправлять одну и ту же ошибку!

procedure sortirovka(var y: matr; m: integer);
var 
  a, b, L: integer;
  c: real;
begin
  for a:=1 to m do
    for l:=1 to m-1 do
      for b:=1 to m-l do
        if y[a,b]<y[a,b+1] then begin
          c:=y[a,b];
          y[a,b]:=y[a,b+1];
          y[a,b+1]:=c;
        end
end;

[18192123]

В процедуру сортировки зачем передаешь A, B, C? Лучше описать их локально внутри процедуры, иначе я повторяю - нет смысла делать процедуры, и заставлять их работать с глобальными переменными...

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

Насчет самой сортировки пузырьком - смотри в FAQ-е, надоело уже исправлять одну и ту же ошибку!

procedure sortirovka(var y: matr; m: integer);
var 
  a, b, L: integer;
  c: real;
begin
  for a:=1 to m do
    for l:=1 to m-1 do
      for b:=1 to m-l do
        if y[a,b]<y[a,b+1] then begin
          c:=y[a,b];
          y[a,b]:=y[a,b+1];
          y[a,b+1]:=c;
        end
end;

а как мне вывести массив после сортировки и массив после обнуления с учетом процедур?

М

Не надо делать такие большие цитаты, когда это не необходимо. Уважай других участников форума. klem4.