Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732540 Sun, 29 May 2005 20:04:51 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732540 Цитата Yez @
volvo877
А откуда он значения берёт, merge ентат?

Ну судя по исходнику из c.txt в который сам же пишет рандомовские числа.]]> Pourtous Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732535 Sun, 29 May 2005 19:58:11 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732535 volvo877
А откуда он значения берёт, merge етот?]]> Yez Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732501 Sun, 29 May 2005 19:10:10 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732501 volvo877 Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732476 Sun, 29 May 2005 18:29:25 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732476 Yez, ты FAQ и Полезные ссылки смотрел?
Поиск использовал? :angry:]]> Romtek Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732452 Sun, 29 May 2005 17:54:26 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732452 volvo877
Ужас!!!!! Помоги volvo877 у меня не сортируется, а у тебя сортировался??? ПОМОГИ!!!!!!!!! ПЛИЗ!!!!!! :wall: :wall: :wall: :wall: :wall:

Добавлено
Люди может кто подскажет сайт где можно взять код программы на Pascal'e (сортировка естественным слиянием???) ПЛИЗЗЗЗЗЗЗЗ!!!!]]> Yez Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732180 Sun, 29 May 2005 07:52:46 +0000 Сортировка естественным слиянием!!! https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732180
    while true do
      begin
        if (a[i]<=a[j]) then begin { <--- добавь begin }

кроме этого
    f:=true; d:=-d; k:=k xor l;l:=k xor l;k:=k xor l;

там где k := k xor l; не хватало пробела... и перед всей этой строкой нет точки с запятой :)

Вот этот вариант компилится:]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732172 Sun, 29 May 2005 07:44:56 +0000 Сортировка естественным слиянием&#33;&#33;&#33; https://forum.sources.ru/index.php?showtopic=97136&view=findpost&p=732172
    program Sontan;
     
    uses
     Crt;
     
    var
     a:array[1..255] of integer;
     T:text;
     temp,k,r,q,d,km,l,i,j,N,p:integer;
     s,f:boolean;
     
    begin
      ClrScr;
      Assign(T, 'File.txt');  { Standard output }
      Reset(T);
      i:=0;
      while not Eof(T) do
      begin
       inc(i);
       Read(T, a[i]);
       Write(a[i]:4);
      end;
      Writeln;
      N:=i;
      s:=true;
      repeat
       if s then
       begin
        i:=1;j:=N;k:=N+1;l:=2*N;
       end
       else
       begin
        k:=1;l:=N;i:=N+1;j:=2*N;
       end;
       d:=1; f:=false;
       while true do
       begin
        if (a[i]<=a[j]) then
         if (i=j) then
         begin
          a[k]:=a[i];s:=not s;break;
         end;
         a[k]:=a[i];inc(k,d);inc(i);
         if a[i-1]<a[i] then
          break;
         repeat
          a[k]:=a[j]; inc(k,d); dec(j);
         until (a[j+1]>a[j]);
        end
        else
        begin
         a[k]:=a[j]; inc(k,d);dec(j);
         if(a[j+1] <= a[j]) then
          break;
         repeat
          a[k]=a[i]; inc(k,d); inc(i);
         until (a[i-1]>a[i]);
        end
        f:=true; d:=-d; k:=k xorl;l:=k xor l;k:=k xor l;
       end;
      until not f;
      if not s then
       for i:=1 to n do
        a[i]:=a[i+n];
      
       Write('Sorted');
       for i:=1 to N do
        Write(a[i]:4);
       readkey;
    end.

Зарание всем большое, огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!! :D]]> Yez Pascal