Les balances de précision offrent plusieurs unités de poids tl, dwt, gn, ozt, oz, ct, mg, g. PESER1 est un petit programme de convertion. Attention ce programme est encore en cours d'étude. ----------------------------------------------------------- PROGRAM:PESER2 Effacer entrées EffÉcran 0→G:0→K:0→B:0→F 0→M:0→C:0→D:0→L Disp "mikl ml.:Lait..........= 8" Disp "fl oz...:once liquide..= 7" Disp "dl......:décilitre.....= 6" Disp "cl......:centilitre....= 5" Disp "ml......:millilitre....= 4" Disp "lb oz...:livre once....= 3" Disp "kg......:kilogramme....= 2" Disp "g.......:gramme........= 1" Input "Votre choix = ",A If A>0 et A<9:Then Input "Le chiffre = ",X Else EffÉcran:Stop End If A=1:X→G If A=2:X*1000→G If A=3:X*28.349523125→G If A=4:X→G If A=5:X*10→G If A=6:X*100→G If A=7:X*28.4130625→G If A=8:X*1032→G G=G G/1000→K G/28.349523125→B G→M M*10→C M*100→D M/28.4130625→F M/1032→L EffÉcran Output(1,3,"g.......:"):Output(1,12,G) Output(2,3,"kg......:"):Output(2,12,K) Output(3,3,"lb oz...:"):Output(3,12,B) Output(4,3,"ml......:"):Output(4,12,M) Output(5,3,"cl.....:"):Output(5,12,C) Output(6,3,"dl......:"):Output(6,12,D) Output(7,3,"fl oz...:"):Output(7,12,F) Output(8,3,"Lait....:"):Output(8,12,L) Output(9,1,"--------------------------") Output(10,3,"[entrer] pour sortir !")