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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 21

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Определить диаметр d и длину l цилиндрической стальной цапфы вала, рассматривая цапфу как балку, заделанную концом. Нагрузка P на квадратную единицу диаметрального сечения цапфы не должна превышать 30кг/см²; допускаемое напряжение R=800кг/см; полная величина давления на цапфу Q 20 Q 27т с шагом 0,5т

1. Определение состава входных и выходных данных. Входные данные: - нагрузка P - напряжение R - начальное давление Qn - конечное давление Qk - шаг изменения давления dQ Выходные данные: - диаметр d - длина l

2. Математическое описание. 20 Q 27, dQ=0,5

1. Р

   0

   45

   56

   1

   Начало

   P, R, Qn, Qk, dQ

   l=Q/(d*P)

   Конец

   

   Q<=Qk

   

   нет

   да

   d, l

   77

   

   96

   

   Q=Q+dQ

   

   36

   Q=Qn

   

   66

   d=((32*Q^2)/(pi*R*P))^(1/4)

   87

   

   26

   pi=3,14

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

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

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

Dim P As Single, R As Single, Q As Single, Qn As Single, Qk As Single, dQ As Single, d As Single, l As Single

Const pi As Single = 3.14

P = Text1

R = Text2

Qn = Text3

Qk = Text4

dQ = Text5

For Q = Qn To Qk Step dQ

d = ((32 * Q ^ 2) / (pi * R * P)) ^ (1 / 4)

l = Q / (d * P)

Print "Диаметр d=" & d & ", длина l=" & l

Next

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

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

1. Словесное описание задачи. Локомотив на горизонтальном участке пути развивает постоянную силу тяги F_{Т .} На участке пути длиной l скорость поезда возросла с V₁ до V₂. Определить коэффициент трения. где V₁ = 10 м/c; g = 9,81м/c²; F = 200 кН; l = 4000м; 10⁶  m  310⁶ кг с шагом 0,510⁶ кг; 20  V₂  50м/c с шагом 10 м/с.

2. Определение состава входных и выходных данных. Входные данные: - скорость V1 - сила тяги F - длина пути l - начальная скорость V2 - конечная скорость V2 - шаг изменения скорости V2 - начальная масса m - конечная масса m - шаг изменения скорости m Выходные данные: - коэффициент трения mu

3. Математическое описание. 20  V₂  50, dV2=10 10⁶  m  310⁶ , dm=0,510⁶

2. Р

   0

   1

   Начало

   V1, F, l, V2n, V2k ,dV2, mn, mk, dm

   

   m<=mk

   116

   m=m+dm

   107

   

   26

   g=9,81

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

5

96

mu=F/(m*g)-(V2^2-V1^2)/(2*l*g)

Конец

нет

да

mu, V2, m

87

36

m=mn

76

V2=V2+dV2

46

V2=V2n

65

V2<=V2k

нет

да

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

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

Dim V1 As Single, F As Single, l As Single, V2 As Single, V2n As Single, V2k As Single, dV2 As Single, m As Single, mn As Single, mk As Single, dm As Single, mu As Single

Const g As Single = 9.81

V1 = Text1

F = Text2

l = Text3

V2n = Text4

V2k = Text5

dV2 = Text6

mn = Text7

mk = Text8

dm = Text9

For m = mn To mk Step dm

For V2 = V2n To V2k Step dV2

mu = F / (m * g) - (V2 ^ 2 - V1 ^ 2) / (2 * l * g)

Print "Коэффициент трения mu=" & mu & " при массе m=" & m & " и скорости V2=" & V2

Next

Next

End Sub

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

9