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

[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

[mamont001]

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

 
procedure n1;
var  t:{тип}
begin
 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;
end;

[volvo]

mamont001, и... ?

А матрицу что, глобально описывать? Тогда смысл в процедурах какой? Никакого...

18192123, пробуй так:

Type TMatrix = array[1 .. 10, 1 .. 10] of integer;
Procedure Obnulenie(Var mx: TMatrix); { Внутри процедуры работать с этой переменной }
begin
  ... 
end;

То же самое - с сортировкой...

[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... Есть замена.

[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.