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

[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 - 7.11.2006 23:52

[18192123]

uses crt;
const n=10;
type vect=array[1..n] of real;
     matr=array[1..n] of vect;
var
   a:matr;
   i,j,t:integer;
   k:real;
   procedure sortirovka(var x:matr;  a,b,m,l:integer;var c:real);
   var y:matr;
   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;
   procedure obnylenie(var x:matr; a,b,m:integer; var c:real);
   var y:matr;
   begin
   c:=0;
   for a:=1 to m do
   for j:=1 to a do
   y[a,b]:=c;
   end;
   begin
   clrscr;
   writeln ('vvedite massiv');
   for i:=1 to n do
   for j:=1 to n do read (a[i,j]);
   sortirovka(a,i,j,n,t,k);
   for i:=1 to n do
   for j:=1 to n do writeln (a[i,j]:4 :1,' ');
   obnylenie(a,i,j,n,k);
   for i:=1 to n do
   for j:=1 to n do writeln (a[i,j]:4 :1,' ');
   readkey;
   end.

помогите с этим разобраться

М

Новости не читаем? Просил же не пользоваться тегами PASCОDE... Есть замена.