лр №6
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»
Кафедра «Информационные и вычислительные системы»
Отчет по лабораторной работе №6
Тема: Разработка и решение задач на ПК со структурой Цикл
Выполнил студент Факультета АИТ Группы АТ-103 |
подпись
|
Обухов Ю.А. |
Проверил профессор |
|
Дергачев А.И. |
Санкт-Петербург
2022
Вариант 18
Постановка задачи
Описание постановки задачи
Входные данные:
t – переменная вещественного типа
Выходные данные:
x - переменная вещественного типа
Разработка математической модели
Составление схемы алгоритма
Программный код
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
Постановка задачи
Описание постановки задачи
Входные данные:
T – переменная целого типа A – переменная вещественного типа
Выходные данные:
Q – переменная вещественного типа
Разработка математической модели
Составление схемы алгоритма
Программный код
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