Зеленская ЦИКЛ

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

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

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

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

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

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

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

ОТЧЁТ

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

«Структура ЦИКЛ»

ВАРИАНТ 5

Выполнила студентка	А.И.Зеленская
Факультет: АИТ
Группа: АР-909
Номер зачетной книжки: 01-909-05
Проверил	Н.А. Яковлева

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

2019

СТРУКТУРА ЦИКЛ

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

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

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

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

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

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

W1 = “Учебная группа” – текстового типа

W2 = “Имя и отчество” – текстового типа

Data = “Дата” – текстового типа

Определение состава входных данных

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

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

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

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

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

W1 = “Учебная группа” – текстового типа

W2 = “Имя и отчество” – текстового типа

Data = “Дата” – текстового типа

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

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

нет

да

1

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

Private Sub Command1_Click()

Const S As Integer = 1

Dim an As Single, ak As Single, da As Single

Dim t As Single, Vt As Single

Dim W1 As String, W2 As String, Data As String

an = InputBox("Введите значение начальное значение a, an")

ak = InputBox("Введите значение конечное значение a, ak")

da = InputBox("Введите значение шаг, da")

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

For a = an To ak Step da

t = Sqr(2 * S / a)

Vt = a * t

Print "a= " & Format(a, "00.00") & " t= " & Format(t, "00.00") & " Vt= " & Format(Vt, "00.00")

Next a

Print "Выполнила студентка "; W1; Tab(44); W2

Print Data

End Sub

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

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

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

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

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

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

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

W1 = “Учебная группа” – текстового типа

W2 = “Имя и отчество” – текстового типа

Data = “Дата” – текстового типа

Определение состава входных данных

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

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

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

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

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

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

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

g- переменная вещественного типа

a- переменная целого типа

b- переменная целого типа

W1 = “Учебная группа” – текстового типа

W2 = “Имя и отчество” – текстового типа

Data = “Дата” – текстового типа

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

Где

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

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

Private Sub Command1_Click()

Const a As Integer = 2

Const b As Integer = 4

Dim xn As Single, xk As Single, dx As Single

Dim yn As Single, yk As Single, dy As Single

Dim z As Single

Dim W1 As String, W2 As String, Data As String

xn = InputBox("Введите значение начальное значение x, xn")

xk = InputBox("Введите значение конечное значение x, xk")

dx = InputBox("Введите значение шага x, dx")

yn = InputBox("Введите значение начальное значение y, yn")

yk = InputBox("Введите значение конечное значение y, yk")

dy = InputBox("Введите значение шага y, dy")

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

For x = xn To xk Step dx

Print "x= " & Format(x, "00.00")

y = yn

Do

z = a * Sin(x) + b * Cos(y) + 1

Print Tab(12); "y= " & Format(y, "00.00"); " z= " & Format(z, "00.00")

y = y + dy

Loop While y <= yk

Next x

Print "Исполнила студентка "; W1; Tab(44); W2

Print Data

End Sub

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