Лабораторная работа №3

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

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

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

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

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

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

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

ОТЧЕТ

о лабораторной работе № 3 на тему:

«Структура развилка»

Вариант 11

.

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

факультета ПГС

группы УЗС-309 ПавловД.Е.

Проверил: Шедько Н.А.

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

2024

Задача №1

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

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

Вычислить значение функции:

1.2. Состав входных и выходных переменных

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

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

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

.

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

F = Cos(x)

F = 0

5

0 ≤ x ≤

x < 0

F = Sin(x)

F

F

4. Исходный код (Код программы)

Private Sub CommandButton1_Click()

Dim x As Single, F As Single

Const pi As Single = 3.141592

x = InputBox("x=")

If x < 0 Then

F = Sin(x)

Else

If 0 < x And x < pi / 2 Then

F = 0

Else

If x > 0 Then

F = Cos(x)

End If

Debug.Print "F=" & F

End If

End If

End Sub

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

Задача №2

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

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

Вычислить значение функции:

2. Y₁ = 1 - 0,5a ; Y₂ = a , если m  3,5

ввести Y₁ и Y₂ , если m > 3,5, где m = r²

1.2. Состав входных и выходных переменных

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

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

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

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

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

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

2. Y₁ = 1 - 0,5a ; Y₂ = a , если m  3,5

ввести Y₁ и Y₂ , если m > 3,5, где m = r²

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

9

8

Y1,Y2

m

7

m = r²

Y1,Y2

6

5

Y1,Y2

Y2 = a

m,r,a

m = r²

m≤3.5

Ввести Y1

Y1=1-0.5*a

4. Исходный код (Код программы)

Private Sub CommandButton1_Click()

Dim a As Single, m As Single, r As Single

a = InputBox("a=")

m = InputBox("m=")

r = InputBox("r=")

If m <= 3.5 Then

Y1 = 1 - 0.5 * a

Y2 = a

Else

If m > 3.5 Then

m = r ^ (2)

End If

End If

Debug.Print "Y1=" & Y1

Debug.Print "Y2=" & Y2

End Sub

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