Dim Nn As Integer, Nk As Integer, dN As Integer, M As Integer

Словесное описание

Найти расстояние между точками, совершающими гармонические колебания

x₁ = 0,1×Sin2t; x₂ = 1,7×Sin(0,8t - 0,42)

в момент времени 0,6 £ t £ 1,8 с шагом 0,2.

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

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

Х1 – переменная вещественного типа

Х2 – переменная вещественного типа

Определение состава входных данных:

T- переменная вещественного типа

Разработка математической модели

Х1 = 0.1 *sin(2 * t)

X2 = 1.7*sin(0.8 * t – 0.42)

Найти расстояние между точками, совершающими гармонические колебания в момент времени 0,6 £ t £ 1,8 с шагом 0,2.

Разработка проекта

Private Sub Command1_Click()

Const tn = 0.6

Const tk = 1.8

Dim X1 As Single, X2 As Single, t As Single

t = InputBox("Введите значение t")

dT= 0.2

For T= Tn To Tk Step dT

Х1 = 0.1 *sin(2 * t)

X2 = 1.7*sin(0.8 * t – 0.42)

Print "X1= " & Format(X1, "0.000") & " X2=" & Format(X2, "0.000") & " t= " & Format(t, "0.000")

Next T

End Sub

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

Словесное описание

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

где постоянная переменные: - целого типа; - вещественного типа.

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

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

б) аргументов , изменяющегося в пределах с шагом , и , изменяющегося в пределах с шагом ;

в) функции с точностью до сотых для соответствующих и .

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

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

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

V1 - переменная вещественного типа

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

Nn - переменная вещественного типа

Nk - переменная вещественного типа

Mn - переменная вещественного типа

Mk - переменная вещественного типа

W - переменная вещественного типа

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

N - переменная целого типа

M - переменная целого типа

Разработка математической модели

V1 = k*(N*V2+MW)/(N+M)

Где

K = 1,15

с шагом

с шагом

Разработка проекта

Private Sub Command1_Click()

Const k = 1.15

Dim V1 As Single, W As Single, N As Integer

Dim Nn As Integer, Nk As Integer, dN As Integer, M As Integer

Поиск по сайту: