For i=1 to 5
x = Val(InputBox(" "))
'
If x > 5 Then
y = Sin(x)^2
w = cos(x)/sin(x)
Else
y = 1 - Sin(x)
w = Atn(x)
End If
MsgBox (x= & x & y= & y & w= & w)
Next
End Sub
, . 7.1.
7.1
7.1
, . .
, a(i), a , i .
, , Dim, :
: |
Dim w As Single, I As Integer
For i=1 to 5 x = Val(InputBox(" ")) ' If x > 5 Then y = Sin(x)^2 w = cos(x)/sin(x) Else y = 1 - Sin(x) w = Atn(x) End If MsgBox (x= & x & y= & y & w= & w) Next End Sub
, . 7.1.
7.1
7.1
, . . , a(i), a , i . , , Dim, :
: 2015-10-01; !; : 385 | : : - , .
|