Завдання для самостійного виконання Складіть програму для обчислення значен-
ня виразу 2.3 + 106 * 4 і збережіть ту файлі
з іменем f_01. Виконайте програму і пере-
конайтеся, що отриманий результат є пра-
ВИЛЬНИМ
Завантажте середовище IDLE, викличте ство-
рену в пункті 1 програму з файла f_01, за-
мініть у програмі операцію множення чис-
ла 106 на 4 на операцію ділення. Збережіть
програму в тому самому файлі. Виконайте
програму та переконайтеся, що отриманий
результат е правильним.
3 Складіть програму для обчислення площі
трикутника за значеннями його сторін. 3бе-
режіть програму у файлі f_02. Виконайте
програму та доведіть, що отриманий резуль-
тат е правильним.
4 Викличте програму, що зберігається у файлі
f_02. Внесіть до неї такі зміни, щоб обчис-
лювалася площа прямокутного трикутника
за значеннями його катетів.
5 У коло радіусом и вписано правильний три-
кутник. Розробіть програму визначення
площі кола, яку не зайнято трикутником
Збережіть програму у файлі f_03. Виконайте
програму та доведіть, що вона функціонує
правильно,
У правильний трикутник зі стороною а впи-
сано коло. Розробіть програму визначення
площі трикутника, яку не зайнято колом.
Збережіть програму у файлі f_04. Виконайте
програму та доведіть, що вона функціонує
правильно.
7 Дізнайтеся в Інтернеті про відстань по шосе
між містами Хмельницький і Вінниця. Розро-
біть проект Визначення орієнтовного часу
прибуття автобуса до Вінниці, який починає
рух із Хмельницького о 8.30.
8 Знайдіть в Інтернеті відомості про найнижчу
та найвищу температуру в Києві у лютому за
останні 5 років. Розробіть проект визначен-
ня різниці між цими показниками.
От
Cells.Clear
Dim n As Integer, i As Integer, min As Integer
n = InputBox("n(>5) = ")
Cells(1, 1).Value = "n = " + Str(n)
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")")
Next i
Cells(2, 1).Value = "Исходный массив"
Range(Cells(3, 1), Cells(3, n)).Value = a
min = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
Next i
Cells(4, 1).Value = "min = " + Str(min)
Cells(5, 1).Value = "Полученный массив"
For i = n - 4 To n
a(i) = min
Next i
Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub
Ошибка 1. Фон слайда не сочетается с темой презентации. И мы видим, к примеру, презентацию о революциях в России на фоне с березками и грибочками.Ошибка 2. Использован фон, который входит в набор программы PowerPoint. За многие годы существования программы PowerPoint стандартными шаблонами воспользовались тысячи людей, опубликовали свои презентации в сети, показали на выступлениях. Эти шаблоны уже просто надоели слушателям.