Помогите пожалуйста написать код - VB

Узнай цену своей работы

Формулировка задачи:

Исследовать изменение значения траектории снаряда, вылетающего из орудия под углом  с начальной скоростью V0. Координаты точек х и у задаются уравнениями: х = V0 cost; y = V0 sint – gt2/2, где g = 9,8 м/с2 – ускорение свободного падения:
1. при изменении времени t от начального значения t0 до конечного значения tk. с шагом t;
2. при изменении угла  от начального значения 0 до конечного значения k. с шагом  и при изменении времени t от начального значения до конечного значения с шагом dt.
в Visual Basic

Решение задачи: «Помогите пожалуйста написать код»

textual
Листинг программы
Private Sub CommandButton1_Click()
Const pi As Single = 3.1415926
Dim x As Single, y As Single, alpha As Single, v0 As Single
Dim t0 As Single, tk As Single, t As Single, dt As Single
t0 = InputBox("Введите t0")
tk = InputBox("Введите tk")
dt = InputBox("Введите dt")
v0 = InputBox("Введите v0")
alpha = InputBox("Введите alpha")
For t = t0 To tk Step dt
y = v0 * Sin(alpha) * t - (g * t ^ 2) / 2
x = v0 * Cos(alpha) * t
Next t
MsgBox "  y= " & Format(y, "0.000") & "x= " & Format(x, "0.000")
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы