ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант) / лабораторной работе 03

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

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

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

ОТЧЕТ

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

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

Вариант 20

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

Факультета АСБ А.А. Сидорович

Группы АСБ -405-З подпись дата

/07-405-20-АСБз/

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

2025

Отчет по лабораторной работе № 3 Структура «Развилка» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

Задания к лабораторной работе №3

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

где a=d+3,5c

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

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

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

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

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

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

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

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

где a=d+3,5c

Отчет по лабораторной работе № 3 Структура «Развилка» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

Задания к лабораторной работе №3

7

6

8

4

3

2

1

a=d+3.5c

r=2.5a-11

да

нет

a>1,3

5

r=lga

r

Конец

начало

d, c

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

Отчет по лабораторной работе № 3 Структура «Развилка» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

Задания к лабораторной работе №3

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

Private Sub Command1_Click() Dim d As Single, c As Single, a As Single, r As Single d = InputBox("d=") c = InputBox("c=") Print "d=" & d & " c=" & c a = d + 3.5 * c If a > 1.3 Then r = 2.5 * a – 11 Else r = Log(a) / Log(10) End If Print "r=" & r End Sub

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

Отчет по лабораторной работе № 3 Структура «Развилка» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

Задания к лабораторной работе №3

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

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

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

1) x=13; 2) x=54; 1) x=60;

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

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

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

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

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

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

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

Отчет по лабораторной работе № 3 Структура «Развилка» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

начало

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

1

2

x

3

4

y=

X<54

5

нет

6

да

y=

X=54

да

нет

7

y=

8

y

9

Конец

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

P rivate Sub Command1_Click() Dim x As Integer Const pi As Single = 3.14 x = InputBox("x=") If x < 54 Then y = (5 - 2 * x) ^ 2 * (5 + 2 * x ^ 2) ^ 0.5 Else If x = 54 Then y = Sin(pi + x) Else y = (9 * x + 2) ^ 0.5 End If End If Print "x=" & x & " y=" & Format(y, "0.000") End Sub

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