Connectez-vous avec une communauté de passionnés sur FRstudy.me. Trouvez des réponses complètes et fiables à vos questions grâce à notre communauté d'experts toujours prête à vous aider avec des solutions détaillées.
Sagot :
Bonsoir,
Ouf, juste avant Noël:
rouge,vert,rouge et vert
num g1 g2 g3
1 3 4 3 3 4 3 3 4 3
2 3 4 3 3 4 3 4 2 4
3 3 4 3 4 2 4 3 4 3
4 3 4 3 4 2 4 4 2 4
5 4 2 4 3 4 3 3 4 3
6 4 2 4 3 4 3 4 2 4
7 4 2 4 4 2 4 3 4 3
8 4 2 4 4 2 4 4 2 4
ex :
3 3 4 3 4 2 4 3 4 3
g1=3R+4V+3RV=> 3+4+3=10 lutins,3+2*4+3*3=20 grelots
g2=4R+2V+4RV=> 4+2+4=10 lutins,4+2*2+3*4=20 grelots
g1=3R+4V+3RV=> 3+4+3=10 lutins,3+2*4+3*3=20 grelots
DIM i1 AS INTEGER, i2 AS INTEGER, i3 AS INTEGER
DIM i4 AS INTEGER, i5 AS INTEGER, i6 AS INTEGER
DIM i7 AS INTEGER, i8 AS INTEGER, i9 AS INTEGER
DIM k AS LONG
OPEN "c:\devoir\lutin.txt" FOR OUTPUT AS #1
k = 0
FOR i1 = 1 TO 5
FOR i2 = 1 TO 5
i3 = 10 - i1 - i2
IF i1 + 2 * i2 + 3 * i3 = 20 THEN
FOR i4 = 1 TO 5
FOR i5 = 1 TO 5
i6 = 10 - i4 - i5
IF i4 + 2 * i5 + 3 * i6 = 20 THEN
FOR i7 = 1 TO 5
FOR i8 = 1 TO 5
i9 = 10 - i7 - i8
IF i7 + 2 * i8 + 3 * i9 = 20 THEN
k = k + 1
PRINT k, i1; i2; i3, i4; i5; i6, i7; i8; i9
PRINT #1, k, i1; i2; i3, i4; i5; i6, i7; i8; i9
END IF
NEXT i8
NEXT i7
END IF
NEXT i5
NEXT i4
END IF
NEXT i2
NEXT i1
close #1
END
Ouf, juste avant Noël:
rouge,vert,rouge et vert
num g1 g2 g3
1 3 4 3 3 4 3 3 4 3
2 3 4 3 3 4 3 4 2 4
3 3 4 3 4 2 4 3 4 3
4 3 4 3 4 2 4 4 2 4
5 4 2 4 3 4 3 3 4 3
6 4 2 4 3 4 3 4 2 4
7 4 2 4 4 2 4 3 4 3
8 4 2 4 4 2 4 4 2 4
ex :
3 3 4 3 4 2 4 3 4 3
g1=3R+4V+3RV=> 3+4+3=10 lutins,3+2*4+3*3=20 grelots
g2=4R+2V+4RV=> 4+2+4=10 lutins,4+2*2+3*4=20 grelots
g1=3R+4V+3RV=> 3+4+3=10 lutins,3+2*4+3*3=20 grelots
DIM i1 AS INTEGER, i2 AS INTEGER, i3 AS INTEGER
DIM i4 AS INTEGER, i5 AS INTEGER, i6 AS INTEGER
DIM i7 AS INTEGER, i8 AS INTEGER, i9 AS INTEGER
DIM k AS LONG
OPEN "c:\devoir\lutin.txt" FOR OUTPUT AS #1
k = 0
FOR i1 = 1 TO 5
FOR i2 = 1 TO 5
i3 = 10 - i1 - i2
IF i1 + 2 * i2 + 3 * i3 = 20 THEN
FOR i4 = 1 TO 5
FOR i5 = 1 TO 5
i6 = 10 - i4 - i5
IF i4 + 2 * i5 + 3 * i6 = 20 THEN
FOR i7 = 1 TO 5
FOR i8 = 1 TO 5
i9 = 10 - i7 - i8
IF i7 + 2 * i8 + 3 * i9 = 20 THEN
k = k + 1
PRINT k, i1; i2; i3, i4; i5; i6, i7; i8; i9
PRINT #1, k, i1; i2; i3, i4; i5; i6, i7; i8; i9
END IF
NEXT i8
NEXT i7
END IF
NEXT i5
NEXT i4
END IF
NEXT i2
NEXT i1
close #1
END
Merci de contribuer à notre discussion. N'oubliez pas de revenir pour découvrir de nouvelles réponses. Continuez à poser des questions, à répondre et à partager des informations utiles. Trouvez toutes vos réponses sur FRstudy.me. Merci de votre confiance et revenez pour plus d'informations.