【教えてください】BASICのプログラムの宿題
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2006/12/13(水) 19:58:06期限は明日までなので答えだけ教えてもらえるだけでも助かりますし、お時間が空いていらっしゃるなら
詳しい説明を教えていただければ幸いです。
10 REM det
20 N=8
30 DIM A(N),B(N),X(N)
40 FOR I=0 TO N-1
50 READ X(I)
60 NEXT I
70 P=6.283/N
80 FOR K=0 TO N-1
90 A(K)=0:B(K)=0
100FOR J=0 TO N-1
110 A(K)=A(K)+X(J)*COS(P*J*K)
120 B(K)=B(K)-X(J)*SIN(P*J*K)
130NEXT J
140 NEXT K
150 FOR I=0 TO N-1
160 Y=SQR(A(I)^2+B(I)^2)
170 LPRINT I;:LPRINT USING "###.###";A(I),B(I),Y
180 NEXT I
190 DATA 1,1,1,1,0,0,0,0
READ文は、DATA文以降のデータを順番に読み取っていて。
LPRINTは、プリンタに直接出力する命令で、printfと同じってことはなんとかわかってます。
よろしくお願いします。
0002昌也D
2006/12/13(水) 20:58:49すき焼き総合スレになりました。
■ このスレッドは過去ログ倉庫に格納されています