graphsize 1000,900
cls
color yellow
rect 0,0,graphwidth,graphheight
input "Nombre de billes ",billes
cls
juliette=1
jean=2
marcel=4
 total=(juliette+jean+marcel)
Print "Nombre total de billes : " + billes
 pjuliette=(billes\total)
 pjean=(pjuliette*2)
 pmarcel=(pjuliette*4)
 pbilles=(pjuliette + pjean + pmarcel)
 reste =(billes-pbilles)
t1$="Juliette a ( "+billes +" / 7) soit : " + pjuliette +" billes."
t2$="Jean a  2 fois "+ pjuliette + " soit " + pjean +" billes."
t3$="Marcel a 4 fois " + pjuliette + " soit " + pmarcel +" billes."
t4$="En tout : "+ pjuliette + " + " + pjean + " + " + pmarcel + " = " + pbilles
t5$ = "Il en restera "+ billes + " - "+ pbilles + " = " + reste
t6$="Vérification :"
t7$=pjuliette + " + " + pjean +  " + " + pmarcel +  " = " + pbilles
t8$=pbilles +  " + " + reste + " = " + billes
print t1$
print t2$
print t3$
print t4$
print t5$
print t6$
print t7$
rem --------------------------Ecran graphique---------------------------------------
color black
font "Tahoma",25,500
text 350,10,"PROBLEME"
font "Arial",12,80
l1$="Juliette a des billes, Jean en a deux fois plus et Marcel quatre fois plus. "
l2$= "En tout ils en ont " + billes
l3$ ="Combien en ont-ils chacun ?"
Text  20,80,l1$
Text  20,100,l2$
Text  20,120,l3$
Text  20,160,t1$
Text  20,180,t2$
Text  20,200,t3$
Text  20,220,t4$
Text  20,240,t5$
Text  20,270,t6$
Text  20,290,t7$
Text  20,310,t8$
rem ---------------------- dessin du graphique ------------------
l=80
h=60
color black
Rect(5,405, 5,20)
Rect(10,420,l,5)
Rect(5+l,405, 5,20)
Rect(5,405+h, 5,20)
Rect(10,420+h,l,5)
Rect(5+l,405+h, 5,20)
Rect(10+l,420+h,l,5)
Rect(5+(l*2),405+h, 5,20)
Rect(5,405+h*2, 5,20)
Rect(10,420+h*2,l,5)
Rect(5+l,405+h*2, 5,20)
Rect(10+l,420+h*2,l,5)
Rect(5+(l*2),405+h*2, 5,20)
Rect(10+l*2,420+h*2,l,5)
Rect(5+(l*3),405+h*2, 5,20)
Rect(10+l*3,420+h*2,l,5)
Rect(5+(l*4),405+h*2, 5,20)
Text  400,405,"Juliette"
Text  400,(405+h), "Jean"
Text  400,405+(h*2), "Marcel"
rem -------------------- dessin des billes ---------------------------
if (billes>150) then
font "Tahoma",25,500
Text 50,600," Place insuffisante pour dessiner les billes"
end
end if
color red
for i =1 to pjuliette
circle 10+(i*10),610, 5
next i
a$="Juliette : " + pjuliette + " billes"
Text ( i*10) + 20 ,600, a$
color blue
for a=1 to pjean
circle 10+(a*10),660, 5
next a
c$="Jean : " + pjean + " billes"
Text ( a*10) + 20 ,650, c$
color purple
for b= 1 to pmarcel
circle 10+(b*10),710, 5
next b
b$="Marcel: " + pmarcel + " billes"
Text ( b*10) + 20 ,700, b$
color black
font "Arial",14,80
Text 120,780,"---------------  Vérification informatique---------------"
print "--------------------  Vérification informatique---------------------"
print
# j, je et m sont les variables qui représentent le nombre de billes de Juliette, Jean et Marcel
j=0
while j<billes
je=j*2
m=j*4
s=j+je+m
if (s=billes) then
print "Juliette ("+j+" billes) + Jean ("+je+" billes) + Marcel ("+m+" billes) = "+s+" billes."
Text 20,820,"Juliette ("+j+" billes) + Jean("+je+" billes) + Marcel ("+m+" billes) = "+s+" billes."
end if
j++
end while
# Si le nombre de billes n'est pas divisible par 7, il n'y aura pas de vérification informatique possible.