Старые отчёты / ФЫР / информатика!!!!!!!!! / 3

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

ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

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

ОТЧЕТ

о выполненной лабораторной работе № 3

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

Структура «Цикл»

Вариант 7

Выполнил студент

Дневного отделения

Факультет ЭСУ

Группы

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

2004

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

1. Словесное описание задачи. Поезд массой m , движущийся со скоростью V, остановился, пройдя после торможения путь S. Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости: где m=2000т; S=550м; 30  V 60 c шагом 5 км/ч.

1. Определение состава входных и выходных данных. Входные данные: - масса поезда m - путь торможения S - начальная скорость поезда Vn - конечная скорость поезда Vk - шаг изменения скорости поезда dV Выходные данные: - тормозная сила F - время торможения t

2. Математическое описание. 30  V  60, dV=5

1. Р

   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

   азработка схемы алгоритма.

2. Разработка визуальной части.

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. Словесное описание задачи. Вычислить и напечатать таблицу значений функций где 1,541  x  10,241 с шагом 3,41 12  y  16 c шагом 2.

2. Определение состава входных и выходных данных. Входные данные: - начальное x - конечное x - шаг изменения x - начальное y - конечное y - шаг изменения y Выходные данные: - функция z

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

9