Помогите пожалуйста написать код - VB
Формулировка задачи:
Исследовать изменение значения траектории снаряда, вылетающего из орудия под углом с начальной скоростью V0. Координаты точек х и у задаются уравнениями: х = V0 cost; y = V0 sint – gt2/2, где g = 9,8 м/с2 – ускорение свободного падения:
1. при изменении времени t от начального значения t0 до конечного значения tk. с шагом t;
2. при изменении угла от начального значения 0 до конечного значения k. с шагом и при изменении времени t от начального значения до конечного значения с шагом dt.
в Visual Basic
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д