Qbasic

0
0

Merhabalar birleştirme sıralaması algoritmasının Qbasic kodları ile yapımını videolu anlatır mısınız? ve bu kodlar ile akış şemasını

QBASİC KODLARI

  • CLS
  • DIM VeriSeti(10)
  • ‘————- Rastgele 10 adet sayı(1..100) VeriSeti değişkenine atar …
  • FOR X = 1 TO 10
  • VeriSeti(X) = FIX(RND * 100)
  • PRINT VeriSeti(X)
  • NEXT X
  • ‘————- Sıralama yapar …
  • FOR X = 1 TO 10
  • FOR Y = X TO 10
  • IF VeriSeti(X) > VeriSeti(Y) THEN SWAP VeriSeti(X), VeriSeti(Y)
  • NEXT Y
  • NEXT X
  • ‘————– Ekranda sıralanmış VeriSetini gösterir …
  • COLOR 10
  • FOR X = 1 TO 10
  • PRINT VeriSeti(X)
  • NEXT X
  • END
  • You must to post comments
0 sonuçlar gösteriliyor
Senin Cevabın

Göndermek için öncelikle olun.