Структура цикл / 18
.docxЗадание №1
1. Постановка задачи
1.1. Словесное описание задачи
Определить
смещение точки, совершающей гармоническое
колебание:
где
0≤t≤8 c шагом
0,5 c.
1.2. Состав входных и выходных данных
Входные данные: t1 – перменная вещественного типа, tk – переменная вещественного типа, dt – переменная вещественного типа.
Выходные данные: x – переменная вещественного типа.
2. Математическая модель задачи где 0≤t≤8 c шагом 0,5 c.
3. Схема
алгоритма
4. Визуальная
часть проекта
5. Код приложения Private Sub Command1_Click() Dim t1 As Single, tk As Single, dt As Single, t As Single, x As Single t1 = InputBox("t1=") tk = InputBox("tk=") dt = InputBox("dt=") Print "t1=" & t1 & " tk=" & tk & " dt=" & dt For t = t1 To tk Step dt x = 5 * Sin(7.8 * t + 1.25) Print "t=" & t & " x=" & x Next End Sub
6. Отладка
программы
Задание №2
1. Постановка задачи
1.1. Словесное описание задачи
Какую максимальную работу надо совершить, чтобы поднять вагонетку с углём массой m по эстакаде длиной l и высотой h при коэффициенте трения μ? Каков КПД подъёмника?
где
m=200 кг; μ=0,05;
8≤l≤26
м с шагом 3 м;
1,5≤h≤2,5
м с шагом 25 cм.
1.2. Состав входных и выходных данных
Входные данные: m – перменная вещественного типа, mu – переменная вещественного типа, l1 – переменная вещественного типа, lk – переменная вещественного типа, dl – переменная вещественного типа, h1 – переменная вещественного типа, hk – переменная вещественного типа, dh – переменная вещественного типа.
Выходные данные: A – переменная вещественного типа, kpd – переменная вещественного типа.
2. Математическая
модель задачи
где
m=200 кг; μ=0,05;
8≤l≤26
м с шагом 3 м;
1,5≤h≤2,5
м с шагом 25 cм.
3. Схема
алгоритма
4. Визуальная
часть проекта
5. Код приложения Private Sub Command1_Click() Dim l1 As Single, lk As Single, dl As Single, l As Single, A As Single, mu As Single Dim h1 As Single, hk As Single, dh As Single, h As Single, kpd As Single, m As Single Const g As Single = 9.8 m = InputBox("m=") mu = InputBox("mu=") l1 = InputBox("l1=") lk = InputBox("lk=") dl = InputBox("dl=") h1 = InputBox("h1=") hk = InputBox("hk=") dh = InputBox("dh=") Print "mu=" & mu & " m=" & m Print "l1=" & l1 & " lk=" & lk & " dl=" & dl Print "h1=" & h1 & " hk=" & hk & " dh=" & dh For l = l1 To lk Step dl Print "l=" & l For h = h1 To hk Step dh A = m * g * (h + mu * Sqr(l ^ 2 - h ^ 2)) kpd = m * g * h / A Print "A=" & A & " kpd=" & kpd & " (h=" & h & ")" Next Next End Sub
6.
Отладка программы
