1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.

QBasic ile iskambil kartlarının karıştırılması

'Bilgisayar Programlama ve Kodlama' forumunda Powers tarafından 8 Ocak 2013 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    'iskambil kartlar￾n￾n karist￾r￾lmas￾i
    RANDOMIZE TIMER
    CLS
    DIM x(52), grup$(4), tur$(12)
    kar = 100000
    FOR i = 1 TO 52
    x(i) = i
    NEXT i
    grup$(1) = " Kupa "
    grup$(2) = " Maca "
    grup$(3) = " Sinek "
    grup$(4) = " Karo "
    tur$(0) = " Papaz "
    tur$(1) = " Birli "
    tur$(2) = " ikili "
    tur$(3) = " uclu￾ "
    tur$(4) = " Dortl￾"
    tur$(5) = " Besli "
    tur$(6) = " Alti￾li￾"
    tur$(7) = " Yedili "
    tur$(8) = " Sekizli"
    tur$(9) = " Dokuzlu"
    tur$(10) = " Onlu "
    tur$(11) = " Vale "
    tur$(12) = " Ki￾z "
    FOR i = 1 TO 52
    grupbul = INT((x(i) - 1) / 13) + 1
    sayi = x(i) - INT(x(i) / 13) * 13
    PRINT i; grup$(grupbul); tur$(sayi);
    NEXT i
    FOR i = 1 TO kar
    s1 = INT(RND * 52) + 1
    s2 = INT(RND * 52) + 1
    SWAP x(s1), x(s2)
    NEXT i
    INPUT ll
    PRINT
    FOR i = 1 TO 13
    grupbul = INT((x(i) - 1) / 13) + 1
    sayi = x(i) - INT(x(i) / 13) * 13
    PRINT i; grup$(grupbul); tur$(sayi)
    NEXT i
     
    Tags:

Bu Sayfayı Paylaş

  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
Yükleniyor...