rem potenza2x esempio in turbo basic
cls
print"calcolo con INPUT logaritmo decimale di potenza 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 base negativa ed esponente dispari"
print"positivo se base negativa ed esponente pari"
print"..............................."
input"primo numero base  :";c
input"secondo numero  esponente:";b
print"log(c^b) = b*log10(c) "
print "numeri da elaborare "
a=abs(c)
p=c^b
print"eseguo potenza aritmeticamente"
print p
print"verifico se esponente pari o dispari"
r = b mod 2
print".............................."
print"calcolo logaritmo base e logaritmo b*log10(c)"
la=log10(a):lp=b*la
print using "#.#######";la
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 (r<>0) then
s=-1
elseif (sgn(c)=-1) and (r=0) then
s=1
elseif (sgn(c)=1) then
s=1
end if
print"segno prodotto finale :   ";s

print "fine prova"
end

rem potenza2x esempio in turbo basic
cls
print"calcolo con INPUT logaritmo neperiano di potenza 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 base negativa ed esponente dispari"
print"positivo se base negativa ed esponente pari"
print"..............................."
input"primo numero base  :";c
input"secondo numero  esponente:";b
print"log(c^b) = b*log(c) "
print "numeri da elaborare "
a=abs(c)
p=c^b
print"eseguo potenza aritmeticamente"
print p
print"verifico se esponente pari o dispari"
r = b mod 2
print".............................."
print"calcolo logaritmo base e logaritmo b*log(c)"
la=log(a):lp=b*la
print using "#.#######";la
print using "#.#######";lp
print"-------------------------------"
 print"verifico che exp(lp) = c^b "
 v=exp(lp)
print using "######.##";v
print"introduco il segno del prodotto finale"
if (sgn(c)=-1) and (r<>0) then
s=-1
elseif (sgn(c)=-1) and (r=0) then
s=1
elseif (sgn(c)=1) then
s=1
end if
print"segno prodotto finale :   ";s

print "fine prova"
end