graphsize 700,850
debut:
cls
color yellow
rect 0,0,graphwidth,graphheight
l1$="Julie, Roger et Patrice se pèsent ensemble."
l2$="La balance indique 120 kg."
l3$="Roger pèse 5 kg de moins que Julie. "
l4$="Patrice pèse 11 kg de plus que Julie."
l5$="Quel est le poids de chaque enfant ?"
print l1$:print l2$: print l3$:print l4$:print l5$
font "Arial",12,80
color black
Text  20,20,l1$
Text  20,40,l2$
Text  20,60,l3$
Text  20,80,l4$
Text  20,100,l5$
text 10,140,"Julie"
text 10,170,"Roger"
text 10,200,"Patrice"
total=120
pt=7
m=33
r=5
p=11
p_roger=(total-21)/3
p_julie=p_roger+r
p_patrice=p_julie+p
rect 120,150,(m*pt),2
rect 120,180,(m*pt)+(r*pt),2
rect 120,210,(m*pt)+(r*pt)+(p*pt),2
rect 119,140,2,11
rect 119+(m*pt),140,2,11
rect 119,170,2,11
rect 119+(m*pt),170,2,11
rect 119+(m*pt)+(r*pt),170,2,11
rect 119,200,2,11
rect 119+(m*pt),200,2,11
rect 119+(m*pt)+(r*pt),200,2,11
rect 119+(m*pt)+(r*pt)+(p*pt),200,2,11
Text 130+(m*pt),160,r
Text 130+(m*pt),190,r
Text 140+(m*pt)+(r*pt),190,p
Text (170+(m*pt)+(r*pt)+ (p*pt)),165,total
font "Arial",60,50
Text (140+(m*pt)+(r*pt)+ (p*pt)),125,"}"
font "Arial",12,80
Text 20,240,"Si j'enlève (5 + 5 + 11) = 21, au total 120, j'obtiens 3 fois le poids de Roger"
Text 20,260,total + " -  21 = " + (total-21)
Text 20,300, "Poids de Roger:"
Text 20,320, (total-21) + " kg : 3 = "+p_roger +"kg"
Text 20,360,"Poids de Julie: "
Text 20,380, p_roger+ " kg + "+ r + " kg = " + p_julie+" kg"
Text 20,420,"Poids de Patrice: "
Text 20,440, p_julie +"kg + "+ p + " kg = " + p_patrice+" kg"
Text 20,480,"Vérification:" 
Text 20,500, p_roger+" kg + "+ p_julie+" kg + " + p_patrice + " kg = " + total + " kg"


Text 120,550,"---------------  Vérification informatique---------------"
print "--------------------  Vérification informatique---------------------"
print

# j , r et p sont les variables représentant l'âge de Julie, Roger et Patrice.
j=0
while(j<120)
r=j-5
p=j+11
s=r+j+p
if (s=120) then
print "Roger "+r+" kg + Julie "+j+" kg + Patrice "+p+" kg = "+s+" kg"
Text 20,580, "Roger ("+r+" kg) + Julie ("+j+" kg) + Patrice ("+p+" kg) = "+s+" kg"
end if
j++
end while