Всем привет! Задача у меня просортировать строки матрицы методом просеивания. По аналогии нашедшейся здесь программы (http://forum.pascalnet.ru/index.php?showtopic=8208 ), сделала свою, но она почему съедает элементы, не могу понять почему. посмотрите пожалуста!
program lab6;
uses crt,pros;
Var
i,n,j,m: Integer;
a: matr;
beginwrite('Vvedite koli4estvo strok=');read(n);
write('Vvedite koli4estvo stolbcov=');read(m);
writeln('Vvedite e-ti massiva');
for i:=1to n dobeginfor j:=1to m doread(a[i,j]);
readln;
end;
sort(a,n,m);
for i:=1to n dobeginfor j:=1to m dowrite(a[i,j]:3);
writeln;
end;
readkey;
end.
Подключаемый модуль (где впринципе и лежит сортировка):
Unit pros;
Interfacetype matr= array[1 .. 100,1..100] of integer;
procedure sort(var a: matr; n,m: integer);
Implementationprocedure sort;
var
i,j,t,l : integer;
beginfor i:=1to n dofor j:=1To m dobegin
t:= a[i,j];
l:=j-1;
while (t<a[i,l+1]) and (l>=0) dobegin
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 9:40
Цитата
Я написала тоже самое но более просто
Если бы ты написала то же самое, оно бы работало... Ты для начала определись, тебе "шашечки, или ехать?" (С)...
Если задача в том, чтобы обязательно изобрести свой велосипед, то изобретай сама, ибо если его изобретем мы, это будет уже наш общий велосипед... А если мое решение тебе подходит, но по каким-то причинам ты не можешь его подключить, то объясни, по каким именно, я постараюсь помочь...
КрАсАвИцА
13.01.2006 9:47
Почему не подходит? Если я напишу не так как нас учили, то это конечно вызовет сомнения. Я понимаю что иногда составление матрицы как массив массивов это удобно, но мне не подходит, мне надо обязательно array[1 .. 100,1..100] of integer + к этому мы так же не изучали такие операторы как Pred, Dec, Succ. (Хотя я про них нашла и поняла что они делают, но опять же их использовать я не могу, сам понимаешь будет видно что я где то подсмотрела) Я постаралась заменить на вроде бы(!) эдентичные.. видимо они не совсем эдентичны ПОмогите тогда исправить...
Студентик13
13.01.2006 10:16
Цитата
matr
что это такое я не вижу чтоб это было описаннно в type Да и собственно Type'a нет
volvo
13.01.2006 10: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;
BeginFor k := 1to m doFor i := 1To n doBegin
T := ar[k, i];
j := i - 1;
While (T < ar[k, j]) and (j > 0) DoBegin
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 := 1To m DoFor j := 1To n Do
a[i, j] := Random(20);
writeln('до:');
For i := 1To m DoBeginFor j := 1To n DoWrite(a[i][j]:5);
WriteLn
End;
Insert(a, m, n);
writeln('после:');
For i := 1To m DoBeginFor j := 1To n DoWrite(a[i][j]:5);
WriteLn
End;
End.
Разбивай на модули и пользуйся...
Студентик13, ты внимательно смотрел? Про модули слышал когда-нибудь?
КрАсАвИцА
13.01.2006 10:24
Пасипа
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.