![](/user_photo/_userpic.png)
Структура цикл / 2
.docx1) Постановка задачи
1.1) Словесное описание задачи
Расписание поездов освещается двумя источниками света силой I1 и I2 с расстояний X1 и X2. Расстояние между источниками l. Определить изменение освещённости расписания в средней точке между источниками при изменении величины X1 и l.
где I1= 150 кд; I2= 200 кд; X2= 1,5 м;
0,5≤X1≤2 м с шагом 0,5 м;
4≤l≤6 м с шагом 1 м;
1.2) Состав входных и выходных данных
Входные данные:
I1 – переменная вещественного типа,
I2 – переменная вещественного типа,
X2 – переменная вещественного типа,
X10 – переменная вещественного типа,
X1k – переменная вещественного типа,
X1s – переменная вещественного типа,
l0 – переменная вещественного типа,
lk – переменная вещественного типа,
ls – переменная вещественного типа.
Выходные данные:
E – переменная вещественного типа.
2) Математическая модель задачи
где X10≤X1≤X1k м с шагом X1s м; l1≤l≤lk м с шагом ls м.
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) Отладка программы