Всем привет! Задача у меня просортировать строки матрицы методом просеивания. По аналогии нашедшейся здесь программы (http://forum.pascal.net.ru/index.php?showtopic=8208 ), сделала свою, но она почему съедает элементы, не могу понять почему. посмотрите пожалуста!
program lab6;
uses crt,pros;
Var
i,n,j,m: Integer;
a: matr;
begin
write('Vvedite koli4estvo strok=');read(n);
write('Vvedite koli4estvo stolbcov=');read(m);
writeln('Vvedite e-ti massiva');
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
sort(a,n,m);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
readkey;
end.
Подключаемый модуль (где впринципе и лежит сортировка):
Unit pros;
Interface
type matr= array[1 .. 100,1..100] of integer;
procedure sort(var a: matr; n,m: integer);
Implementation
procedure sort;
var
i,j,t,l : integer;
begin
for i:=1 to n do
for j:=1 To m do
begin
t:= a[i,j];
l:=j-1;
while (t<a[i,l+1]) and (l>=0) do
begin
a[i,l+1]:= a[i,l];
l:=l-1;
end;
a[i,l+1]:=t;
end;
end;
end.
Вообще-то ты скопировала не то. Там постом ниже, volvo привел код
http://forum.pascal.net.ru/index.php?s=&showtopic=8208&view=findpost&p=56009
Да знаю я, что volvo привел код, но как он его привел мне не подходит! Я написала тоже самое но более просто, и программа работает неправильно! Мне нужно понять почему неправильно... 2 часа проверяла ну никак не могу найти. Хелпппп!
Почему не подходит? Если я напишу не так как нас учили, то это конечно вызовет сомнения. Я понимаю что иногда составление матрицы как массив массивов это удобно, но мне не подходит, мне надо обязательно array[1 .. 100,1..100] of integer + к этому мы так же не изучали такие операторы как Pred, Dec, Succ. (Хотя я про них нашла и поняла что они делают, но опять же их использовать я не могу, сам понимаешь будет видно что я где то подсмотрела) Я постаралась заменить на вроде бы(!) эдентичные.. видимо они не совсем эдентичны ПОмогите тогда исправить...
Ну, хорошо... Вот процедура, сортирующая матрицу, написанная "как тебя учили":
const
max_n = 100;
max_m = 100;
n = 4;
m = 4;
Type
matrix = array[1 .. max_m, 1 .. max_n] of integer;
Procedure Insert(Var ar: matrix; m, n: Integer);
Var k, i, j, T: Integer;
Begin
For k := 1 to m do
For i := 1 To n do
Begin
T := ar[k, i];
j := i - 1;
While (T < ar[k, j]) and (j > 0) Do
Begin
ar[k, j + 1] := ar[k, j]; Dec(j);
End;
ar[k, j + 1] := T;
End;
End;
var
a: matrix;
var
i, j: integer;
begin
randomize;
For i := 1 To m Do
For j := 1 To n Do
a[i, j] := Random(20);
writeln('до:');
For i := 1 To m Do Begin
For j := 1 To n Do
Write(a[i][j]:5);
WriteLn
End;
Insert(a, m, n);
writeln('после:');
For i := 1 To m Do Begin
For j := 1 To n Do
Write(a[i][j]:5);
WriteLn
End;
End.
Пасипа