Открытый урок «Реализация разветвляющихся алгоритмов на языке программирования Visual Bаsic» - презентация

1 Открытый урок «Реализация разветвляющихся алгоритмов на языке программирования Visual Bаsic»

2 Задача: Составить блок-схему и программный код для приложения, определяющего периметр какого из двух квадратов больше. Значения сторон квадратов вводятся пользователем.

3 Словесный алгоритм 1. Задать значение длины I квадрата. 2. Задать значение длины II квадрата. 3. Вычислить периметр I квадрата. 4. Вычислить периметр II квадрата. 5. Сравнить периметр I квадрата с периметром II квадрата. 6. Если периметр I квадрата оказался больше, то сообщить, что периметр I квадрата больше. 7. Если периметр II квадрата оказался больше, то сообщить, что периметр II квадрата больше.

4 Тема урока: Реализация разветвляющихся алгоритмов на языке программирования Visual Basic

5 Начало а1 а2 Р1=4*а1 Р2=4*а2 Р1>Р2 Конец Периметр I кв. больше Периметр II кв. больше

6 Условная конструкция IF (если) THEN( тогда ) ELSE (иначе) IF условие THEN команда(ы) 1 ELSE команда(ы) 2 End IF

7 Dim a1 As Integer, a2 As Integer, P1 as integer, P2 As Integer Show а1=InputBox(«введите значение стороны I квадрата в см.», «окно ввода») а2=InputBox(«введите значение стороны II квадрата в см.», «окно ввода») P1=4*a1 P2=4*a2 If P1>P2 Then Print «Периметр I квадрата больше» ELSE Print «Периметр II квадрата больше» End if

8 Домашнее задание 1.Конспект. 2.Задача 1. 3.Задача 2.