Do While + Do While - VB
Формулировка задачи:
Вычислить значения функции a = (b^x + c^y)* sin(xy) при изменении x в пределах /1; 2/ c шагом 0,25 и y в пределах /4,2; 5,1/ c шагом 0,3
Решение задачи: «Do While + Do While»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim x As Double, y As Double, dx As Double, dy As Double
- Dim a As Double, b As Double, c As Double
- x = 1
- y = 4.2
- dx = 0.25
- dy = 0.3
- b = 2
- c = 3
- Do
- a = (b ^ x + c ^ y) * Sin(x * y)
- Print "a(x=" & x & ", y=" & y & ")=" & a
- x = x + dx
- y = y + dy
- Loop While x < 2 Or y < 5.1
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
