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

Задание №1

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

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

Координаты точки при переходе от общих осей координат к другим, наклонённым к первым под углом L, определяются по формулам:

.

Как будут меняться координаты x1 b y1 для точки x=2,7; y=3,4, если с шагом .

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

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

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

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

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

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

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

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

.

Нет

Да

X₁, Y₁

3. 

   

   

   

   Конец

   X, Y

   Начало

   Схема алгоритма:

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

Private Sub Command1_Click()

Dim X As Single, Y As Single, X1 As Single, Y1 As Single

Const Pi As Single = 3.14159, L0 As Single = 0, Lk As Single = 1.57079

X = InputBox("X=", "Ввод переменных")

Y = InputBox("Y=", "Ввод переменных")

Print "При X=" & X & " è Y=" & Y

For L = 0 To Pi / 2 Step Pi / 18

X1 = X * Cos(L) + Y * Sin(L)

Y1 = -X * SinL + Y * Cos(L)

Print "X1=" & Format(X1, "0.000") & " Y1=" & Format(Y1, "0.000")

Next

End Sub

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

Задание №2

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

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

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

, где постоянная g=9,81; F, m, W, V, L – переменные целого типа.

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

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

б) аргументов W, изменяющегося в пределах W₁≤W≤W_k с шагом ΔW, и V, изменяющегося в пределах V₁≤V≤V_k с шагом ΔV;

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

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

Входные данные: F – переменная вещественного типа, m – переменная вещественного типа, Wk – переменная вещественного типа, W1 – переменная вещественного типа, dW – переменная вещественного типа, Vk – переменная вещественного типа, V1 – переменная вещественного типа, dV – переменная вещественного типа, L – переменная вещественного типа.

Выходные данные: V – переменная вещественного типа, W – переменная вещественного типа, Q – переменная вещественного типа.

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

3. 

   F, m, W1, Wk, dW, V1, Vk, dW, L

   Начало

   Схема алгоритма:

W = W1

W, V, Q

V = V+ΔV

X>-1

Да

Нет

Конец

Да

Нет

X=-1

V = V1

W = W+dW

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

Private Sub Command1_Click()

Dim F As Single, m As Single, W As Single, W1 As Single, Wk As Single, dW As Single, V As Single, V1 As Single, Vk As Single, dV As Single, Q As Single, L As Single

Const g As Single = 9.81

F = InputBox("F=", "Ввод переменных")

m = InputBox("m=", "Ввод переменных")

L = InputBox("L=", " Ввод переменных ")

W1 = InputBox("Начальное значение W=", "Ввод переменных")

dW = InputBox("Шаг W=", "Ввод переменных")

Wk = InputBox("Конечное значение W=", "Ввод переменных")

V1 = InputBox("Начальное значение V=", "Ввод переменных")

dV = InputBox("Шаг V=", "Ввод переменных")

Vk = InputBox("Конечное значение V=", "Ввод переменных")

Print "F=" & F & " m=" & m & " L=" & L & " W1=" & W1 & " dW=" & dW & " Wk=" & Wk & " V1=" & V1 & " dV=" & dV & " Vk=" & Vk

W = W1

Do While W <= Wk

V = V1

Do While V <= Vk

Q = F / (m * g) - (W ^ 2 - V ^ 2) / (2 * L * g)

Print "Q=" & Format(Q, "0.000") & " (При W=" & W & " è V=" & V & ")"

V = V + dV

Loop

W = W + dW

Loop

End Sub

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