МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
Sub Р1()Dim x0 As Single, xk As Single, h As Single Dim a As Single, y As Single, x As Single x0 = Val(InputBox("Введіть х0")) xk = Val(InputBox("Введіть хk")) h = Val(InputBox("Введіть h")) a = Val(InputBox("Введіть a")) x = x0 Do While x <= xk y = Sqr(x ^ 2 + 25) / (x ^ 2 + a ^ 2) Debug.Print "y=" & y & " x=" & x x = x + h Loop End Sub Приклад 2. Записати програму для виведення у вікно налагодження натуральних чисел від n до 1, їхні квадрати і куби. Позначення: n - число, n2, n3 - відповідно квадрат і куб числа. Sub Р2() Dim n As Integer, n2 As Integer, n3 As Integer n = Val(InputBox("Введіть n")) Debug.Print "Число" & " Квадрат числа" & " Куб числа" Do n2 = n ^ 2: n3 = n2 * n Debug.Print n & " " & n2 & " " & n3 n = n - 1 Loop Until n = 0 End sub 2) Оператор While...Wend Цей оператор циклу є різновидом оператора Do…Loop... Синтаксис оператора: While умова Блок операторів Wend Якщо умова має значення True, виконуються Блок операторів до Wend. Якщо умовамає значення False, виконання відновляється з операторів, що випливають за Wend. Цикли While¼Wendможуть мати будь-яку глибину вкладеності. 3) Оператор For... Next Цей оператор циклу можна зустріти в більшості мов програмування. Він використовується у випадках, коли відомо, скільки разів необхідно повторити виконання серії операторів. Синтаксис оператора: For лічильник = початок To кінець [step крок] Блок операторів Next [лічильник] Лічильник – числова змінна, котра автоматично змінюється після кожного повтору. Початкове значення лічильника дорівнює параметру початок, а кінцеве - кінець. Крок - крок лічильника циклів. Якщо цей параметр опущений, то значення кроку приймається рівним 1. Щоб лічильник змінювався по убуванню, використовується негативне значення кроку. Приклад 3. Дан масив Х=(12,24,67,38,56,69) щомісячного випуску продукції в 1-му півріччі. Визначити випуски продукції за 1- й і 2 - й квартали. Sub Р3() Dim x As Variant Dim kv1 As Single, kv2 As Single, i As Integer x=Array(12,24,67,38,56,69) kv1 = 0: kv2= 0 For i = 1 To 3 kv1=kv1+x(i) kv2=kv2+x(i+3) Next i MsgBox " випуск продукції за 1-ий квартал =" & kv1 MsgBox " випуск продукції за 2-ий квартал =" & kv2
|
||||||||
|