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

[karikaaaa 2]

بسم الله الرحمن الرحيم

 

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

[أحمد أبو عبد البر 441]

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

 

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

 

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

تمتاز هذه الخوارزمية بالسرعة العالية مع البيانات الكبيرة، وسلوكها مشابهة لخوارزمية الفُقّاعة في حالة البيانات المرتبة أو الشبه مرتبة

وسميت بهذا اﻹسم نسبة لمخترعها Donald 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[i] then // Swap        begin          Temp:= X[i];          X[i]:= 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[i]);  end;  ShellS(Numbers);  Writeln;  Writeln('Numbers after Shell sort: ');  for i:= 0 to High(Numbers) do  begin    Writeln(Numbers[i]);  end;  Write('Press enter key to close');  Readln;end. 

تم تعديل 8 Jul 2014 بواسطه أحمد أبو عبد البر

[karikaaaa 2]

شكراّ أخى

أحمد أبو عبد البر

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