Sayfa 15

(d) Arı(s) Arı(s) Fare(s) Fare(s) Kurt(s) Kurt(s) Dizi Zebra - Tavuk < Zebra sıralanmıştır Tavuk - - Değiştirme var Zebra(s)

Çizim-4 Çabuk ya da İkili Sıralama

(a) Kurt Kurt-P1 Fare-P1 Fare Fare Zebra Zebra Zebra-P1 Arı Arı Arı Arı Fare Fare-P2 Zebra-P2 Zebra Tavuk-P2 Tavuk Tavuk Tavuk Tavuk < Kurt Zebra Kurt Arı < Kurt Fare < Kurt (b) Fare Fare-P1 Arı - Tek bir kayıt uzunluğunda Arı-P2 Arı-PA Fare küme Arı < Fare (Sıralanmış kabul edilir) (c) Zebra Zebra-P1 Tavuk - Tek bir kayıt uzunluğunda altküme Tavuk < Zebra Son durum: Arı Fare | 2 Kurt 1 Tavuk Zebra 3

PROGRAM ADI SORT

00085 REM > 680816 INPUT DIZINIZ KAC ELE MANLI” <244> 006015 REM ACIYORUZ kkk <164> 660206 DIM IİM$<NU) <168> 88025 REM DOLDURUYORUZ <663> 68830 FOR TO “<eRİGHT>";LO 3". ELEMANI INPUT İM$<LOOP) <867> 80635 REM BASLADI&&** <a14> 0860646 FOR Lz86 TO NU 608650 Ts8 66866 FOR L2z86 TO NU-1 IF IM$<L2)>1M$<L24*1) THEN Tzi1 <088)> 686880 NEXT > 06890 IF THEN 108 <ı24> 66188 NEXT 808185 REM BITTI*** 681867 REM YAZDIRIYORUZ <236)> 88188 PRINT ISTE SIRALI DIZI <a23> 88116 FOR LOsi TO NU:PRİNT SEND

PROGRAM ADI :

000801 66005 088007 600618

06026 60036

00833 00035 00837 60045 00046 08668

00878 00075 A8877 00680

66098

66108

PROGRAM ADI :

60805 00016

80015 08028 086025 000386

088035 00048 006858 608060

080878 086075 086076

00088

06088

06618 06028 06038 86040

06078

66688

26090 86108 06118

06128 06138 66148 06158 66160 06188

BUBBLE SORT

SORT**k GİRİYORUZ &&& INPUT "<2SPACE>KAC KELİME SIRALIYO RUZ DIM S$<NU) FOR Lzi TO NU:PRİNT L?". "3 1 INPUT REM #*&*xDATALAR Ni-NU REM #k&kSİIMDİ SIİRALIYORUZ SS$z"N" FOR TO IF THEN tL

REM REM PRINT

KELİMEYİ

NEXT IF SS$-"Y" THEN 45 REM PRINT ISTE SIRALI DIZI NIZ:” FOR TO L END

SELECTION SORT

REM INPUT KAC E REM ACIYORUZ «kt DIM REM DOLDURUYORUZ FOR Izi TO NiPRİNT ELEMANI VERİN"? INPUT | REM SIRALIYORUZ FOR TO N-i FOR TO N IF THEN D$-5S$<L2)15$X NEXT L2,L REM REM PRİNT SIRA LI DIZI:" FOR TO G". G

ELEMAN : “;S

REM YAPAN ALT PROGRAM *kk IF SSz1 THEN 6838 DIM YYEBBIZZSALLBB) IF THEN 6098 IF THEN SAS 8 IF THEN 605 g OTO 6858 IF THEN 6148 iPPsPP43 68648 IF BB-XX<-1 THEN 6178 ON SSA<PP-1)GOTO 6180,6130,6168 RETURN

6040

<212> <081> <a51>

<117>

<116> <846> <046> <125>

<137> <213> <184>

<001>

<171>

<164> <063>

<a24> <128> <046>

<189> <882>

<150>

<836> <018> <173> <183>

<188>

<088>

<207> <134> <163>

<83939> <184>