graphsize 800,500 debut: cls color yellow rect 0,0,graphwidth,graphheight l1$="La somme des âges de Marcel, Yvon, Julien et Annie fait 125 ans.. " l2$= "Sachant que Annie a la moitié de l'âge de Marcel," l3$ ="que Julien a 14 ans de plus qu'Annie" l4$ ="et que Marcel est plus vieux de 9 ans que Yvon," l5$= "quel âge ont-ils?" # print l1$ : print l2$ : print l3$ : print l4$: print l5$ ttage=125 diffa=9 diffb=14 ttage2=ttage+diffa-diffb annie=ttage2/6 marcel=annie*2 yvon=marcel-diffa julien=annie+diffb st=(ttage+diffa-diffb) lg=8 long1=(lg*annie) long2=(lg*marcel) long3=(lg*yvon) long4=(lg*julien) ld1=long4-long1 ld2=diffa*lg color black font "Arial",12,80 Text 20,20,l1$ Text 20,40,l2$ Text 20,60,l3$ Text 20,80,l4$ Text 20,100,l5$ rect(20,150,long1,3) rect(20,170,long1,3) rect(20,190,long2,3) rect(20,210,long3,3) Rect(20,140, 5,10) Rect(15+long1,140, 5,10) Rect(20,160, 5,10) Rect(15+long1,160, 5,10) Rect(15+long4,160, 5,10) Rect(20,180, 5,10) Rect(15+long1,180, 5,10) Rect(15+long2,180, 5,10) Rect(20,200, 5,10) Rect(15+long1,200, 5,10) Rect(15+long3,200, 5,10) color red rect(20+long1,170,ld1,3) color blue rect(20+long3,210,ld2,3) Rect(15+long2,200, 5,10) color purple Text 50+long2,140,"Annie" Text 50+long2,160,"Julien" Text 50+long2,180,"Marcel" Text 50+long2,200,"Yvon" color black font "Arial",60,20 Text 450,125,"}" font "Arial",20,80 Text 480,160,ttage color blue Text 530,162," + "+diffa color red Text 580,160," - "+diffb color black Text 630,160," = "+st color red font "Arial",12,80 Text 60+long1,150,diffb color blue Text 50+long3,194,diffa color black Text 20,240 ,"Si j'ajoute " + diffa + " à " + ttage + " et que je retranche "+ diffb + " j'obtiens " + st + ", soit 6 fois l'âge d'Annie" Text 20,260, "Age d'Annie: " + st + " : 6 = "+ annie Text 20,280,"Age de Julien : " + annie+ " + " + diffb + " = "+ julien Text 20,300,"Age de Marcel : " + annie + " x 2 = "+ marcel Text 20,320,"Age d'Yvon : " + marcel + " - " + diffa + " = " + yvon Text 20,340,"Vérification : " + annie + " + " + marcel + " + " +yvon + " + " + julien +" = " + ttage font "Arial",14,80 Text 120,400,"--------------- Vérification informatique---------------" print "-------------------- Vérification informatique---------------------" print # a,m,j et y représentent les âges de Annie, Marcel, Julien et Yvon. a=0 while(a<125) m=a*2 j=a+14 y=m-9 s=a+m+j+y if (s=125) then print "Annie ("+a+" ans) + Julien ("+j+" ans) + Marcel ("+m+" ans)+ Yvon ("+y+" ans) = "+s+" ans." Text 20,450,"Annie ("+a+" ans) + Julien ("+j+" ans) + Marcel ("+m+" ans)+ Yvon ("+y+" ans) = "+s+" ans." end if a++ end while