Prgm
Local dezi, dual, rest
ClrIO
Request "Dezimalzahl: ", dezi
expr(dezi) ® dezi
"" ® dual
Loop
mod(dezi, 2) ® rest
string(rest)&dual ® dual
iPart(dezi / 2) ® dezi
If dezi = 0 Then
Exit
EndIf
EndLoop
Disp "Dualzahl: "&dual
EndPrgm
| Programmcode | Bildschirmausgabe |
| dualsys()
Prgm Local dezi, dual, rest ClrIO Request "Dezimalzahl: ", dezi expr(dezi) ® dezi "" ® dual Loop mod(dezi, 2) ® rest string(rest)&dual ® dual iPart(dezi / 2) ® dezi If dezi = 0 Then Exit EndIf EndLoop Disp "Dualzahl: "&dual EndPrgm |
|