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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 11

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

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

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

Группы

.

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

2004

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

1. Словесное описание задачи. Основание прямой призмы – ромб. Одна из диагоналей призмы равна  и составляет с плоскостью основания угол, равный L, а с одной из боковых граней угол, равный .Найти объем призмы по формуле: если а=28см; L=40⁰; =30⁰.

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

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

1. Р

   0

   2

   3

   4

   1

   Начало

   V

   a, L, B

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

   Конец

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

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

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

Dim a As Single, L As Single, B As Single, V As Single

a = Text1

L = Text2 * 3.1416 / 180

B = Text3 * 3.1416 / 180

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

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

End Sub

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

Задание №2

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

f=2.37E2 b=-32*2^5 pi=3.14

f=a/2*sqr(a+c) pi=3.14 S=r*sin(pi)/abs(t+x^3) y=sin(b*x)+abs(c)

4