Структура цикл / 4 (2)
.docx
Постановка задачи
1. Найти скорость поезда, при которой маятник длиной r, подвешенный в вагоне, раскачивается особенно сильно, если длина рельсов L = 12,5 м; g = 9,81 м/c2, по формуле
где 40 ≤ r ≤ 80 cм с шагом 4 см.
2. Вычислить значения функции a = (bx + cy)·sin(xy) при изменении x в пределах от 1 до 2 c шагом 0,25 и y – в пределах от 4,2 до 5,1 c шагом 0,3.
Задание №1
1. Словесное описание:
Найти скорость поезда, при которой маятник длиной r, подвешенный в вагоне, раскачивается особенно сильно, если длина рельсов L = 12,5 м; g = 9,81 м/c2, по формуле
где 40 ≤ r ≤ 80 cм с шагом 4 см.
Входные данные: L, r1, rk, rs – Вещественного типа;
Выходные данные: V – Вещественного типа;
2. Математическое описание:
где r1 ≤ r ≤ rk cм с шагом rs см.
3. Разработка алгоритма
4. Код приложения
Private Sub Command1_Click()
Dim r As Single, r1 As Single, rk As Single, rs As Single, L As Single
Const Pi As Single = 3.14159, g As Single = 9.81
L = InputBox("L=")
r1 = InputBox("r1=")
rk = InputBox("rk=")
rs = InputBox("rs=")
List1.AddItem ("L=" & L)
List1.AddItem (" V r")
r = r1
Do While r <= rk + rs
V = L / (2 * Pi) * Sqr(g / r)
List1.AddItem (Format(V, "0.000") & " " & Format(r, "0.00"))
r = r + rs
Loop
End Sub
5. Отладка кода приложения:
Ручной счет: r = 0,4, V = 9,852 r = 0,52, V = 8,641 r = 0,8, V = 6,967
Задание №2
1. Словесное описание:
Вычислить значения функции a = (bx + cy)·sin(xy) при изменении x в пределах от 1 до 2 c шагом 0,25 и y – в пределах от 4,2 до 5,1 c шагом 0,3.
Входные данные: b, c, x1, xk, xs, y1, yk, ys – Вещественного типа;
Выходные данные: a – Вещественного типа;
2. Математическое описание:
где x1 ≤ x ≤ xk с шагом xs; y1 ≤ y ≤ yk с шагом ys.
3. Разработка алгоритма
4. Код приложения
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, xk As Single, xs As Single, x As Single
Dim y1 As Single, yk As Single, ys As Single, y As Single
b = InputBox("b=")
c = InputBox("c=")
List1.AddItem ("b=" & b & " c=" & c)
x1 = InputBox("x1=")
xk = InputBox("xk=")
xs = InputBox("xs=")
y1 = InputBox("y1")
yk = InputBox("yk")
ys = InputBox("ys=")
x = x1
List1.AddItem (" x y a")
Do While x <= xk
y = y1
Do
a = (b ^ x + c ^ y) * Sin(x * y)
List1.AddItem (Format(x, "0.00") & " " & Format(y, "0.0") & " " & " " & Format(y, "0.000"))
y = y + ys
Loop Until y > yk + ys
x = x + xs
Loop
End Sub
5. Отладка кода приложения:
Ручной счет: b=6; c=3; x=1; y=4,5; a=-91,561 b=6; c=3; x=1,5; y=4,2; a=108,501 b=6; c=3; x=2; y=4,8; a=-50,281