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

1.1 Словесное описание задачи:

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

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

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

Состав входных и выходных данных:

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

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

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

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

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

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

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

1.3 Математическое описание задачи:

где g=9,81; π=3,14 ; 40≤l≤80 с шагом 4.

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim L As Single, l1 As Single, l0 As Single, dl As Single, lk As Single, V As Single

Const pi As Single = 3.14, g As Single = 9.81

L = InputBox("L=")

l0 = InputBox("l0=")

lk = InputBox("lk=")

dl = InputBox("dl=")

l1 = l0

Do While l1 <= lk

V = L / (2 * pi) * Sqr(g / L)

Print "V=" & V & " ïðè l=" & l1

l1 = l1 + dl

Loop

End Sub

1.6 Выполнение проекта:

2.1 Словесное описание задачи:

Вычислить значения функции по формуле:

где переменные: m, n – целого типа; a, b – вещественного типа.

На печать выдать значения:

а) входных данных;

б) аргумента b, изменяющегося в пределах b₁≤b≤b_k с шагом Δb, и n, изменяющегося в пределах n₁≤n≤n_k с шагом Δn; в) функции z с точностью до сотых для соответствующих x и y.

При решении контрольного примера принять:

a=1; b₁=0; b_k=1,72; Δb=0,86; m=30; n₁=20; n_k=40; Δn=10.

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

Состав входных и выходных данных:

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

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

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

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

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

m – переменная целого типа,

n1 – перменная целого типа,

dn – перменная целого типа,

nk – перменная целого типа.

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

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

2.3 Математическое описание задачи:

где b₁≤b≤b_k с шагом Δb; n₁≤n≤n_k с шагом Δn.

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim a As Single, b As Single, b1 As Single, db As Single, bk As Single

Dim m As Integer, n As Integer, n1 As Integer, dn As Integer, nk As Integer, z As Single

a = InputBox("a=")

b1 = InputBox("b1=")

db = InputBox("db=")

bk = InputBox("bk=")

Print "a=" & a & " b1=" & b1 & " db=" & db & " bk=" & bk

m = InputBox("m=")

n1 = InputBox("n1=")

dn = InputBox("dn=")

nk = InputBox("nk=")

Print "m=" & m & " n1=" & n1 & " dn=" & dn & " nk=" & nk

b = b1

Do While b <= bk

n = n1

Do While n <= nk

z = (a - b) ^ 2 + (m - n) ^ 2

Print "z=" & Format(z, "0.00") & " при b=" & b & " n=" & n

n = n + dn

Loop

b = b + db

Loop

End Sub

2.6 Выполнение проекта: