rem prodotto3x esempio in turbo basic
cls
print"calcolo con INPUT logaritmo decimale di prodotto a*b "
print"con numeri anche negativi "
print"non esiste logaritmo nel campo numeri reali per numeri negativi"
print"considero i valori assoluti e alla fine instroduco il segno"
print"negativo se solo un numero è negativo, positivo se lo sono entrambi"
print"..............................."
input"primo numero   :";c
input"secondo numero  :";d
print"log(c*d) = log10(c) + log10(d)"
print "numeri da moltiplicare "
a=abs(c)
b=abs(d)
p=c*d
print"eseguo prodotto aritmeticamente"
print p
print".............................."
print"calcolo logaritmi numeri e loro somma"
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"introduco il segno del prodotto finale"
if (sgn(c)=-1) and (sgn(d)=1) then
s=-1
elseif (sgn(c>=1) and (sgn(d)=-1)) then
s=-1
else
s=+1
end if
print"segno prodotto finale :   ";s

print "fine prova"
end