bonjour
je vous donne le loto belge et fracais et eurollions
programme en qbasic bon amusement
------------------------------------------------------
CLS : COLOR 15, 0
RANDOMIZE TIMER
1 REM
LOCATE 2, 2: PRINT "LOTO BELGE LES NUMEROS SONT DE 1 A 42 "
LOCATE 4, 2: PRINT "LOTO FANCAIS LES NUMEROS SONT DE 1 A 48"
LOCATE 6, 2: PRINT "EUROMOLLIONS LES NUMEROS SONT DE 1 A 63"
LOCATE 8, 2: PRINT "MUNERO DE 1 A ?"
LOCATE 10, 2: PRINT "LE MUNERO DE BASE ET 1"
LOCATE 12, 2: PRINT "LIMITE ET 63"
LOCATE 14, 2: PRINT " "
LOCATE 14, 2: PRINT "VORDE MUNERO EST ";
INPUT a1
IF a1 < 42 THEN a1 = 42
IF a1 > 63 THEN GOTO 1
b1 = 0:
DIM a$(a1 + 10), it(10)
DATA "01","02","03","04","05","06","07"
DATA "08","09","10","11","12","13","14"
DATA "15","16","17","18","19","20","21"
DATA "22","23","24","25","26","27","28"
DATA "29","30","31","32","33","34","35"
DATA "36","37","38","39","40","41","42"
DATA "43","44","45","46","47","48","49"
DATA "50","51","52","53","54","55","56"
DATA "57","58","59","60","61","62","63"
FOR r1 = 1 TO a1
READ p$: a$(r1) = p$: p$ = ""
NEXT r1
PRINT
op = 0: b2 = 0
10 REM
FOR b1 = 1 + op TO 7 + b2
PRINT a$(b1); " ";
NEXT
IF H1 = INT(a1 / 7) THEN 20
op = op + 7: b2 = op: H1 = H1 + 1
PRINT
GOTO 10
20 PRINT : PRINT
PRINT "pouze sur enter";
INPUT q$
CLS
FOR nude = 1 TO 7
30 REM
re = INT(RND * a1 + 10) - 1
IF re < 1 OR re > a1 THEN 30
IF a$(re) = "00" THEN 30
it(nude) = re: a$(re) = "00"
NEXT nude
80 REM
z1$ = CHR$(201): z2$ = STRING$(4, 205): z3$ = CHR$(203): z4$ = CHR$(187)
z5$ = z2$ + z3$
LOCATE 3, 36: PRINT "JEUX DE LOTO"
LOCATE 4, 24: PRINT z1$; z5$; z5$; z5$; z5$; z5$; z5$; z2$; z4$
z6$ = CHR$(186): z7$ = STRING$(4, 32)
z8$ = z6$ + z7$
LOCATE 5, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$
LOCATE 5, 27: PRINT "1": LOCATE 5, 32: PRINT "2"
LOCATE 5, 37: PRINT "3": LOCATE 5, 42: PRINT "4"
LOCATE 5, 47: PRINT "5": LOCATE 5, 52: PRINT "6"
LOCATE 5, 57: PRINT "7"
LOCATE 5, 63: PRINT "LES BOULES"
z9$ = CHR$(204): z10$ = CHR$(206): z11$ = CHR$(185)
z12$ = z2$ + z10$
LOCATE 6, 24: PRINT z9$; z12$; z12$; z12$; z12$; z12$; z12$; z2$; z11$
LOCATE 7, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$
LOCATE 7, 65: PRINT "TIRAGE"
LOCATE 8, 24: PRINT z9$; z12$; z12$; z12$; z12$; z12$; z12$; z2$; z11$
LOCATE 9, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$
LOCATE 9, 61: PRINT "ORDRE DE TIRAGE"
z13$ = CHR$(200): z14$ = CHR$(202): z15$ = CHR$(188)
z16$ = z2$ + z14$
LOCATE 10, 24: PRINT z13$; z16$; z16$; z16$; z16$; z16$; z16$; z2$; z15$
90 REM
IF it(1) <= 9 THEN LOCATE 7, 26: PRINT it(1)
IF it(1) >= 10 THEN LOCATE 7, 25: PRINT it(1)
IF it(2) <= 9 THEN LOCATE 7, 31: PRINT it(2)
IF it(2) >= 10 THEN LOCATE 7, 30: PRINT it(2)
IF it(3) <= 9 THEN LOCATE 7, 36: PRINT it(3)
IF it(3) >= 10 THEN LOCATE 7, 35: PRINT it(3)
IF it(4) <= 9 THEN LOCATE 7, 41: PRINT it(4)
IF it(4) >= 10 THEN LOCATE 7, 40: PRINT it(4)
IF it(5) <= 9 THEN LOCATE 7, 46: PRINT it(5)
IF it(5) >= 10 THEN LOCATE 7, 45: PRINT it(5)
IF it(6) <= 9 THEN LOCATE 7, 51: PRINT it(6)
IF it(6) >= 10 THEN LOCATE 7, 50: PRINT it(6)
IF it(7) <= 9 THEN LOCATE 7, 56: PRINT it(7)
IF it(7) >= 10 THEN LOCATE 7, 55: PRINT it(7)
100 REM
GOSUB bubble
REM
IF it(1) <= 9 THEN LOCATE 9, 26: PRINT it(1)
IF it(1) >= 10 THEN LOCATE 9, 25: PRINT it(1)
IF it(2) <= 9 THEN LOCATE 9, 31: PRINT it(2)
IF it(2) >= 10 THEN LOCATE 9, 30: PRINT it(2)
IF it(3) <= 9 THEN LOCATE 9, 36: PRINT it(3)
IF it(3) >= 10 THEN LOCATE 9, 35: PRINT it(3)
IF it(4) <= 9 THEN LOCATE 9, 41: PRINT it(4)
IF it(4) >= 10 THEN LOCATE 9, 40: PRINT it(4)
IF it(5) <= 9 THEN LOCATE 9, 46: PRINT it(5)
IF it(5) >= 10 THEN LOCATE 9, 45: PRINT it(5)
IF it(6) <= 9 THEN LOCATE 9, 51: PRINT it(6)
IF it(6) >= 10 THEN LOCATE 9, 50: PRINT it(6)
IF it(7) <= 9 THEN LOCATE 9, 56: PRINT it(7)
IF it(7) >= 10 THEN LOCATE 9, 55: PRINT it(7)
END
bubble:
FOR i = 1 TO 7 - 1
FOR j = i + 1 TO 7
IF it(j) < it(i) THEN SWAP it(i), it(j)
NEXT j
NEXT i
RETURN
loto en qbasic
(1 message) (1 voix)Écrire une réponse
Vous devez être connecté pour poster.