三角関数

質問

sin(x)関数とcos(x)関数の値をｘの値を０から１８０°まで１０°おきに変えて表示するプログラムをつくりなさい。
ｘの単位はラジアンである。

という問題で、１０°おきに変えて表示するっていうのは
どういう風にするとできるんですか？
どう使ってやるかおしえてください。

回答No.1

noname#77845 · ベストアンサー

いろんなやり方があると思うけど…。

FORループを使うなら、

FOR I=0 TO 18
sinを求める。このとき角度をI*10にしてからラジアンに変換する。
sinを表示。
cosを求める。このとき角度をI*10にしてからラジアンに変換する。
cosを表示。
NEXT I

補足

Sub ex84()
Dim x As Double, i As Double, y As Double, z As Long
For i = 0 To 18
z = i * 10
x = Sin(z * 180)
y = Cos(z * 180)
MsgBox "Sin(x)=" & x & "cos(x)=" & y
Next i
End Sub

これのどこかが違うみたいなんですがわかります？

回答No.2

noname#77845

x = Sin(z * 180)
y = Cos(z * 180)

sinとcosの角度はラジアンですよ。
ラジアンは
z*π/180
で求めます。

お礼

そうでした。
プログラミング初心者なんで丁寧な
回答に本当に感謝します。