Структура развилка / 5

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

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

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

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

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

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

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

ОТЧЕТ

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

на тему:

«С Т Р У К Т У Р А Р А З В И Л К А»

Вариант 5

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

_____________ ** _______________ **

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

20**

Задание №1

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

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

g₁ = sinL , g₂ = 1+lg L , если L

g₁ = x⁴+ , если L > 0,5, где L =

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

Входные данные: T – переменная вещественного типа, x – переменная вещественного типа.

Выходные данные: g1 – переменная вещественного типа, g2 – переменная вещественного типа.

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

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

4. Код приложения

Private Sub Command1_Click()

Dim T As Single, x As Single, g1 As Single, g2 As Single, L As Single

T = InputBox("T=")

x = InputBox("x=")

L = Sqr(T)

If L >= 0.5 Then

g1 = Sin(L)

g2 = 1 + Log(L) / Log(10)

Else

g1 = x ^ 4 + Sqr(x)

End If

Print "T=" & T; "X=" & x; "g1=" & g1; "g2=" & g2;

End Sub

5. Отладка программы

Задание №2

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

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

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

Входные данные: x – переменная вещественного типа.

Выходные данные: y – переменная вещественного типа.

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

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

4. Код приложения

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x=")

If x - 120 < 0 Then

y = 1700 - 0.485 * x ^ 2

Else

If x - 120 = 0 Then

y = 0

Else

y = Sqr(x)

End If

End If

Print "x=" & x, "y=" & y

End Sub

5. Отладка программы