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

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

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

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

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

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

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

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

ОТЧЕТ

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

на тему:

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

Вариант 22

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

_______________ ** _______________ **

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

20**

Задание №1

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

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

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim x As Single, Y As Single

x = InputBox("x=")

If x > 0 Then

Y = Log(1 + Exp(x))

Else

If x < -1 Then

Y = 1 / Abs(x)

Else

Y = 1

End If

End If

Print "Y=" & Y & " x=" & x

End Sub

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

Задание №2

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

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

где a=d+3,5c

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

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim d As Single, c As Single, a As Single, R As Single

d = InputBox("d=")

c = InputBox("c=")

a = d + 3.5 * c

If a > 1.3 Then

R = Log(a) / Log(10)

Else

R = 2.5 * a - 11

End If

Print "R=" & R & " d=" & d & " c=" & c

End Sub

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