Сейчас: Воскресенье, 08.02.2026, 19:10
  • Страница 1 из 1
  • 1
Помогите пожалуйста исправить ошибки в программе. Pascal.
Гость Дата: Пятница, 03.01.2014, 18:03 | Сообщение # 1
Группа: Гости





Помогите пожалуйста исправить ошибки в программе. Pascal.
Код
Procedure Sort ( var A : array of real );
Var
i, step, tmp : Integer;
Begin  
step:=Length ( A ) / 2;
While step>0 do Begin
For i:=step to N Do Begin
tmp:=A[i];
j:=i;
While (j<=step) and (A[j-step]>tmp) do Begin
A[j]=A[j-step];
dec(j,step);
end;
A[j]:=tmp;
end;
step:=step div 2; // step:=step shr 1
End;
End.
 
  • Страница 1 из 1
  • 1
Поиск: