Задание 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
Для формирования сводного отчета по документооборотам выполните действия:
1. Выберите в главном меню «Действия – Сформировать отчет».
Откроется окно «Формирование отчета».
2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:
за все время - автоматически проставляется период с начала использования программы по текущую дату.
за месяц - автоматически проставляется период за месяц от текущей даты.
за неделю - автоматически проставляется период за дней от текущей даты.
3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.
4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .
5. Развернется форма <Название направления документооборота> , например «Налоговая служба».
6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.
Оптический телеграф Оптический телеграф В 1792 году во Франции Клод Шапп создал систему передачи визуальной информации, которая получила название «Оптический телеграф» . В простейшем виде это была цепь типовых строений, с расположенными на кровле шестами с подвижными поперечинами, которая создавалась в пределах видимости одно от другого. Шесты с подвижными поперечинами — семафоры — управлялись при тросов специальными операторами изнутри строений. Шапп создал специальную таблицу кодов, где каждой букве алфавита соответствовала определенная фигура, образуемая семафором, в зависимости от положений поперечных брусьев относительно опорного шеста. Система Шаппа позволяла передавать сообщения на скорости два слова в минуту и быстро распространилась в Европе. В Швеции цепь станций оптического телеграфа действовала до 1880 года