Старые отчёты / ФЫР / информатика!!!!!!!!! / 1.22

МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

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

ПУТЕЙ СООБЩЕНИЯ

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

ОТЧЕТ

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

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

Структура «Следование»

Вариант 22

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

Дневного отделения

Факультет ЭСУ

Группы

.

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

2004

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

1. Словесное описание задачи. Объем правильной четырехугольной пирамиды равен V. Боковые грани пирамиды наклонены к плоскости основания под углом L. Определить полную поверхность пирамиды по формуле: если V=920см³; L=0,76рад.

2. Определение состава входных и выходных данных. Входные данные: - объем пирамиды V - угол L Выходные данные: - поверхность пирамиды S

3. Математическое описание.

1. Р

   0

   2

   3

   4

   1

   Начало

   S

   V, L

   S=2*(36*V^2*(1/Tan(L))^2)^(1/3)*Cos(L/2)^2/Cos(L)

   Конец

   азработка схемы алгоритма.

2. Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim V As Single, L As Single, S As Single

V = Text1

L = Text2

S = 2 * (36 * V ^ 2 * (1 / Tan(L)) ^ 2) ^ (1 / 3) * Cos(L / 2) ^ 2 / Cos(L)

Print Поверхность S=" & S

End Sub

5 Отладочный пример.

Задание №2

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

A=555 N0=-6420.001 Q=2.4E4

x=q*Log(Abs(a)) C=f*(m-(1+a^2)^(2/3) y=Exp(a/(a+x))

4