منو
لينکهاي سريع
صفحه اول
آرشيو
ايميل

  موضوعات

  آرشيو

  معرفي وب به دوستان
« ارسال براي دوستان »
نام شما :
ايميل شما :
نام دوست شما:
ايميل دوست شما:

Powered by ParsTools


  مترجم زبان سايت / Translator Language

 

  quick sort

      const n = 8;
type
     ar = array[0..n - 1] of integer;
var
   i : integer;
   a : ar;
{*******************}
procedure split(var a : ar; first : integer; last : integer; var pos : integer);
var
    t, left, right, pivot : integer;
begin
    left := first;
    right := last;
    pivot := a[first];
   while left < right do
   begin
     {search from right for element <= pivot}
     while a[right] > pivot do
 right := right - 1;
     {search from right for element <= pivot}
     while (left < right) and (a[left] <= pivot) do
 left := left + 1;
     {interchange element if searches havn't met}
     if left < right then
     begin
       t := a[left];
       a[left] := a[right];
       a[right] := t;
      end;
   end; {end of while}
   {end of searches. place pivot in correct position}
   pos := right;
   a[first] := a[pos];
   a[pos] := pivot;
end;
{***************}
procedure quicksort(var a : ar; first : integer; last : integer);
var
   pos : integer;  {final position of pivot}
begin
   if first < last  then
   begin
       {split into two sublists}
       split(a, first, last, pos);
       {sort left sublist}
       quicksort(a, first, pos - 1);
       {sort right sublidt}
       quicksort(a, pos + 1, last);
   end;
   {else list has 0 or 1 element}
   {and requires no sorting}
end;
{*******************************}
begin
for i:=0 to 8 do
readln(a[i]);
     quicksort(a, 0, n - 1);
   for i := 0 to n - 1 do
       write(a[i] : 3);
   readln;
end.

نظرات ()
lamei جمعه ٢٩ آذر ۱۳۸٧

  درباره




  آمار

»تعداد بازديدها:
»کاربر: Admin

لينك Rss

  مديران / وضعيت در ياهو


  لينک ها
سایت استاد ارش میرزائی
بهترین نرم افزارهای موبایل
یه وبلاگ بسیار خوب برای دانلود برنامه های مختلف
اموزش برنامه نویسی پاسکال
pascalprograms.mihanblog.com
smt2.persianblog.ir
سایت دانشکده فناوری اطلاعات
وبلاگ تخصصی برنامه نویسی c++
پرقدرت ترین و با امکانات ترین سایت جذاب و علمی مخصوص دانش آموزان ایرانی
بهترین وبلاگ دانلود سوالات پیام نور
تبلیغات وبلاگی
برنامه نویسی شی گرا در سی شارپ
دانلود نرم افزار

 

 

Designed Template By: PersiaStyle.Com
Coryright© PersiaStyle. All Rights Reserved