Скачать:
Лабораторная работа: Разветвляющиеся алгоритмы
Цель работы
Целью работы является изучение возможностей разработки приложений с разветвляющимися алгоритмическими структурами
Разветвляющиеся алгоритмы. Задания первого уровня сложности к лабораторной работе №3
В следующих задачах организовать выполнение алгоритма следующим образом: выбор вычисления по той или иной формуле - с помощью элемента управления переключатель, форматный или бесформатный вывод - с помощью элемента управления флажок.
Интерфейс программы:
Блок схема:
Текст программы:
Private Sub Command1_Click()
Picture1.Cls
r = Val(Text1)
If Option1.Value Then res = (4 / 3) * 3.1415 * r ^ 3
If Option2.Value Then res = 4 * 3.1415 * r ^ 2
If Check1.Value Then
Picture1.Print Round(res, 1)
Else
Picture1.Print res
End If
End Sub
Пример: