پیده سازی الگوریتم shellsort با کد دلفی

procedureSortShell(varaSort:arrayofWord); var iI,iJ,iK, iSize:Integer; wTemp:Word; begin iSize:=High(aSort); iK:=iSizeshr1; whileiK>0dobegin foriI:=0toiSize-iKdobegin iJ:=iI; while(iJ>=0)and(aSort[iJ]>aSort[iJ+iK])dobegin wTemp:=aSort[iJ]; aSort[iJ]:=aSort[iJ+iK]; aSort[iJ+iK]:=wTemp; ifiJ>iKthen Dec(iJ,iK) else iJ:=0 end; end; iK:=iKshr1; end; end;
/ 1 نظر / 9 بازدید
همخونه دات کام

------------------------------ پورتال همخونه دات کام افتتاح شد ------------------------------ همخونه دات کام اولین و تنها وب سایت جستجوی خانه دانشجویی در ایران لطفا برای حمایت از همخونه دات کام به ما لینک دهید.