Структура цикл / 4 (2)

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

1. Найти скорость поезда, при которой маятник длиной r, подвешенный в вагоне, раскачивается особенно сильно, если длина рельсов L = 12,5 м; g = 9,81 м/c², по формуле

где 40 ≤ r ≤ 80 cм с шагом 4 см.

2. Вычислить значения функции a = (b^x + c^y)·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 м/c², по формуле

где 40 ≤ r ≤ 80 cм с шагом 4 см.

Входные данные: L, r1, rk, rs – Вещественного типа;

Выходные данные: V – Вещественного типа;

2. Математическое описание:

где r₁ ≤ r ≤ r_k cм с шагом r_s см.

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 = (b^x + c^y)·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. Математическое описание:

где x₁ ≤ x ≤ x_k с шагом x_s; y₁ ≤ y ≤ y_k с шагом y_s.

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