Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.222.114.31] |
|
Сообщ.
#1
,
|
|
|
Люди помогите, осталась одна лаба по алгоритмизации, а лаба не компилиться. Посмотрите, а?
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. Зарание всем большое, огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!! |
Сообщ.
#2
,
|
|
|
У тебя нарушена структура:
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 Кбайт, скачиваний: 275) |
Сообщ.
#3
,
|
|
|
volvo877
Ужас!!!!! Помоги volvo877 у меня не сортируется, а у тебя сортировался??? ПОМОГИ!!!!!!!!! ПЛИЗ!!!!!! Добавлено Люди может кто подскажет сайт где можно взять код программы на Pascal'e (сортировка естественным слиянием???) ПЛИЗЗЗЗЗЗЗЗ!!!! |
Сообщ.
#4
,
|
|
|
Сообщ.
#5
,
|
|
|
Единственное, чем могу помочь - могу дать тебе другой исходник (но он рабочий, проверено )
Прикреплённый файлmerge.zip (0.7 Кбайт, скачиваний: 695) |
Сообщ.
#6
,
|
|
|
volvo877
А откуда он значения берёт, merge етот? |
Сообщ.
#7
,
|
|
|
Цитата Yez @ volvo877 А откуда он значения берёт, merge ентат? Ну судя по исходнику из c.txt в который сам же пишет рандомовские числа. |