@KGTOLB
F o r m a t :
© K G T O L B
( < e x p > )
Utilisation:
C o n v e r t i t l e s k i l o g r a m m e s e n l i v r e s .
E x e m p l e :
P R I N T © K G T O L B d 2 0 )
Précision:
1 3 ( ± 1 )
c h i f f r e s
• R e m a r q u e s
C e t t e f o n c t i o n c o n v e r t i t l e s k i l o g r a m m e s e n l i v r e s s e l o n le r a p p o r t :
1 k g = 2 . 2 0 4 6 2 2 6 2 l i v r e s .
E x p r i m e z < e x p >
e n k i l o g r a m m e s .
• E x e m p l e de p r o g r a m m e
10 L P R I N T
"
k g
p o ; d s
c l a s s e "
2 0
I N P U T
" E n t r e z
v o t r e
p o i d s
e n
k l L o g r A m
m e s . " ;K
3 0
P = @ K G T 0 L B C K 5
4 0
L P R I N T
U S I N G ' t i D » . tt" ; K ;
5 0
L P R I N T
'
" ;
6 0
I F P < = U Z
THEN L P R I N T
U S I N G " t t t t « . t ) " ; P ;
-•GOTO 1 8 8
7 0
I F P < = 1 1 8
THEN L P R I N T
U S I N G " t t t » t t . » " ; P ;
: G 0 T O 1 9 0
8 0
I F P < = 1 2 2
THEN L P R I N T
US 1 N G " « « « . H " ; P ;
:GOTO 2 0 0
9 0
I F P < = 1 Z 6
THEN L P R I N T
U S I N G " « « < t . B " ; P ;
:GOTO 2 1 0
100
I F P < = 1 3 0
THEN L P R I N T
U S I N G " 8 t ) t t
M" ;p
; : G O T O 2 2 0
1 1 0
I F P < = 1 3 5
THEN
L P R I N T
U S I N G " t t « 8
;p
; :GOTO 2 3 0
120
I F P < = 1 4 0
THEN L P R I N T
U S I N G " t l « t «
; P
; : G O T O
2 4 0
1 3 0
I F P < = 1 4 7
THEN L P R I N T
U S I N G " « t t t l
tt " ; P
; :QOTO 2 5 0
1 4 0
I F P < = 1 5 4
THEN L P R I N T
U S I N G ' «fttt
t l " ; P
; :GOTO 2 6 0
1 5 0
I F P < = 1 6 0
THEN L P R I N T
U S I N C t t U t )
tt ' ; P
; : G O T O
2 7 0
1 6 0
I F F < = 1 7 5
THEN L P R I N T
US I N G " t t t ) « tt" ; F
; :GOTO 2 8 0
6 4