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

'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