rem radicale1x esempio in turbo basic
cls
print"calcolo con INPUT logaritmo decimale di radicale radice(b)(a) "
print"..............................."
input"primo numero radicando a :";a
input"secondo numero  indice b :";b
print"log10(radicale) = log10(a)/b"
print".............................."
print"calcolo logaritmi radicando e quoziente log10(a)/b"
la=log10(a):lp=log10(a)/b
print"logaritmo del radicando"
print using " #.#######";la
print"logaritmo radicando/ indice"
print using " #.#######";lp
print"-------------------------------"
 print"radice = "
 v=10^lp
print using "######.##";v

print"verifico che radice^esponente v^b = a "
ra=v^b
print using "######.###";ra
print "fine prova"
end

rem radicale1y esempio in turbo basic
cls
print"calcolo con INPUT logaritmo neperiano di radicale radice(b)(a) "
print"..............................."
input"primo numero radicando a :";a
input"secondo numero  indice b :";b
print"log(radicale) = log(a)/b"
print".............................."
print"calcolo logaritmi radicando e quoziente log(a)/b"
la=log(a):lp=log(a)/b
print"logaritmo del radicando"
print using " #.#######";la
print"logaritmo radicando/ indice"
print using " #.#######";lp
print"-------------------------------"
 print"radice = "
 v=exp(lp)
print using "######.##";v

print"verifico che radice^esponente v^b = a "
ra=v^b
print using "######.###";ra
print "fine prova"
end

rem risolvo radicale con base positiva
rem radicando con base ed esponente
rem radicale con indice
cls
input "base radicando  =";b
input "esponente       =";c
input "indice radicale =";n
print"---------------------------------"
print"logaritmo radicale = c*log10(b)/n "
print"................................."
logr= (c*log10(b))/n
print "logaritmo radicale = " , using "#.#####";logr
print "radice = 10^logr"
print " radice = ", using "  ####.##  ";10^logr
end