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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 12

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Электропоезд в момент включения тока имел скорость v. Какое время и расстояние пройдет он до полной остановки по горизонтальному пути при разных значениях скорости? Коэффициент сопротивления движения . ; где = 0,006; g= 9,81м/с²; 5 10м/с с шагом 0,5м/с.

2. Определение состава входных и выходных данных. Входные данные: - коэффициент сопротивления mu - начальная скорость Vn - конечная скорость Vk - шаг изменения скорости dV Выходные данные: - время t - расстояние l

3. Математическое описание. 510, d=0,5

1. Р

   0

   4

   5

   1

   Начало

   mu, Vn, Vk, dV

   Конец

   

   V<=Vk

   

   нет

   да

   t, l

   7

   

   9

   

   V=V+dV

   

   3

   V=Vn

   

   t=V/(mu*g)

   8

   6

   

   l=V^2/(2*mu*g)

   

   2

   g=9,81

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

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

4 Разработка кода приложения. Private Sub Command1_Click()

Dim mu As Single, V As Single, Vn As Single, Vk As Single, dV As Single, t As Single, l As Single

Const g As Single = 9.81

mu = Text1

Vn = Text2

Vk = Text3

dV = Text4

For V = Vn To Vk Step dV

t = V / (mu * g)

l = V ^ 2 / (2 * mu * g)

Print "Время t=" & t & " и расстояние l=" & l & " при скорости V=" & V

Next

End Sub 5 Отладочный пример.

Задание №2

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

1. Словесное описание задачи. Определить значения диаметра d оси железнодорожного вагона, представляющей балку с двум консолями, нагруженную силами p на концах консолей Длина опорной части l = 152 см; длина консолей a = 26 см; допускаемое напряжение на изгиб R меняется от 500 до 600 кг/см² с шагом 50 кг/см²; 50006500кг с шагом 250 кг .

2. Определение состава входных и выходных данных. Входные данные: - длина опорной части l - длина консолей a -начальное напряжение Rn - конечное напряжение Rk - шаг изменения напряжения dR - начальная сила Pn - конечная сила Pk - шаг изменения силы dP Выходные данные: - диаметр d

3. Математическое описание. 500  R  600, dR=50 5000  P  6500, dP=250

2. Р

   0

   1

   Начало

   l, a, Rn, Rk, dR, Pn, Pk, dP

   

   26

   pi=3,14

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

4

9

d=(32*P*a/(pi*R))^(1 /3)

Конец

R<=Rk

нет

да

d

8

11

R=R+dR

36

R=Rn

7

P=P+dP

10

5

P=Pn

6

P<=Pk

нет

да

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

4 Разработка кода приложения. Private Sub Command1_Click()

Dim l As Single, a As Single, R As Single, Rn As Single, Rk As Single, dR As Single, P As Single, Pn As Single, Pk As Single, dP As Single, d As Single

Const pi As Single = 3.14

l = Text1

a = Text2

Rn = Text3

Rk = Text4

dR = Text5

Pn = Text6

Pk = Text7

dP = Text8

For R = Rn To Rk Step dR

For P = Pn To Pk Step dP

d = (32 * P * a / (pi * R)) ^ (1 / 3)

Print "Диаметр d=" & d & " при напряжение R=" & R & " и силе P=" & P

Next

Next

End Sub

5 Отладочный пример.

9