Структура цикл / 18 (2)
.docx«СТРУКТУРА ЦИКЛ»
ВАРИАНТ 18
1.1. Словесное описание задачи:
Определить смещение точки, совершающей гармоническое колебание
где 0≤t≤8 c шагом 0,5 c.
1.2. Описание постановки задачи:
Состав входных и выходных данных:
Входные данные:
t1 – перменная вещественного типа,
tk – переменная вещественного типа,
dt – переменная вещественного типа.
Выходные данные:
x – переменная вещественного типа.
1.3. Математическое описание задачи:
где 0≤t≤8 c шагом 0,5 c.
1.4. Схема алгоритма решения задачи:
1.5. Листинг кода программы:
Private Sub Command1_Click()
Dim t1 As Single, tk As Single, dt As Single, t As Single, x As Single
t1 = InputBox("t1=")
tk = InputBox("tk=")
dt = InputBox("dt=")
Print "t1=" & t1 & " tk=" & tk & " dt=" & dt
For t = t1 To tk Step dt
x = 5 * Sin(7.8 * t + 1.25)
Print "t=" & t & " x=" & x
Next
End Sub
1.6. Выполнение проекта:
2.1. Словесное описание задачи:
Вычислить значения функции по формуле:
где постоянная M=2000; переменные: T – целого типа; A – вещественного типа.
На печать выдать значения:
а) входных данных;
б) аргументов A, изменяющегося в пределах A1≤A≤Ak с шагом ΔA, и T, изменяющегося в пределах T1≤T≤Tk с шагом ΔT; в) функции y с точность до сотых для соответствующих A и T.
При решении контрольного примера переменным присвоить значения:
A1=0,1; Ak=0,3; ΔA=0,1; T1=30; Tk=50; ΔT=10.
2.2. Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
T1 – перменная целого типа,
Tk – перменная целого типа,
dT – перменная целого типа,
A1 – переменная вещественного типа,
Ak – переменная вещественного типа,
dA – переменная вещественного типа.
Выходные данные:
Q – переменная вещественного типа.
2.3. Математическое описание задачи:
где M=2000; A1≤A≤Ak с шагом ΔA; T1≤T≤Tk с шагом ΔT.
2.4. Схема алгоритма решения задачи:
2.5. Листинг кода программы:
Private Sub Command1_Click()
Dim T As Integer, T1 As Integer, Tk As Integer, dT As Integer, A As Single, A1 As Single, Ak As Single, dA As Single, Q As Single
Const M As Integer = 2000
T1 = InputBox("T1=")
Tk = InputBox("Tk=")
dT = InputBox("dT=")
Print "T1=" & T1 & " Tk=" & Tk & " dT=" & dT
A1 = InputBox("A1=")
Ak = InputBox("Ak=")
dA = InputBox("dA=")
Print "A1=" & A1 & " Ak=" & Ak & " dA=" & dA
T = T1
Do While T <= Tk
A = A1
Do While A <= Ak
Q = M * A ^ 2 * T ^ 2 / 2
Print "T=" & T & " A=" & A & " Q=" & Format(Q, "0.00")
A = A + dA
Loop
T = T + dT
Loop
End Sub
2.6. Выполнение проекта: