2 entry daha
  • basic programlama dilinde bu siralama yontemi while wend deyimi, for dongusu ve swap komutu kullanilarak gerceklestirilir.
    asagida, basicde bubble sort teknigi kullanilarak, siralama yapan program parcasi, ornek olarak, bilgilerinize arz olunur.

    100 dim a$(10) :n=10
    110 ' dizi okunuyor
    120 for i=1 to n
    130 read a$(i)
    140 next i
    150 kontrol=1 '
    160 while kontrol
    170 kontrol=0
    180 for i=1 to n-1
    190 if a$(i) > a$(i+1) then swap a$(i), a$(i+1) :kontrol=1
    200 next i
    210 wend
    220 ' dizi yazdiriliyor
    230 for i=1 to n
    240 print a$(i);" ";
    250 next i
    260 data hasan, cem, ali, hale, jale, metin
    270 data gul, celal, kemal, yusuf, nuran
    280 end
19 entry daha
hesabın var mı? giriş yap