Разработать информационную технологию, позволяющую вычислять объем и боковую поверхность призмы, если заданы ее высота, периметр и площадь основания.
Следует создать программу, позволяющую вычислить объем и боковую поверхность призмы, с помощью заданных значений высоты, периметра и площади основания.
|
Входные |
||
|
Имя |
Тип |
Примечание |
|
Н |
Вещественные |
Высота призмы |
|
Р |
Вещественные |
Периметр основания призмы |
|
S |
Вещественные |
Площадь основания призмы |
|
Выходные |
||
|
Имя |
Тип |
Примечание |
|
V |
Вещественное |
Объем призмы |
|
S2 |
Вещественные |
Площадь боковой поверхности призмы |
Option Explicit
Private Sub Start_click()
Dim H as double
Dim P as double
Dim S as double
Dim V as double
Dim S2 as doudle
H=inputbox(«Введите высоту H»)
P=inputbox(«Введите периметр призмы P»)
S=inputbox(«Введите площадь основания призмы S»)
V=S*H
S2=P*H
Msgbox «Объем призмы равен» & V & «Площадь боковой поверхности призмы равна» & S2
End sub
|
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.
