'iskambil kartlarnn karistrlmasi 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) = " Altili" tur$(7) = " Yedili " tur$(8) = " Sekizli" tur$(9) = " Dokuzlu" tur$(10) = " Onlu " tur$(11) = " Vale " tur$(12) = " Kiz " 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