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

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

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

Расписание поездов освещается двумя источниками света силой I₁ и I₂ с расстояний X₁ и X₂. Расстояние между источниками l. Определить изменение освещённости расписания в средней точке между источниками при изменении величины X₁ и l.

где I₁= 150 кд; I₂= 200 кд; X₂= 1,5 м;

0,5≤X₁≤2 м с шагом 0,5 м;

4≤l≤6 м с шагом 1 м;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

где X₁₀≤X₁≤X_1k м с шагом X_1s м; l₁≤l≤l_k м с шагом l_s м.

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

4) Визуальная часть проекта

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

Private Sub Command1_Click()

Dim I1 As Single, I2 As Single, X2 As Single, E As Single

Dim X1 As Single, X10 As Single, X1k As Single, X1s As Single

Dim l As Single, l0 As Single, lk As Single, ls As Single

I1 = InputBox("I1=")

I2 = InputBox("I2=")

X2 = InputBox("X2=")

X10 = InputBox("X1 нач=")

X1k = InputBox("X1 кон=")

X1s = InputBox("X1 шаг=")

l0 = InputBox("l нач=")

lk = InputBox("l кон=")

ls = InputBox("l шаг=")

X1 = X10

Do While X1 <= X1k

Print "При X1=" & X1

l = l0

Do While l <= lk

E = I1 / (X1 ^ 2 + l ^ 2 / 4) * X1 / Sqr(X1 ^ 2 + l ^ 2 / 4) + I2 / (X2 ^ 2 + l ^ 2 / 4) * X2 / Sqr(X2 ^ 2 + l ^ 2 / 4)

Print "l=" & l & "; E=" & E

l = l + ls

Loop

X1 = X1 + X1s

Loop

End Sub

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

3