
Лабораторная 3
.docxМИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра « ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина « Информатика»
ОТЧЕТ
о лабораторной работе №3
на тему:
«СТРУКТУРА ЦИКЛ»
Вариант 29
Выполнил студент |
|
Факультета УПЛ-702 |
|
Шептунов Н.А. |
______________ |
подпись, дата |
подпись, дата |
|
|
Санкт-Петербург 2017
Задача 1.
Постановка задачи.
Двигаясь
равноускоренно с ускорением a
поезд
достигает скорости Vt=60
км/ч. За какое время эта скорость
достигнута и какой путь пройден за это
время ?
Искомые величины получить
для всех а , принимающих значения от
0,4 м/c2
до 1,0 м/c2
c
шагом 0,1 м/c2
;
Входные
данные: Vt,
an
, ak
, da
Выходные
данные: V,
a,
t,
s
Математическая модель задачи. 0,4≤a≤1,0 шаг 0,1
;
Схема алгоритма.
Начало
Vt, an,ak,da
Vt
a=an
a<=ak
t= Vt/a S=a*t^2/2
a, t, s
a=a+da
Конец


Код процедуры. Private Sub Command1_Click()
Dim Vt As Single, a As Single, an As Single, ak As Single, da As Single, t As Single, S As Single
Vt = InputBox("Vt=")
an = InputBox("an=")
ak = InputBox("ak=") da = InputBox("da=")
Print "Vt=" & Vt
a = an Do
t = Vt / a
S = a * t ^ 2 / 2
Print "a=" & a & " t=" & Format(t, "0.00") & " S=" & Format(S, "0.00")
a = a + da Loop While a <= ak
End Sub
Отладка приложения.
Задача 2.
Постановка задачи.
Определить
зависимость фокусного рассстояния
двояковыпуклой стеклянной линзы от
радиусов ее сферических поверхностей,
если показатель преломления стекла
m=1,5;
F
=
где
4,2
r1
12,2
6,4
r2
24,4 c
шагом 2 см.
Входные данные: m,
r1n,
r1k,
dr1,
r2n,
r2k,
dr2
Выходные
данные:
r1,
r2,
F
Математическая модель задачи.
4,2
шаг 2
6,4
шаг 2
F =
Схема алгоритма.
Начало
m, r1n, r1k, dr1, r2n, r2k, dr2
m
r1=r1n
r1<=r1k
Конец
r2=r2n
r1, r2, F
r2=r2+dr2
R2<=r2K
r1=r1+dr

3. Разработка визуальной части
4. Разработка кода приложения.
Private Sub Command1_Click()
Dim V As Single, V0 As Single, V0n As Single, V0k As Single, dV0 As Single, t As Single, tn As Single, tk As Single, dt As Single, a As Single, S As Single
V = InputBox("Введите скорость V", "")
V0n = InputBox("Введите начальную скорость V", " Цикл")
V0k = InputBox("Введите конечную скорость V", " Цикл")
dV0 = InputBox("Введите шаг изменения скорости V", " Цикл")
tn = InputBox("Введите начальное время t", " Цикл")
tk = InputBox("Введите конечное время t", " Цикл")
dt = InputBox("Введите шаг изменения времени t", " Цикл")
For V0 = V0n To V0k Step dV0
For t = tn To tk Step dt
a = (V - V0) / t
S = (V0 + V) / 2 * t
Print " a=" & a & " S=" & S & " V0=" & V0 & " t=" & t
Next
Next
End Sub
5. Отладочный пример