Структура цикл / 2 (4)

Задание 1

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

Двигаясь с ускорением a, поезд достигает скорости V_t = 60 км/ч. За какое время эта скорость достигнута и какой путь будет пройден за это время?

Искомые величины получить для всех а, принимающих значения от 0,4 до 1,0 м/c² c шагом 0,1 м/c².

Входные данные: a0 – начальное значение параметра цикла, вещественная переменная;

ak – конечное значение параметра цикла, вещественная переменная;

da – шаг изменения параметра цикла, вещественная переменная;

Vt – скорость, достигнутая поездом, вещественная переменная.

Выходные данные: a – параметр цикла, вещественная переменная;

S – значение функции, вещественная переменная.

t – значение функции, вещественная переменная.

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

3. Разработка алгоритма

4. Разработка визуальной части проекта

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

Private Sub Command1_Click()

Dim a As Single

Dim a0 As Single

Dim ak As Single

Dim da As Single

Dim Vt As Single

Dim t As Single

Dim S As Single

a0 = InputBox("a0=")

ak = InputBox("ak=")

da = InputBox("da=")

Vt = InputBox("Vt=")

List1.AddItem ("a t S")

For a = a0 To ak Step da

t = Vt / a

S = a * t ^ 2 / 2

List1.AddItem (Format(a, "0.0") & " " & Format(t, "0.00") & " " & Format(S, "0.00"))

Next

End Sub

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

Ручной счёт:

a = 0,4; t = 150; S = 4500

a = 0,5; t = 120; S = 3600

a = 0,6; t = 100; S = 3000

Задание 2

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

Определить зависимость фокусного расстояния стеклянной линзы от радиусов ее сферических поверхностей, если показатель преломления стекла m = 1,5 по формуле

где 4,2 ≤ r₁ ≤ 12,2 c шагом 2 см; 6,4 ≤ r₂ ≤ 24,4 c шагом 2 см.

Входные данные: r10, r1k, r20, r2k – начальные и конечные значения параметров цикла,

вещественные переменные;

dr1, dr1 – шаг изменения параметра цикла, вещественные переменные;

m – показатель преломления стекла, вещественная переменная.

Выходные данные: r1, r2 – параметры цикла, вещественная переменная;

F – значение функции, вещественная переменная.

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

3. Разработка алгоритма

4. Разработка визуальной части проекта

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

Private Sub Command1_Click()

Dim r1 As Single

Dim r10 As Single

Dim r1k As Single

Dim dr1 As Single

Dim r2 As Single

Dim r20 As Single

Dim r2k As Single

Dim dr2 As Single

Dim F As Single

Dim m As Single

r10 = InputBox("r10=")

r1k = InputBox("r1k=")

dr1 = InputBox("dr1=")

r20 = InputBox("r20=")

r2k = InputBox("r2k=")

dr2 = InputBox("dr2=")

m = InputBox("m=")

Print "r1", "r2", "F"

r1 = r10

Do While r1 <= r1k

r2 = r20

Do

F = 1 / ((m - 1) * (1 / r1 + 1 / r2))

Print r1, r2, F

r2 = r2 + dr2

Loop Until r2 > r2k

r1 = r1 + dr1

Loop

End Sub

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

Ручной счёт:

r1 = 4,2; r2 = 6,4; S = 5,07

r1 = 10,2; r2 = 14,4; S = 11,94

r1 = 6,2; r2 = 8,4; S = 7,13