- Code: Select all
Define convertisseur()=
Prgm
Local nbre,prefixe,a,convert
Request "Le nombre à convertir",nbre
RequestStr "Le prefixe est : ",prefixe
If prefixe="kilo" Then
a:=10^(3)
ElseIf prefixe="mega" Then
a:=10^(6)
ElseIf prefixe="giga" Then
a:=10^(9)
ElseIf prefixe="tera" Then
a=10^(12)
Else
Stop
EndIf
RequestStr "Convertir de &prefixe io ou de &prefixe o en octets",convert
EndPrgm
Merci d'avance