Задание 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

193

431

Посмотреть ответы 1

Ответы на вопрос:

fast0l0n

Информатика

4,8(90 оценок)

4.1666

Объяснение:

12.5/3=4.1666

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.