ni = int(rand * 10)
nf = round(rand * 10, 4)
ex = int(rand * 10)
print "     "; ni; " ^ "; ex; " = "; iPow (ni, ex)
print nf; " ^ "; ex; " = "; fPow (nf, ex)
end

function iPow (base, exponent)
    if exponent = 0 then return 1
    if exponent = 1 then return base
    if exponent < 0 then return 1 / iPow(base, -exponent)
    power = base
    for i = 2 to exponent
        power *= base
    next
    return power
end function

function fPow (base, exponent)
    if exponent = 0.0 then return 1.0
    if exponent = 1.0 then return base
    if exponent < 0.0 then return 1.0 / fPow(base, -exponent)
    power = base
    for i = 2 to exponent
        power *= base
    next
    return power
end function