XProfan

SubProc Get.Einer

    Parámetros Zahl&&
    declarar f!
    Var Divisor& = 10
    f! = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&))
    Zahl&& = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&)) * Divisor&
    Volver (f! * Divisor&)

ENDPROC

SubProc Get.Zehner

    Parámetros Zahl&&
    declarar f!
    Var Divisor& = 100
    f! = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&))
    Zahl&& = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&)) * Divisor&
    Volver (f! * Divisor&)

ENDPROC

Imprimir Int(Get("Einer",2020))
Imprimir "Warum kommt hier sólo 19 fuera?"
Imprimir Int(Get("Zehner",2020))
Imprimir
Imprimir Get("Einer",2020)
Imprimir "Als Floatausgabe correcto..."
Imprimir Get("Zehner",2020)
Imprimir "und con Round auch"
Imprimir Int(Round(Get("Zehner",2020),0))
WaitInput

CLS
Var Zahl& = 2020
Var Divisor& = 100
set("decimals",15)
imprimir "  ";Zahl& / Divisor&
set("decimals",6)
imprimir "  ";Zahl& / Divisor&
WaitInput
end