Задание 4.1 Составить и записать на языке программирования Visual Basic программу расчета минимального времени поездки из одного города в другой по шоссе, если в пути встретятся населенные пункты. Разрешенная скорость движения по шоссе 80 км/час, в населенных пунктах – 60 км/час. где A – расстояние между городами n – количество населенных пунктов l средняя протяженность населенного пункта вдоль шоссе Ввод данных организуйте при функции InputBox (Данные для расчета программа запрашивает у пользователя Вывод организуйте при метода Print. Примечание: Время на разгон и торможение не учитывать. Вывод сопроводите текстовыми пояснениями: “Расстояние=” “Количество населенных пунктов=” “Время в пути=” Задание 4.2 Составить и записать на языке программирования Visual Basic программу вычисления значения y по формуле: y = 9 − 2x 3 3√x + √x 2 где x – переменная с любым числовым значением Ввод x организуйте при функции InputBox (Данные для расчета программа запрашивает у пользователя). Вывод организуйте при метода Print. Примечание: Вывод сопроводите текстовыми пояснениями: “ X =” “ Y =” “Решения нет” Задание 4.3 Составить программу определения минимального из 10-ти чисел, вводимых пользователем Ввод данных организуйте при функции InputBox (Данные для расчета программа запрашивает у пользователя). Вывод организуйте при метода Print. Примечание: Вывод сопроводите текстовым пояснением: “Минимум=” Задание 4.4 Какое число было введено с клавиатуры, если в результате выполнения программы было выведено число 10? Dim a(8) As Single Dim i As Single Private Sub Command1_Click() a(0) = Val(InputBox("Введите число")) For i = 1 To 8 a(i) = a(i - 1) - 1 x = a(i) Next i Print x End Sub Задание 4.5 Задан одномерный массив чисел. Какое число будет напечатано в результате выполнения следующей программы: Dim x(10) As Integer Dim k, n As Integer Private Sub Command1_Click() x(1) = 36 x(2) = 20 x(3) = 20 x(4) = 41 x(5) = 19 x(6) = 21 x(7) = 15 x(8) = 33 x(9) = 16 x(10) = 24 n = 1 For k = 1 To 10 If x(k) <=x( n) Then n = k End If Next k Print n End Sub