1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 15

(d) Arı(s) Fcıre[s) Zebro]îovnk < Zebra Tavuk Ari(s) Farels Kurt(s) Dizi Değiştirme var Zebrals) Çizim-4 Çabuk ya da İkili Sıralama (a) Kurt Kurt—P1 Fare—P1 Fare Fare Zebra Zebra Zebra—Pi Arı Arı Arı r —Ar—P1 4 2-KUurt Fare Fare—P2 Zebra—P2 Zebra Tavuk—P2 Tavuk Tavuk Tavuk Tavuk <Y_ Kurî Zebra * Kurt Arı < Kurt Fare < (b) Fare Fare—P1 Arı — Tek bir kayıt uzunluğunda An—P2 An—P1 4 P2-Fare alküme Arı < Fare (Sıralanmış kabul edilir) (c) Zebra Zebra—Pi — Tavuk - Tek bir kayıt . uzunluğunda altküme Tavuk—P2 Tavuk—P/1 4 P2 — ZEBRA [Sırolonmış kabul edilir] Tavuk < Zebra Son durum: Ar Fa PROGRAM ADI £ 000865 60816 00015 00035 00040 Kurt Tavuk 33 Zebra RIPPLE SORT REM #4##*RİPPLE SOÖORT *" <ÇCLR><2DONN> DIZINIZ KAC ELE tttDIZI ACIYORUZ &k&k IMS<NU ) *&*DIZIYI DOLDURUYORUZ &** LOs1 TO NU:PRİNT “<a2RİGHT>":LO )*, ELEMANI VERİN”"? : IİNPUT IİMİ$<LOOP) ıNE XT REMİ K*K*KSIRALAMA BASLADI &&& FOR TO NU 60858 Ts8 66068 086878 60080 NEXT 60890 IF Ts0 THEN 168 681886 NEXT 88185 REM #*4*4*SIRALAMA BITTI*** 681867 REM #*#&#*SIİMDİ YAZDIRIYORUZ *&x4 88188 PRINT "<CLR)<DOWN> ISTE SIRALI DIİZİ MIZ" 88116 FOR LOsi TO NÜU:PRİNT "<DOKWN><ERİ — —ommodore z FOR L2z86 TO NU- IF IİM$S<L2)>1M$&<L24*1) THEN D$&-1IM$X L2)11M$(L2) - TM$SXL24*1)1:1M$<L24*1)-D$: Tei GHT)>"31MS<LO)1NEKT TEND Tavukl(s) sıralanmıştır <aBa> <244> <164> <168> <863> <67 )> <214> <ıda> <027> <176> <688) <058> <124)> <283> <233> <236)> <223)> <843> PROGRAM ADI : BUBBLE SORT 60081 REM #&&BUBBLE SOÖORT*&& 886865 REM #&*&*DATA GIRIİYORUZ &&& 88887 PRINT "<CL 60816 INPUT RUZ *3 60026 DIM S$<NU) 60038 FOR Lzi TO NU:ZPRİNT L? ”. RINi"3 1 1INPUT S$<L)ENEXT 808633 REM #&#4*DATALAR TAMAMKLL 8008635 Ni“NU 00837 REM 00045 SS$z" 00046 FOR KK 1 TO Ni-i 60668 I1F S$<(KK)>S#CKK4*İ) ŞISSIHDI SIRALIYORUZ &&£ 8808678 NEXT 00675 IF SS$-"Y" THEN 45 80877 REM O#£t*SIRALAMAMIZ BİITTİ&&& 00688 PRINT 6683938 FOR Ls1 TO NIİIPRİNT "<4ARIGHT>"?; Lİ1NEXT L 661886 END PROGRAM ADI : SELECTIİON SORT 808805 REM ###*SELECTIİION SORT*4&4* 88816 INPUT "<CLR)<DORN)<RIGHT)DİIZIİ KAC E L ; 80015 REM #&&DİZİ ACIYORUZ &&t 608028 DIM S$&<N) 00025 REM #&*4*DİZİYİ DOLDURUYORUZ && * 80630 FOR Izi TO NIPRİNT “<3RİGHT>"/17". ELEMANI VERİN": S IİNPUT S$Cİ):NEKT I 080635 REM #*#*IİSTE SIRALIYORUZ 444 066486 FOR Lsi TO N-i 0808586 FOR L2z-L*1 TO N 60060 IF S$<L2)<S$<L) THEN L2)-45S$0L)15$0L)-D$ 870 NEKT LE,L 68875 REM #£*4#*SIRALAMA SONUK£1 ©8876 REM #&&DIZIYI YAZDIRALIM** BBB77 PRINT '<CLR)<DOMN><ERIGHT)!STE SIRA LI ı" 00088 FOR Gll TO NIPRİNT G". $<0):NEKT G ELEMAN £: 0680808 REM **KGUICK-SORT YAPAN ALT PROGRAM 06818 IF SS=1 THEN 6036 06020 DIM SSAC10A):5SSz1 06030 AAS1:BBENLSSACO)-11PPs1 O6040 XXSAAIYYEBBIZZESAYLBB) O6856 IF XX)>-YY THEN 6098 B6B6B IF AİCKK)I<EZZ THEN XX-XX4*1:60TO 605 068076 I1F AlCYYI>EZZ THEN YY-YY-1İ:6G0T0 685 g 86088 DDEALCYYIYEALCYYOSALCIRMISALCKKISDDIG B6890 AL<BB)SALCXRIIALCKAIEZZ B61868 IF XX-AA<SI THEN 6148 86110 SSALPP)-XXESSALPP * L SBBiSSAULPP *A A2 iPPzPP4*3 06120 BB-XX-1160TO 6040 os13a PPsPP- 3:xx-ssy<PP>ıBB=ssx<PP+ı> 06140 IF BB-XX<-1 THEN G1 06158 SSA<PP)-3: PP=PP+1!HH=XX+I GOTO 6040 <8 166166 PPaPP-1 66178 ON SSACPP-1)G0TO 6180,6130,616€ 66188 RETURN >> "<2SPACE>KAC KELİME SIRALIYO NU KELİMEYİ THEN D$z5$(KK) $CKK)-SHSLKKtI)SSIKKtI ) -DSISSKA”Y *<CLR><DOMWN> IİSTE SIRALI DIİZİI D$&-S$<L2):5$X KB1P2) <081> <a251> <a42> $437V) <a81> <116> <846> <046> <125)> <Be29> <137> <813> <184> <g2a5> <B81> <0986> <897>