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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 15

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

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

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

Группы

.

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

2004

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

1. Словесное описание задачи. Вычислить объем правильной треугольной пирамиды, зная, что плоский угол при вершине равен L, а радиус окружности, описанной около боковой грани, равен R: если R=17см; L=0,32рад.

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

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

1. Р

   0

   35

   46

   57

   1

   Начало

   V

   R, L

   V=4/3*R^3*sin(L)^2*cos(L/2)*sqr(sin(pi/3+L/3)*sin(pi/3-L/3))

   Конец

   

   25

   pi=3.1416

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

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

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

Dim V As Single, L As Single, R As Single

Const pi As Single = 3.1416

R = Text1

L = Text2

V = 4 / 3 * R ^ 3 * Sin(L) ^ 2 * Cos(L / 2) * Sqr(Sin(pi / 3 + L / 3) * Sin(pi / 3 - L / 3))

Print "Объем V=" & V

End Sub

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

Задание №2

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

M2p=2.2E-1 h=-4.83E1 b=5E-4

y=d^(1/5) p=y^2+4*x/3 t=abs(c+m)*tan(c^2)

4