L litre, D décilitre, C centilitre, M millililitre K fl OZ Anglais (uK), S fl OZ Américain (uS) Attention ce programme est encore en cours d'étude. --------------------------------------------------- PROGRAM:CUISINE 0→A:0→B:0→L:0→D 0→C:0→B:0→M:0→K:0→S EffÉcran Disp "Litre..................= 1" Disp "Décilitre..............= 2" Disp "Centilitre.............= 3" Disp "Millilitre.............= 4" Disp "OZ Anglais.............= 5" Disp "OZ Américain...........= 6" Disp "Tableau des poids......= 7" Input "Votre choix = ",A If A>0 et A<8:Then Input "Le chiffre = ",B Else EffÉcran:Stop End If A=1:B→L: If A=2:B/10→L If A=3:B/100→L If A=4:B/1000→L If A=5:B*35.1951→L If A=6:B*33.8140→L If A=7:Goto T L*10→D:L*100→C:L*1000→M L*35.1951→K:L*33.8140→S arrondir(L,3)→L arrondir(D,2)→D arrondir(C,1)→C arrondir(M,0)→M arrondir(K,5)→K arrondir(S,5)→S EffÉcran Output(2,1,"Millilitre ="):Output(2,14,M) Output(3,1,"Centilitre ="):Output(3,14,C) Output(4,1,"Décilitre ="):Output(4,14,D) Output(5,1,"Litre ="):Output(5,14,L) Output(7,1,"OZ Anglais = "):Output(7,14,K) Output(8,1,"OZ Améric = "):Output(8,14,S) Output(9,1,"--------------------------") Output(10,3,"[entrer] pour sortir !") Pause EffÉcran Stop Lbl T EffÉcran Disp "[Eau]---------------[Poid]" Disp "Millilitre.1ml.......=1 gr" Disp "Centilitre.1cl......=10 gr" Disp "Décilitre..1dl.....=100 gr" Disp "Litre......1litre.=1000 gr" Disp "DécaLitre..1Dl......=10 Kg" Disp "HectoLitre.1Hl.....=100 Kg" Disp "KiloLitre(Tonne)..=1000 Kg" Output(9,1,"--------------------------") Output(10,3,"[entrer] pour sortir !") Pause EffÉcran Effacer entrées