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

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ»

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

Дисциплина: «Информатика»

ОТЧЕТ

по лабораторной работе № 1

«ПОСЛЕДОВАТЕЛЬНАЯ структура»

Вариант 5

Выполнил студент:                                                                                       И

Факультета:Заочный                                                                      

Специальность: «Тоннели и метрополитены»                                                                                                                    

Зачетная книжка:№  12-Тк-203

Санкт-Петербург

2013

вариант 5

Лабораторная работа № 1

Структура СЛЕДОВАНИЕ

1. Вычислить объём и боковую поверхность призмы, если задана её высота, периметр и площадь основания. Объём призмы вычисляется по формуле , а боковая поверхность пирамиды вычисляется по формуле , где h –высота призмы, P – периметр основания, S – площадь основания.

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

Словесное описание.

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

Определение состава выходных данных.

Выходные данные:

V – объём призмы;

Sbok – площадь боковой поверхности призмы S_бок.

V и Sbok – переменные вещественного типа.

Определение состава входных данных.

Входные данные:

h – высота призмы;

P – периметр основания призмы;

S – площадь основания призмы.

h, P и S – переменные вещественного типа.

Разработка математической модели

Математическая модель устанавливает связь между входными и выходными данными.

В нашем случае связь между входными и выходными данными задаётся формулами:

,        .

Составление схемы алгоритма

Для поставленной задачи схема алгоритма будет иметь следующий вид:

Составление кода приложения для решения задачи на компьютере

Для решения поставленной задачи разрабатываем проект на Visual Basic. По нажатию кнопки cmdStart («Вычислить») будет исполняться следующий код:

Private Sub cmdStart_Click()

Dim h As Single, P As Single

Dim S As Single, V As Single, Sbok As Single

h = Val(txtH.Text)  'высота

P = Val(txtP.Text)  'периметр основания

S = Val(txtS.Text)  'площадь основания

V = S * h           'объём

txtV.Text = Str(V)

Sbok = P * h        'площадь боковой поверхности

txtSbok.Text = Str(Sbok)

End Sub

Отладка программы

При вводе следующих значений входных данных:

h = 5,      P = 15,     S = 12,  –

результаты расчёта должны быть следующими:    V = 60,   Sbok = 75.

2. Записать предложенную формулу в виде оператора присваивания.

.

Решение:

Записываем заданное выражение в виде оператора присваивания:

f = (Tan(a+x))^2 / (x + a) * 10000