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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 7

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

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

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

Группы

.

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

2004

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

1. Словесное описание задачи. Основание прямой призмы – прямоугольный треугольник с площадью и острым углом . Площадь большей грани равна Q. Найти объем призмы по формуле: если S=35 см²; =0,45 рад, Q=100см².

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

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

1. Р

   0

   2

   3

   4

   1

   Начало

   V

   S, Q, f

   V=Q/2*sqr(S*sin(2*f))

   Конец

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

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

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

Dim S As Single, Q As Single, f As Single, V As Single

S = Text1

Q = Text2

f = Text3

V = Q / 2 * Sqr(S * Sin(2 * f))

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

End Sub

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

Задание №2

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

d=5E-5 Vt=-1.5E2 m1=2^5

m=x*Sin(y)/2 y=2*Sin(3.14+z)^2 x=g*exp(1)*exp(-b)

4