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

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

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

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

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

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

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