Петербургский государственный университет путей

сообщения

(ПГУПС – ЛИИЖТ)

Кафедра «Информатики и информационной безопасности»

Отчет

О выполнении лабораторной работы по дисциплине «Информатика»

Структура следование.

Выполнила: студентка группы ЭТ-801

Афанасьева Е.А.

Проверил:

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

2008

“СТРУКТУРА СЛЕДОВАНИЕ”

1. Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.

2. Подготовить задачу к решению на ЭВМ, выполнить постановку задачи, математическое описание, разработку алгоритма и программы.

Рассчитать контрольный вариант по предложенным численным значениям входных данных и отладить программу.

ВАРИАНТ 1

Задание №1.

Задание №2

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

Полная поверхность правильной четырехугольной пирамиды равна S, угол наклона боковой грани к плоскости основания равен L. Определить объем пирамиды по формуле.

если S=0,54 м³; L=0,8 рад.

Входные данные: S, L – вещественного типа

Выходные данные: V – вещественного типа

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

V не может принимать отрицательного значения

Алгоритмизация.

Разработка проекта

Private Sub Command1_Click()

Dim L As Single

Dim S As Single

Dim V As Single

L = Val(Text1)

S = Val(Text2)

V = ((S * Sin(L)) / (24 * (Cos(L / 2) ^ 3))) * Sqr(Abs(2 * S * Cos(L)))

Text3 = Str(V)

End Sub

4