tabella1 
(* uso di tabulazione e tavole trigonometriche *)

(* da 0 a 5 gradi:trasformare in radianti Degree*)
Print["gradi\tseno\tcoseno\ttangente"]
Print["---------------------------------"]
For[c=0,c<5,c++;
Print[c,"\t",Sin[c Degree]//N,
"\t",Cos[c Degree]//N,"\t",Tan[c Degree]//N]]

gradi	seno		coseno		tangente
---------------------------------
1	0.0174524	0.999848	0.0174551
2	0.0348995	0.999391	0.0349208
3	0.052336	0.99863	0.0524078
4	0.0697565	0.997564	0.0699268
5	0.0871557	0.996195	0.0874887

(* inserire inizio e fine e passo per gradi *)
inizio=Input["inizio gradi="];
fine=Input["fine gradi="];
passo=Input["passo="];

Print["gradi\tradianti\tseno\tcoseno\ttangente"]
Print["---------------------------------"]
For[c=inizio,c<=fine,c=c+passo;rad=N[c Degree],
Print[c,"\t",rad,"\t",Sin[c Degree]//N,
"\t",Cos[c Degree]//N,"\t",Tan[c Degree]//N]]

gradi	radianti	seno		coseno		tangente
---------------------------------
25	0.5411		0.422618	0.906308	0.466308
26	0.453786	0.438371	0.898794	0.487733
27	0.471239	0.45399		0.891007	0.509525
28	0.488692	0.469472	0.882948	0.531709
29	0.506145	0.48481		0.87462		0.554309
30	0.523599	0.5		0.866025	0.57735

(* inserire inizio e fine e passo per gradi *)
inizio=Input["inizio gradi="];
fine=Input["fine gradi="];
passo=Input["passo="];

Print["gradi\tradianti\tseno\tcoseno\ttangente"]
Print["-----------------------------------------"]
For[c=inizio,c<=fine,c=c+passo;rad=N[c Degree,4],
Print[c,"\t",rad,"\t",N[Sin[rad],3],
"\t",N[Cos[rad],3],"\t",N[Tan[rad],3]]]

gradi	radianti	seno	coseno	tangente
---------------------------------
25	0.541052	0.515	0.857	0.601
26	0.4538		0.438	0.899	0.488
27	0.4712		0.454	0.891	0.51
28	0.4887		0.469	0.883	0.532
29	0.5061		0.485	0.875	0.554
30	0.5236		0.5	0.866	0.577

torna a inizio