Correspondance entre les tours minutes
   les tours seconde, et autres...
--------------------------------------
PROGRAM:TOURS

Effacer entrées

0→C:0→N:0→A:0→R:0→L:0→T:0→D:0→S:M→T:0→H:0→I:0→J

EffÉcran

"----Nombre de tour par----nano/sec.=1   micr/sec.=2 mill/sec.=3   cent/sec.=4 dixi/sec.=5   seconde..=6 minute...=7   heure....=8 --------------------------"→Chn1
For(I,1,156,26)
J+1→J
Output(J,1,sousch(Chn1,I,26))
End

For(K,1,6):Disp "":End

Input "Votre choix = ",C
If C>0 et C<9:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1:N*10000→D
If C=2:N*1000→D
If C=3:N*100→D
If C=4:N*10→D
If C=5:N→D
If C=6:N/10→D
If C=7:N/60/10→D
If C=8:N/3600/10→D

D/^(4)→A:D/^(3)→R
D/100→L:D/10→T:D*10→S
D*600→M:D*36^(3)→H

"nanos= micro= milli= centi= dixiè= secon= minut= heure= "→Chn2
{A,R,L,T,D,S,M,H}→L₁

EffÉcran

0→I:0→J
For(I,1,56,7)
J+1→J
Output(J,2,sousch(Chn2,I,7):Output(J,9,L₁(J))
End

Pause 
EffÉcran
EffTtesListes