Numeri complessi

[W28]

0 Rem Program by W28 tutti i diritti non sono riservati
<BR>10 Cls : Rem se non funziona vedi forum sull\'irrazionalità di pi
<BR>20 Def fna(x)=tan(x)*tan(x+1)
<BR>30 input \"k=\";k
<BR>40 For n= 1 to k
<BR>50 S=S+fna(n)
<BR>60 next
<BR>70 print \"la soluzione è \"S
<BR>80 end
<BR><IMG SRC="images/forum/icons/icon_wink.gif">
<BR>----------------
<BR>Per chi possiede un C=128 può inserire le seguenti righe
<BR>35 fast
<BR>65 slow
<BR>e sostituire alla riga 10
<BR>10 scrclr