mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
10 lines
183 B
QBasic
10 lines
183 B
QBasic
10 DEFUN POW2(N)=2^N
|
|
20 DEFUN DCOS(N)=COS(PI*N/180)
|
|
30 FOR X=0 TO 8
|
|
40 PRINT X,POW2(X)
|
|
50 NEXT
|
|
60 PRINT "----------------"
|
|
70 FOREACH A=0!45!90!135!180!NIL
|
|
80 PRINT A,DCOS(A)
|
|
90 NEXT
|