turbo basic

http://informascienze.altervista.org/turbobasic/logabasic3.htm

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