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

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

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

Входные данные: L1, ln, lk, dl

Выходные данные: L1, l, V

Блок-схема:

Код программы:

Private Sub Command1_Click()

Dim L1 As Single, V As Single, l As Single, ln As Single, lk As Single, dl As Single

L1 = InputBox("L1=")

ln = InputBox("ln=")

lk = InputBox("lk=")

dl = InputBox("dl=")

For l = ln To lk Step dl

V = L1 / (2 * 3.14) * Sqr(9.81 / l)

Print "L=" & l & " l=" & l & " V=" & V

Next

End Sub

Пример:

2. Вычислить значения функции

при изменении x в пределах 1; 2 c шагом 0,25 и y в пределах 4,2; 5,1 c шагом 0,3.

Входные данные: b, c, xn, xk, dx, yn, yk, dy

Выходные данные: b, c, x, y, a

Блок-схема:

Код программы:

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, x As Single, xn As Single, xk As Single, dx As Single, y As Single, yn As Single, yk As Single, dy As Single

b = InputBox("b=")

c = InputBox("c=")

xn = InputBox("xn=")

xk = InputBox("xk=")

dx = InputBox("dx=")

yn = InputBox("yn=")

yk = InputBox("yk=")

dy = InputBox("dy=")

For x = xn To xk Step dx

For y = yn To yk Step dy

a = (b ^ x + c ^ y) * Sin(x * y)

Print "b=" & b & " c=" & c & " x=" & x & " y=" & y & " a=" & a

Next

Next

End Sub

Пример:

Дата добавления: 2015-09-29