Развилка 16-вариант / Структура Развилка

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

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

высшего образования

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

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

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

Факультет «Промышленное и гражданское строительство»

Кафедра «Информатика и информационная безопасность»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «Структура Развилка»

Форма обучения – очная

Вариант: 16

Выполнил обучающийся Курс 1 Группа бтб-709	__________________ подпись, дата	Турапов Ж.М.
Руководитель	__________________ подпись, дата	Яковлева Н.А

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

2017

“Структура Развилка”

1.

(1 - x) (1 + x) , если x < 0

y = , если x = 0 или x = 1

0 , в остальных случаях

2.

x, если x > 0

Y =

e^x, если x  0

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

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

(1 - x) (1 + x) , если x < 0

y = , если x = 0 или x = 1

0 , в остальных случаях

1.2 Описание постановки задачи

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

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

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

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

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

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

1.3 Разработка математической модели

(1 - x) (1 + x), если x < 0

y = , если x = 0 или x = 1

0, в остальных случаях

1.4 Составление схемы алгоритма

1.5 Программный код

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x")

If x < 0 Then

y = (1 - x) * (1 + x)

ElseIf x = 0 Or x = 1 Then

y = Sqr(3 * x + 1)

Else

y = 0

End If

Print "x=" & x & " y=" & Format(y, "0.00")

End Sub

1.6 Отладка

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

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

x, если x > 0

Y =

e^x, если x  0

2.2 Описание постановки задачи:

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

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

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

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

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

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

3. Разработка математической модели

x, если x > 0

Y =

e^x , если x  0

2.4 Составление схемы алгоритма

2.5 Программный код

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x")

If x > 0 Then

y = x

Else

y = Exp(x)

End If

Print "x=" & x & " y=" & Format(y, "0.00")

End Sub

2.6 Отладка