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

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

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

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

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

Тема: Разработка и решение задач на ПК со структурой Цикл

Выполнил студент Факультета АИТ Группы АТ-103	подпись	Обухов Ю.А.
Проверил профессор		Дергачев А.И.

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

2022

Вариант 18

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

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

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

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

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

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

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

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

5. Программный код

Private Sub CommandButton1_Click()

Const g As Single = 9.81

Const Nu As Single = 0.006

Dim tn As Integer, tk As Integer, dt As Single

Dim x As Single, t As Single

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

tn = InputBox("Введите значение целого типа tn")

tk = InputBox("Введите значение целого типа tk")

dt = InputBox("Введите значение вещественного типа dt")

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

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

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

t = tn

Do While t <= tk:

x = 5 * Sin(7.8 * t + 1.25)

Debug.Print " x = " & Format(x, "00.0") & " t = " & Format(t, "000.0")

t = t + dt

Loop:

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

Debug.Print Data

End Sub

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

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

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

T – переменная целого типа A – переменная вещественного типа

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

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

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

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

10. Программный код

Private Sub CommandButton1_Click()

Const M As Single = 2000

Dim T As Integer, A As Single, Q As Single

Dim Tn As Integer, Tk As Integer, dT As Integer, An As Single, Ak As Single, dA As Single

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

An = InputBox("Введите значение целого типа An")

Ak = InputBox("Введите значение целого типа Ak")

dA = InputBox("Введите значение вещественного типа dA")

Tn = InputBox("Введите значение целого типа Tn")

Tk = InputBox("Введите значение целого типа Tk")

dT = InputBox("Введите значение вещественного типа dT")

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

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

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

T = Tn

Do While T <= Tk:

A = An

Do While A <= Ak:

Q = M * A ^ 2 * T ^ 2 / 2

Debug.Print " Q = " & Format(Q, "00.00") & " T = " & Format(T, "##") & " A = " & Format(A, "00.0")

A = A + dA

Loop:

T = T + dT

Loop:

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

Debug.Print Data

End Sub