Сортировка естественным слиянием!!! , СРОЧНО!!!

[Yez]

Люди помогите, осталась одна лаба по алгоритмизации, а лаба не компилиться. Посмотрите, а?

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.

Зарание всем большое, огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

[volvo877]

У тебя нарушена структура:

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; не хватало пробела... и перед всей этой строкой нет точки с запятой

Вот этот вариант компилится:
Прикреплённый файлtest.zip (0.63 Кбайт, скачиваний: 273)

[Yez]

volvo877
Ужас!!!!! Помоги volvo877 у меня не сортируется, а у тебя сортировался??? ПОМОГИ!!!!!!!!! ПЛИЗ!!!!!!

Добавлено 29.05.05, 18:08
Люди может кто подскажет сайт где можно взять код программы на Pascal'e (сортировка естественным слиянием???) ПЛИЗЗЗЗЗЗЗЗ!!!!

[Romtek]

Yez, ты FAQ и Полезные ссылки смотрел?
Поиск использовал?

[volvo877]

Единственное, чем могу помочь - могу дать тебе другой исходник (но он рабочий, проверено )
Прикреплённый файлmerge.zip (0.7 Кбайт, скачиваний: 694)

[Yez]

volvo877
А откуда он значения берёт, merge етот?

Сообщение отредактировано: Romtek - 29.05.05, 20:23

[Pourtous]

Цитата Yez @ 29.05.05, 19:58

volvo877
А откуда он значения берёт, merge ентат?

Ну судя по исходнику из c.txt в который сам же пишет рандомовские числа.