SHOW:
|
|
- or go back to the newest paste.
| 1 | Define convertisseur()= | |
| 2 | Prgm | |
| 3 | - | Local nbre,prefixe,a,convert |
| 3 | + | Local nbre,prefixe,a,facteur,abrev,convert,octets,bits |
| 4 | Request "Le nombre à convertir",nbre | |
| 5 | RequestStr "Le prefixe est : ",prefixe | |
| 6 | - | If prefixe="kilo" Then |
| 6 | + | If prefixe="kilo" or prefixe="k" or prefixe="K" Then |
| 7 | a:=10^(3) | |
| 8 | facteur:=1 | |
| 9 | - | ElseIf prefixe="mega" Then |
| 9 | + | |
| 10 | ElseIf prefixe="mega" or prefixe="m" or prefixe="M" Then | |
| 11 | a:=10^(6) | |
| 12 | - | ElseIf prefixe="giga" Then |
| 12 | + | facteur:=2 |
| 13 | abrev:="M" | |
| 14 | ElseIf prefixe="giga" or prefixe="g" or prefixe="G" Then | |
| 15 | - | ElseIf prefixe="tera" Then |
| 15 | + | |
| 16 | - | a=10^(12) |
| 16 | + | facteur:=3 |
| 17 | abrev:="G" | |
| 18 | ElseIf prefixe="tera" or prefixe="t" or prefixe="T" Then | |
| 19 | a:=10^(12) | |
| 20 | facteur:=4 | |
| 21 | - | RequestStr "Convertir de "&abrev&" io ou de "&abrev&" o en octets", convert |
| 21 | + | |
| 22 | - | |
| 22 | + | |
| 23 | - | |
| 23 | + | |
| 24 | EndIf | |
| 25 | RequestStr "Convertir de "&abrev&"io ou de "&abrev&"o en octets: de ",convert | |
| 26 | If convert="kio" or convert="mio" or convert="gio" or convert="tio" Then | |
| 27 | setMode(3,3) | |
| 28 | octets:=nbre*2^(facteur*10) | |
| 29 | ElseIf convert="ko" or convert="mo" or convert="go" or convert="to" Then | |
| 30 | octets:=nbre*a | |
| 31 | Else | |
| 32 | Stop | |
| 33 | EndIf | |
| 34 | bits:=octets*8 | |
| 35 | Disp "La conversion de "&nbre,abrev&" en octets est =",octets,"octet" | |
| 36 | Disp "Le nombre de bots est ",bits,"bits" | |
| 37 | EndPrgm |
