• 0
karikaaaa

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

سؤال

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

 

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

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

 

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

 

مثال على خوارزمية الترتيب 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. 
تم تعديل بواسطه أحمد أبو عبد البر
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكراّ أخى

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .