Структура цикл / 4
.docxЗадание №1
1. Постановка задачи
1.1. Словесное описание задачи
Найти скорость поезда, при которой маятник длиной i подвешенный в вагоне, раскачивается особенно сильно, если длина рельсов L=12,5 м ; g=9,81 м/c2 , 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 = (bx + cy)* 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 = (bx + cy)* 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. Отладка программы