| EvilAdmin | Дата: Понедельник, 28.12.2015, 12:07 | Сообщение # 1 |
 Учитель
Группа: Администраторы
Сообщений: 310
Репутация: 0
Статус: Offline
| Проект "Диапазон углов" на языке Visual Basic
1. Для создания графического интерфейса проекта "Диапазон углов, обеспечивающих попадание в стенку" разместить на форме:
- три текстовых поля для ввода значений: TextBox1 - начальной скорости, TextBox2 - расстояние до стенки и TextBox3 - высоты стенки;
- надпись Label1 для вывода диапазона значений углов, при которых происходит попадание мячика в стенку;
- восемь надписей для обозначения переменных и единиц измерения;
- кнопку Button1 для запуска обработчика события.
2. Для каждого значения скорости бросания мячика получить диапазон значений углов, обеспечивающих попадание мячика в стенку. Для этого в цикле со счетчиком, которым является переменная А (угол бросания), вычислять высоту мячика в момент его нахождения на расстоянии стенки. Для каждой высоты мячика с помощью оператора условного перехода в сокращенной форме If-Then-End If проверять, справедливо ли условие 0<=L And L<=H (попадёт ли мячик в стенку).
Если условие справедливо, то значение переменной А (угол бросания) выводит надпись Label1 с использованием функции преобразования числа в строку Str(A).
Программный код обработчика события:
Код Const G As Single = 9.81
Const Pi As Single = 3.14
Dim V0, S, H, L As Single, A As Integer
Private Sub Button1_Click(...)
'Ввод начальных значений
V0=Val(TextBox1.Text)
S=Val(TextBox2.Text)
H=Val(TextBox3.Text)
Label1.Text=""
For A=0 To 90
'Попадание в стенку
L=S*Math.Tan(A*Pi/180)-(G*S^2)/(2*V0^2*Math.Cos(A*Pi/180)^2)
'Вывод значений диапазона углов
If 0<=L And L<=H Then
Label1.Text=Label1.Text+Str(A)
End If
Next A
End Sub
3. Запустить проект и ввести скорость бросания мячика, расстояние до стенки и её высоту. Щёлкнуть по кнопке Диапазон углов.
Получим важный результат - оказывается, существуют два диапазона углов: от 33° до 36° и от 56° до 57°, которые обеспечивают попадание мячика при скорости бросания v0=18 м/с в стенку высотой h=1 м, находящуюся на расстоянии S=30 м.
|
| |
| |
