Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка: просеивание
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
КрАсАвИцА
Всем привет! Задача у меня просортировать строки матрицы методом просеивания. По аналогии нашедшейся здесь программы (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.
Altair
Вообще-то ты скопировала не то. Там постом ниже, volvo привел код
http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=56009
КрАсАвИцА
Да знаю я, что volvo привел код, но как он его привел мне не подходит! Я написала тоже самое но более просто, и программа работает неправильно! Мне нужно понять почему неправильно... 2 часа проверяла ну никак не могу найти. Хелпппп!
volvo
Цитата
Я написала тоже самое но более просто
smile.gif Если бы ты написала то же самое, оно бы работало... Ты для начала определись, тебе "шашечки, или ехать?" (С)...

Если задача в том, чтобы обязательно изобрести свой велосипед, то изобретай сама, ибо если его изобретем мы, это будет уже наш общий велосипед... А если мое решение тебе подходит, но по каким-то причинам ты не можешь его подключить, то объясни, по каким именно, я постараюсь помочь...
КрАсАвИцА
Почему не подходит? Если я напишу не так как нас учили, то это конечно вызовет сомнения. Я понимаю что иногда составление матрицы как массив массивов это удобно, но мне не подходит, мне надо обязательно array[1 .. 100,1..100] of integer + к этому мы так же не изучали такие операторы как Pred, Dec, Succ. (Хотя я про них нашла и поняла что они делают, но опять же их использовать я не могу, сам понимаешь будет видно что я где то подсмотрела) Я постаралась заменить на вроде бы(!) эдентичные.. видимо они не совсем эдентичны smile.gif ПОмогите тогда исправить...
Студентик13
Цитата
matr
что это такое я не вижу чтоб это было описаннно в type
Да и собственно Type'a нет
volvo
Ну, хорошо... Вот процедура, сортирующая матрицу, написанная "как тебя учили":
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.

Разбивай на модули и пользуйся...

Студентик13, ты внимательно смотрел? Про модули слышал когда-нибудь?
КрАсАвИцА
Пасипа wub.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.