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

Задание №1

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

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

Участок пути длиной S=1км локомотив проходит с постоянным ускорением а. За какое время пройден этот путь и какова скорость в конце данного участка пути, если 0,2  a  1,2 м/c2 с шагом 0,2 м/c2.

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

Входные данные: S – переменная вещественного типа, a1 – переменная вещественного типа, da – переменная вещественного типа, ak – переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim S As Single, a As Single, a1 As Single, ak As Single, da As Single, t As Single, Vt As Single

S = InputBox("S=")

a1 = InputBox("a1=")

ak = InputBox("ak=")

da = InputBox("da=")

For a = a1 To ak Step da

t = Sqr(2 * S / a)

Vt = a * t

Print "a=" & a, "t=" & t, "Vt=" & Vt

Next

End Sub

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

Задание №2

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

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

Вычислить расстояние между неподвижной и движущейся точками в косоугольной системе координат по формуле:

,

где х₁=0; y₁ =0;

1  x2 2 с шагом 0,25;

1,5 y2  6,0 с шагом 0,75;

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

Входные данные: x1 – переменная вещественного типа, y1 – переменная вещественного типа, w – переменная вещественного типа, x21 – переменная вещественного типа, x2k – переменная вещественного типа, dx2 – переменная вещественного типа, y21 – переменная вещественного типа, y2k – переменная вещественного типа, dy2 – переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim x1 As Single, y1 As Single, w As Single, x2 As Single, x21 As Single, x2k As Single, dx2 As Single, y2 As Single, y21 As Single, y2k As Single, dy2 As Single

x1 = InputBox("x1=")

y1 = InputBox("y1=")

w = InputBox("w=")

Print "x1=" & x1 & " y1=" & y1 & " w=" & w

x21 = InputBox("x21=")

x2k = InputBox("x2k=")

dx2 = InputBox("dx2=")

y21 = InputBox("y21=")

y2k = InputBox("y2k=")

dy2 = InputBox("dy2=")

x2 = x21

Do While x2 <= x2k

y2 = y21

Do While y2 <= y2k

d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2 + 2 * (x2 - x1) * (y2 - y1) * Cos(w))

Print "x2=" & x2, "y2=" & y2, "d=" & d

y2 = y2 + dy2

Loop

x2 = x2 + dx2

Loop

End Sub

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

4