كيف أستخدام الخورزمات فى الدلفى ...؟

هذا متعلق بإتقانك للغة

فالخوارزمية يمكن كتاتبتها بأي لغة شئت والدالفي /أوبجكت باسكال  كغيرها من اللغات العريقة القوية يمكن تصريفها كيف شئت

مثال على خوارزمية الترتيب Shell

procedure ShellS(var X: array of Integer);var  Done: Boolean;  Jump, j, i: Integer;  Temp: Integer;begin  Jump:= High(X);  while (Jump > 0) do // Outer loop  begin    Jump:= Jump div 2;    repeat         // Intermediate loop      Done:= True;      for j:= 0 to High(X) - Jump do // Inner loop      begin        i:= j + Jump;        if X[j] > X then // Swap        begin          Temp:= X;          X:= X[j];          X[j]:= Temp;          Done:= False;        end;      end; // end of inner loop    until Done; // end of intermediate loop  end; // end of outer loop end;var  Numbers: array [0 .. 9] of Integer;  i: Integer;begin  Writeln('Please input 10 random numbers');  for i:= 0 to High(Numbers) do  begin    Write('#', i + 1, ': ');    Readln(Numbers);  end;  ShellS(Numbers);  Writeln;  Writeln('Numbers after Shell sort: ');  for i:= 0 to High(Numbers) do  begin    Writeln(Numbers);  end;  Write('Press enter key to close');  Readln;end.

شكراّ أخى

وبارك الله فيك ...جارى مذاكرة الكود :)