Определить объем тары для сырья - VB
Формулировка задачи:
1.Сделать линейный алгоритм.
Сырьё для изготовления искусстевенных нитей поступает в бочках радиусом r и высотой h. Определить объём тары.
2.Алгоритм разветвлённой структуры.
Даны числа:A,B,C. Найти максимальное, при условии, что A,B,C различны между собой и вывеси его.
3.Циклич. структура.
y(x)=x/a+x,0.1<x<1.2,a=1
буду очень благодарна за помощь!!!
Решение задачи: «Определить объем тары для сырья»
textual
Листинг программы
Dim r As Single, h As Single
r = InputBox("r"): h = InputBox("H")
MsgBox ("Объём цилиндра = " & 3.1415926 * (r ^ 2) * h)