Files
tsvm/assets/disk0/home/basic/sinc.bas
2020-12-24 11:14:11 +09:00

4 lines
67 B
QBasic

10 DEFUN SINC(X)=SIN(X)/X
20 FOR K=1 TO 10
30 PRINT SINC(K)
40 NEXT