Структура следование / 2

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Кафедра «Информационные и вычислительные системы»

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

ОТЧЕТ

о лабораторной работе № 1

на тему:

«С Т Р У К Т У Р А С Л Е Д О В А Н И Е»

Вариант 2

Выполнила студентка факультета группы Проверил

______________ _______________

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

20**

Задание №1

с=130000*10-3	с=13E4*10^-3
	lambda=(1/3)^(-4)
	x0=Sqr(-64)
	t=3/Sqr(2)*Tan(x)
b=7,39*10-3x	b=7.39*10^-3*x
y=2ln(ab)	y=2*Log(a*b)

Задание №2

1) Постановка задачи

1.1) Словесное описание задачи

Основание прямоугольного параллелепипеда – ромб с острым углом φ и меньшей диагональю d. Найти объём параллелепипеда если большая диагональ его составляет с плоскостью боковой грани угол L:

если d=18 см; φ=0,68 рад; L=0,32 рад.

1.2) Состав входных и выходных данных

Входные данные:

d – переменная вещественного типа, fi – переменная вещественного типа,

L – переменная вещественного типа.

Выходные данные:

V – переменная вещественного типа.

2) Математическая модель задачи

3) Схема алгоритма

4) Визуальная часть проекта

5) Код приложения

Private Sub Command1_Click()

Dim d As Single, fi As Single, L As Single

d = Val(Text1.Text)

fi = Val(Text2.Text)

L = Val(Text3.Text)

V = d ^ 3 * 1 / Tan(fi / 2) ^ 3 / (2 * Sin(L)) * Sqr(Sin(fi / 2 + L) * Sin(fi / 2 - L))

Text4.Text = Str(V)

End Sub

6) Отладка программы