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

Задание №1

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

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

С расстояния d фотографируют поезд, движущийся со скоростью V. Определить для разных объективов время t экспозиции, за которое изображение сместилось бы не более чем S=0,01 мм. Фокусное расстояние объектива F.

Отладку программы выполнить для контрольного примера: V = 72 км/ч; d=100 м; F=22 мм, 37 мм, 50 мм, 80 мм, 140 мм.

1.2 Состав входных и выходных переменных.

Входные переменные:

n – переменная целого типа,

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

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

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

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

Выходные переменные:

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

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

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

4. Код программы.

Private Sub Command1_Click()

Dim t As Single, n As Integer, i As Integer, F As Single, V As Single, d As Single, S As Single

V = InputBox("V=")

d = InputBox("d=")

S = InputBox("S=")

Print "V = " & V & " d = " & d & " S = " & S

n = InputBox("Введите количество объективов")

Print

For i = 1 To n

F = InputBox("F(" & i & ")=")

t = S * (d - F) / (F * V)

Print "F = " & F, "t = " & t

Next

End Sub

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

Задание №2

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

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

2. Вагон массой m₁, движущийся по горизонтальному пути со скоростью V₁, автоматически на ходу сцепляется с неподвижным вагоном массой m₂. С какой скоростью движутся вагоны после сцепления?

где v₁ = 1,5 м/с; 10  m₁  40 т с шагом 10 т

10  m₂  40 т с шагом 10 т.

1.2 Состав входных и выходных переменных.

Входные переменные:

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

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

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

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

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

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

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

Выходные переменные:

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

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

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

5. Код программы.

Private Sub Command1_Click()

Dim v1 As Single, m10 As Single, m1k As Single, dm1 As Single, m1 As Single

Dim v As Single, m20 As Single, m2k As Single, dm2 As Single, m2 As Single

v1 = InputBox("v1=")

m10 = InputBox("m1(0)=")

m1k = InputBox("m1(k)=")

dm1 = InputBox("dm1=")

m20 = InputBox("m2(0)=")

m2k = InputBox("m2(k)=")

dm2 = InputBox("dm2=")

Print "v1 = " & v1

Print

m1 = m10

Do While m1 <= m1k

m2 = m20

Do While m2 <= m2k

v = m1 * v1 / (m1 + m2)

Print "m1 = " & m1, "m2 = " & m2, "v = " & v

m2 = m2 + dm2

Loop

m1 = m1 + dm1

Loop

End Sub

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