esercitazioni con Turbo Basic

esci turboba.htm

calcolo quadrato e cubo

 

REM alge32x
REM uso di funzioni con DEF FN
CLS

DEF fnqua (dato) = dato * dato: n = 5: PRINT n, fnqua(n)
DEF fntri (dato) = dato * dato * dato: n = 4: PRINT n, fntri(n)
PRINT "---------------------------------------------------------"
PRINT "attivazione funzioni quadrato e cubo di numeri"
PRINT "n", "fnqua", "fntri"
PRINT
FOR n = 1 TO 5
PRINT n, fnqua(n), fntri(n)
NEXT n
END

5 25
4 64