graphsize 600,1000 cls color yellow rect 0,0,graphwidth,graphheight rem --------------------------Ecran graphique--------------------------------------- color black font "Tahoma",25,500 text 350,10,"PROBLEME" font "Arial",12,50 l1$="Une table mesure 4 m de périmètre. Sa largeur est les 3/5 de la longueur." l2$="On la recouvre d'un tapis qui déborde de 25 cm tout autour." l3$="On borde ce tapis d'un galon qui coûte 1,50 F le mètre." l4$="Calculez le prix de ce galon." Text 20,80,l1$ Text 20,100,l2$ Text 20,120,l3$ Text 20,140,l4$ color blue for i= 20 to 370 step 45 line i,180, i,430 next i for i= 180 to 430 step 45 line 20,i,350,i next i color black rect 65,224,225,4 rect 65,359,225,4 rect 65,225,4,135 rect 288,225,4,135 for i =0 to 5 rect 64+(i*45),217,4,8 rect 64+(i*45),362,4,8 next i for j=0 to 3 rect 58,224+(j*45),8,4 rect 290,224+(j*45),8,4 next j color red rect 40,200,275,4 rect 40,385,275,4 rect 40,200,4,185 rect 312,200,4,185 font "Arial",6,50 color black Text 43,230,"0,25m" Text 290,230,"0,25m" font "Arial",30,50 text 170,320, "5" text 260,270, "3" longueur=(4*5/16) font "Arial",10,50 text 20,430,"La longueur mesure donc 5/5 " text 20,445,"donc le demi périmètre mesure 8/5, le périmètre 16/5" text 20,470 ,"Longueur" text 20,485,"( 4 x 5/16 )" text 20,500,"4 x 5/16 = " + longueur text 20,515,"La longueur de la table mesure " + longueur + " m" largeur=(4*3/16) text 20,545,"largeur" text 20,560,"( 4 x 3/16 )" text 20,575,"4 x 3/16 = " + largeur text 20,590,"La largeur de la table mesure " + largeur + " m" ltapis=( 1.25 + ( 0.25 * 2) ) text 20,620,"Longueur du tapis" text 20,635,"( 1.25 + ( 0,25 x 2) )" text 20,650,"1.25 + (0,25 x 2 ) = " + ltapis text 20,665,"La longueur du tapis mesure " + ltapis + " m" lgtapis=( 0.75 + ( 0.25 * 2) ) text 20,695,"Largeur du tapis" text 20,710,"( 0.75 + ( 0,25 x 2) )" text 20,725,"0.75 + (0,25 x 2 ) = " + lgtapis text 20,740,"La largeur du tapis mesure "+ lgtapis + " m" lt=(( 1.75 + 1.25 ) *2) text 20,770,"Longueur totale du galon" text 20,785,"(( 1.75 + 1.25 ) x 2)" text 20,800,"( 1.75 + 1.25 ) x 2 = " + lt text 20,815,"Le galon mesure " + lt + " m" prix=(1.50 * 6) text 20,845,"Prix du galon" text 20,860,"( 1, 50 x 6 )" text 20,875,"1,50 x 6 = 9" + prix text 20,890,"Le galon a coûté " + prix + " F "