In questo post riporto un semplice esempio di programma GW-BASIC: si tratta del calcolo del potenza con il metodo delle potenze ricorsive. Per maggiori informazioni sull'algoritmo potete partire dalla spiegazione che trovate qui.
L'implementazione è iterativa (non ricorsiva) e fa uso del solo costrutto IF (si poteva usare un WHILE/WEND, qui sostituito da un IF+GOTO).
Per provare questo programma potete usare PC-BASIC, scaricabile da qui e del quale potete leggere una breve introduzione qui ... Buon divertimento!!!
10 CLS
20 INPUT "INSERISCI BASE ";A
30 INPUT "INSERISCI ESPONENTE ";E
40 POT=1:B=A:X=E
50 IF X/2<>INT(X/2) THEN POT=POT*B
60 B=B*B:X=INT(X/2)
70 IF X<>0 THEN 50
80 PRINT POT
