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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 13

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

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

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

Группы

.

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

2004

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

1. Словесное описание задачи. На высоте конуса, как на диаметре, описан шар. Найти объем части шара, заключенный внутри конуса, если высота конуса Н, а угол при вершине его осевого сечения равен L. если Н=10см; L=0,35рад.

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

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

1. Р

   1

   35

   46

   57

   2

   Начало

   V

   H, L

   V=1/6*pi*H^3*sin(L)^2*(1+cos(L)^2)

   Конец

   

   35

   pi=3.1416

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

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

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

Dim H As Single, L As Single, V As Single

Const pi As Single = 3.1416

H = Text1

L = Text2

V = 1 / 6 * pi * H ^ 3 * Sin(L) ^ 2 * (1 + Cos(L) ^ 2)

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

End Sub

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

Задание №2

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

F=5.5E-1 n=3.7E3 dh=4.8E-5

a=1+b^2 y=Log(1/Tan(x))/Exp(x) t=(b+Cos(x))^(1/3)

4