Методы сортировки..... Опции

[perez]

Народ, помогите, лаба висит на носу.... Как выглядит сортировка методом просеивания....напишите плиз....можно использовать только ее

[perez]

Вот майн прога, че в ней не правильно?

Код

program pr5;
uses crt;
type
ta = Array[1 .. 100,1..100] Of Integer;
Var i,n,j,m: Integer;
a : TA;
procedure p5(var a: ta; n,m: integer);
var
i,j,t,l : integer;
begin
for j:=1 to m do
  For i := 2 To n do
    Begin
      T := a[i,j];
      l := Pred(i);
      While (T < a[l,j]) and (l >= 0) Do
        Begin
          a[Succ(l),j] := a[l,j];
           Dec(l,j);
        End;
      a[Succ(l),j] := T;
    End;
    end;
begin
writeln('vvedite n');
read(n,m);
writeln('vvedite e-ti massiva');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
p5(a,n,m);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
readkey;
end.

Сообщение отредактировано: volvo - 26.12.2004 14:21