rem quoziente2x esempio in turbo basic
cls
print"calcolo con INPUT logaritmo decimale di quoziente a / b "
print"..............................."
input"primo numero   :";a
input"secondo numero  :";b
print"log(a*b) = log10(a) - log10(b)"
print "numeri da dividere "
print a,b
p=a / b
print"eseguo quoziente aritmeticamente"
print p
print".............................."
print"calcolo logaritmi numeri e loro differenza"
la=log10(a):lb=log10(b):lp=la-lb
print using "#.#######";la
print using "#.#######";lb
print using "#.#######";lp
print"-------------------------------"
print"verifico che 10^lp = a/b "
v=10^lp
print using "######.##";v
print "fine prova"
end

rem quoziente2y esempio in turbo basic
cls
print"calcolo con INPUT logaritmo neperiano di quoziente a / b "
print"..............................."
input"primo numero   :";a
input"secondo numero  :";b
print"log(a*b) = log(a) - log(b)"
print "numeri da dividere "
print a,b
p=a / b
print"eseguo quoziente aritmeticamente"
print p
print".............................."
print"calcolo logaritmi numeri e loro differenza"
la=log(a):lb=log(b):lp=la-lb
print using "#.#######";la
print using "#.#######";lb
print using "#.#######";lp
print"-------------------------------"
print"verifico che exp(lp) = a/b "
v=exp(lp)
print using "######.##";v
print "fine prova"
end