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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 17

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

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

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

Группы

.

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

2004

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

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

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

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

1. Р

   0

   2

   3

   4

   1

   Начало

   S

   V, L

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

   Конец

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

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

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

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

V = Text1

L = Text2

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

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

End Sub

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

Задание №2

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

Xmin=2.5E-5 j=1 w=-(0.6)^2

m=-Cos(x)^4/4 S=(1/a)^2*(r/12.3)^3 y=Abs(0.5*x+Log(a))

4