Старые отчёты / ФЫР / информатика!!!!!!!!! / цикл
.docФЕДЕРАЛЬНОЕ АГЕНСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
РОССИЙСКОЙ ФЕДЕРАЦИИ
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»
ОТЧЕТ
о выполненной лабораторной работе № 3
на тему:
Структура «Цикл»
Вариант 7
Выполнила студентка ____________________
факультета ЭСУ подпись дата
группы ФМ-008
Малафеева О.С.
Санкт-Петербург
2010
Задание №1 1 Постановка задачи.
-
Словесное описание задачи. Поезд массой m , движущийся со скоростью V, остановился, пройдя после торможения путь S. Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости:
где
m=2000т;
S=550м;
30 V
60 c шагом 5 км/ч.
-
Определение состава входных и выходных данных. Входные данные: - масса поезда m - путь торможения S - начальная скорость поезда Vn - конечная скорость поезда Vk - шаг изменения скорости поезда dV Выходные данные: - тормозная сила F - время торможения t
-
Математическое описание.
30
V
60, dV=5
2
0
3
4
1
Начало
m, S, Vn, Vk, dV
t=2*S/V
Конец
V<=Vk
нет
да
F, t
6
86
V=V+dV
26
V=Vn
5
F=V^2*m/(2*S)
7
3.Разработка визуальной
части.
4.Разработка кода приложения. Private Sub Command1_Click()
Dim m As Single, S As Single, Vn As Single, Vk As Single, dV As Single
Dim V As Single, F As Single, t As Single
m = Text1
S = Text2
Vn = Text3
Vk = Text4
dV = Text5
For V = Vn To Vk Step dV
F = V ^ 2 * m / (2 * S)
t = 2 * S / V
Print "Тормозная сила F=" & F & ", время торможения t=" & t & " при скорости поезда V=" & V
Next
End Sub
5.Отладочный
пример.
Задание №2 1 Постановка задачи.
-
Словесное описание задачи. Вычислить и напечатать таблицу значений функций
где
1,541
x
10,241 с шагом 3,41
12
y
16 c шагом 2.
-
Определение состава входных и выходных данных. Входные данные: - начальное x - конечное x - шаг изменения x - начальное y - конечное y - шаг изменения y Выходные данные: - функция z
-
Математическое описание.
1,541
x
10,241,
dx=3,41
12
y
16 ,
dy=2
2
0
3
8
1
Начало
xn, xk, dx, yn, yk, dy
z=sqr(x)+y^(1/3)
Конец
x<=xk
нет
да
z
7
10
x=x+dx
6
y=y+dy
9
4
y=yn
5
y<=yk
нет
да
.Разработка
схемы алгоритма.
2
x=xn
3.Разработка
визуальной части.
4.Разработка кода приложения. Private Sub Command1_Click()
Dim x As Single, y As Single, xn As Single, xk As Single, dx As Single
Dim yn As Single, yk As Single, dy As Single, z As Single
xn = Text1
xk = Text2
dx = Text3
yn = Text4
yk = Text5
dy = Text6
For x = xn To xk Step dx
For y = yn To yk Step dy
z = Sqr(x) + y ^ (1 / 3)
Print "Функция z=" & z & ", при x=" & x & " и y=" & y
Next
Next
End Sub
5.Отладочный пример.
