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

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра I»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина «ИНФОРМАТИКА»

ОТЧЁТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ № 3

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

ВАРИАНТ 7

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

Факультет: **

Специальность: **

Группа: **

Проверил:

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

20**

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №3

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

ВАРИАНТ 7

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

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

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

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

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

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

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

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

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

1.3 Математическое описание задачи:

начало

1.4 Схема алгоритма решения задачи:

x, a, n

x≥0

нет

да

y

Конец

1.5 Листинг кода программы:

Private Sub Command1_Click() Dim x As Single, n As Single, a As Single, y As Single x = InputBox("x=", "Input") n = InputBox("n=", "Input") a = InputBox("a=", "Input") If x >= 0 Then y = x ^ (2 * n) + Atn(x) Else y = x ^ (2 * n + 1) - Sin(x ^ 2) End If Print "x=" & x & " n=" & n & " a=" & a & " y=" & Format(y,"0.000") End Sub

1.6 Выполнение проекта:

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

где π=3,14; x, y – переменные целого типа.

При решении контрольного примера переменным присвоить значения:

1) x=-1; y=2; 2) x=2; y=3; 1) x=0; y=6;

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

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

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

x – перменная целого типа,

y – переменная целого типа.

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

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

2.3 Математическое описание задачи:

начало

2.4 Схема алгоритма решения задачи:

x, a, n

xy²>0

нет

нет

z=

xy²<0

z=

да

да

Z=π

z

Конец

2.5 Листинг кода программы:

Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Single Const pi As Single = 3.14 x = InputBox("x=", "Input") y = InputBox("y=", "Input") If x * y ^ 2 > 0 Then z = Tan(pi + (x + y) / (1 - x * y ^ 2)) Else If x * y ^ 2 < 0 Then z = 7.14 + Tan((x - y) / (1 + x * y ^ 2)) Else z = pi End If End If Print "x=" & x & " y=" & y & " z=" & z End Sub

2.6 Выполнение проекта: