Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка: просеивание
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
КрАсАвИцА
Всем привет! Задача у меня просортировать строки матрицы методом просеивания. По аналогии нашедшейся здесь программы (http://forum.pascalnet.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.pascalnet.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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.