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

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

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

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

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

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

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

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

ОТЧЕТ

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

на тему:

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

Вариант 1

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

_____________ ** _____________ **

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

20**

Задание №1

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

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

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim x As Single, F As Single

Const Pi As Single = 3.141593

x = InputBox("x=", "Введите x")

If x < 0 Then

F = Sin(x)

Else

If x > Pi / 2 Then

F = Cos(x)

Else

F = 0

End If

End If

Print "F=" & F & " (x=" & x & ")"

End Sub

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

Задание №2

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

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

Y₁=1-0,5m; Y₂=m , если m≤3,5

Ввести значения Y₁ и Y₂ , если m>3,5

где m=r²

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

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

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

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

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

m=r2

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

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

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

Private Sub Command1_Click()

Dim r As Single, m As Single, Y1 As Single, Y2 As Single

r = InputBox("r=", "Введите r")

m = r ^ 2

If m <= 3.5 Then

Y1 = 1 - 0.5 * m

Y2 = m

Else

Y1 = InputBox("Y1=", "Введите Y1")

Y2 = InputBox("Y2=", "Введите Y2")

End If

Print "Y1=" & Y1 & " Y2=" & Y2 & " (r=" & r & ")"

End Sub

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