Вычисление объема и боковой поверхности призмы по ее высоте (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. Пример выполнения.

 
 

Похожие материалы

Информация о работе

Предмет:
Информатика
Тип:
Отчеты по лабораторным работам
Размер файла:
56 Kb
Скачали:
3