Лабораторная 3

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра « ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

Дисциплина « Информатика»

ОТЧЕТ

о лабораторной работе №3

на тему:

«СТРУКТУРА ЦИКЛ»

Вариант 29

Выполнил студент
Факультета УПЛ-702
Шептунов Н.А.	______________
подпись, дата	подпись, дата

Санкт-Петербург 2017

Задача 1.

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

Двигаясь равноускоренно с ускорением a поезд достигает скорости Vt=60 км/ч. За какое время эта скорость достигнута и какой путь пройден за это время ? Искомые величины получить для всех а , принимающих значения от 0,4 м/c² до 1,0 м/c² c шагом 0,1 м/c² ; Входные данные: Vt, an , ak , da Выходные данные: V, a, t, s

2. Математическая модель задачи. 0,4≤a≤1,0 шаг 0,1

;

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

Начало

Vt, an,ak,da

Vt

a=an

a<=ak

t= Vt/a S=a*t^2/2

a, t, s

a=a+da

Конец

4. Код процедуры. 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

5. Отладка приложения.

Задача 2.

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

Определить зависимость фокусного рассстояния двояковыпуклой стеклянной линзы от радиусов ее сферических поверхностей, если показатель преломления стекла m=1,5; F = где 4,2  r₁  12,2 6,4  r₂  24,4 c шагом 2 см. Входные данные: m, r1n, r1k, dr1, r2n, r2k, dr2 Выходные данные: r1, r2, F

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

4,2 шаг 2 6,4 шаг 2

F =

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

Начало

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. Отладочный пример