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