Ізяславський НВК 2, Гульчак І.В. Цикли в алгоритмах і програмах Visual Basic 2008 11 клас Академічний рівень. - презентация

1 Ізяславський НВК 2, Гульчак І.В. Цикли в алгоритмах і програмах Visual Basic клас Академічний рівень

2 Цикли в алгоритмах Задача 1. Є порожня діжка і відро. Використовуючи відро, наповнити діжку водою з колодязя.

3 Блок-схема Початок ні Кінець Дано: діжка, відро, вода Наповнити відро водою Діжка повна? Вивести Діжка наповнена! так Вилити воду з відра в діжку Тіло циклу Умова

4 Блок-схема (інший варіант) Початок ні Кінець Дано: діжка, відро, вода Наповнити відро водою Діжка неповна? Вивести Діжка наповнена! так Вилити воду з відра в діжку

5 Види циклів Цикл з післяумовою Цикл з передумовою Команди тіла циклу умова ні так Команди тіла циклу ні так

6 Цикл з лічильником Лічильник := початкове значення Лічильник кінцеве значення Команди тіла циклу Лічильник := лічильник + 1 ні так

7 Цикли у Visual Basic 2008 Визначений цикл (з лічильником) Dim лічильник As Integer For лічильник = поч.значення To кінц.значення Тіло циклу (оператори) Тіло циклу (оператори)Next

8 Обчислити суму перших ста натуральних чисел Sum=1+2+3+…+100 Dim i As Integer Dim Sum As Integer = 0 For i = 1 To 100 Sum = Sum + i Sum = Sum + iNext MessageBox.Show(Sum) iSum

9 Цикл виконувати, поки Do While () Do While (умова) тіло циклу (оператори)Loop Тіло циклу виконується, доки умова істинна

10 Цикл виконувати, доки не Do Until () Do Until (умова) тіло циклу (оператори)Loop Тіло циклу виконується, доки умова хибна

11 Обчислити суму парних чисел від 1 до 100 включно Dim i As Integer = 2 Dim Sum As Integer = 0 Do While () Do While (i<=100) Sum=Sum+i i=i+2Loop MessageBox.Show(Sum) Dim i As Integer = 2 Dim Sum As Integer = 0 Do Until (i>100) Sum=Sum+i i=i+2 Loop MessageBox.Show(Sum) i Sum