rem tavola1 esempio in turbo basic
cls
rem tavola logaritmica decimali
input "scrivi inizio serie numerica";inizio
input "scrivi pssso :";passo
input"scrivi numero di logaritmi da calcolare";numero
print"tavola logaritmica decinali"
print"nunero","mantissa"
print"-------------------------------"
for k=1 to numero
lb=log10(inizio)
print using"####.####    ";inizio,using"    #.#######";lb
inizio=inizio+passo
next k
end

rem tavola2 esempio in turbo basic
cls
rem tavola logaritmica neperiani
input "scrivi inizio serie numerica";inizio
input "scrivi pssso :";passo
input"scrivi numero di logaritmi da calcolare";numero
print"tavola logaritmica decinali"
print"nunero","mantissa"
print"-------------------------------"
for k=1 to numero
lb=log(inizio)
print using"####.####    ";inizio,using"    #.#######";lb
inizio=inizio+passo
next k
end

rem tavola3 esempio in turbo basic
cls
rem tavola logaritmica decimali e neperiani
input "scrivi inizio serie numerica";inizio
input "scrivi pssso :";passo
input"scrivi numero di logaritmi da calcolare";numero
print"tavola logaritmica decinali"
print"nunero","mantissa"
print"-------------------------------"
for k=1 to numero
lb=log10(inizio)
ln=log(inizio)
print using"####.####    ";inizio,using"    #.#######  ";lb,using"     #.#######";ln
inizio=inizio+passo
next k
end