Структура цикл / 4

Задание №1

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

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

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

1.2. Состав входных и выходных данных

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

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

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

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

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

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

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

2. Математическая модель задачи

где i1≤i≤ik с шагом di.

3. Схема алгоритма

4. Визуальная часть проекта

5. Код приложения

Private Sub Command1_Click()

Dim L As Single, i1 As Single, di As Single, ik As Single, i As Single

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

L = InputBox("L=")

i1 = InputBox("i1=")

di = InputBox("di=")

ik = InputBox("ik=")

For i = i1 To ik Step di

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

Print "V=" & V, "i=" & i

Next

End Sub

6. Отладка программы

Задание №2

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

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

Вычислить значения функции a = (b^x + c^y)* sin(xy) при изменении x в пределах /1; 2/ c шагом 0,25 и y в пределах /4,2; 5,1/ c шагом 0,3.

1.2. Состав входных и выходных данных

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

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

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

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

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

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

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

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

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

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

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

2. Математическая модель задачи

a = (b^x + c^y)* sin(xy),

где x1≤x≤xk с шагом dx; y1≤y≤yk с шагом dy.

3. Схема алгоритма

4. Визуальная часть проекта

5. Код приложения

Private Sub Command1_Click()

Dim b As Single, c As Single, x1 As Single, dx As Single, xk As Single, x As Single

Dim y1 As Single, dy As Single, yk As Single, y As Single, a As Single

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

b = InputBox("b=")

c = InputBox("c=")

Print "b=" & b & " c=" & c

x1 = InputBox("x1=")

dx = InputBox("dx=")

xk = InputBox("xk=")

y1 = InputBox("y1=")

dy = InputBox("dy=")

yk = InputBox("yk=")

x = x1

Do

y = y1

Do While y <= yk

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

Print "a=" & a, "x=" & x, "y=" & y

y = y + dy

Loop

x = x + dx

Loop Until x > xk

End Sub

6. Отладка программы