Вычисление объема и боковой поверхности призмы по ее высоте (Visual Basic)

Задача №1

Разработать информационную технологию, позволяющую вычислять объем и боковую поверхность призмы, если заданы ее высота, периметр и площадь основания.

Решение.

1. Постановка задачи.

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

 2. Входные и выходные данные.

Входные
Имя	Тип	Примечание
Н	Вещественные	Высота призмы
Р	Вещественные	Периметр основания призмы
S	Вещественные	Площадь основания призмы

Выходные
Имя	Тип	Примечание
V	Вещественное	Объем призмы
S2	Вещественные	Площадь боковой поверхности призмы

3.  Математическая модель.

4. Блок-схема алгоритма.

5. Код приложения.

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

7. Пример выполнения.