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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 11

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

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

Факультет

ЭСУ

Группы ЭУС-402

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

2004

Задание №1

1. Словесное описание задачи. Электровоз трогает с места состав массой m. С каким ускорением движется поезд в зависимости от массы, если коэффициент сопротивления = 0,005, а сила тяги F_т=400 кН, g = 9.8м/c²?

1. Определение состава входных и выходных данных. Входные данные: - коэффициент сопротивления m - сила тяги f - начальная масса m1 - конечная масса m2 - шаг изменения массы h Выходные данные: - ускорение поезда a

2. Математическое описание.

1. Р

   1

   55

   66

   2

   Начало

   m,f,m1,m2,h

   Конец

   

   i<=m2

   

   нет

   да

   a

   77

   

   96

   

   i=i+h

   

   46

   i=m1

   

   a=(f-m*i*g)/i

   87

   

   36

   g=9.8

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

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

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

Dim m As Single, f As Single, m1 As Single, m2 As Single, h As Single, a As Single, i As Single

Const g As Single = 9.8

m = Text1

f = Text2

m1 = Text3

m2 = Text4

h = Text5

For i = m1 To m2 Step h

a = (f - m * i * g) / i

Print "При массе в " & i & "т ускорение поезда равно " & a

Next

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

Задание №2

1. Словесное описание задачи. Маятник длины l подвешен к потолку вагона, движущегося горизонтально по прямой с ускорением a. Как зависит положение равновесия и период колебаний маятника от его длины и ускорения вагона?

2. Определение состава входных и выходных данных. Входные данные: - начальная длина маятника l1 - конечная длина маятника l2 - шаг изменения длины маятника h1 - начальное ускорение вагона a1 - конечное ускорение вагона a2 - шаг изменения ускорения вагона h2 Выходные данные: - положение равновесия маятника d - период колебания маятника t

3. Математическое описание.

1. Р

   1

   2

   Начало

   l1, l2, h1, a1, a2, h2

   

   146

   

   36

   g=9.8

   

   46

   pi=3.14

   

   56

   i=rl1

   

   66

   j=a1

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

75

126

d=tg(j/g)

Конец

i<=l2

нет

да

i, j, d, t

117

i=i+h

96

j=j+h

137

85

j<=a2

нет

да

t=2*pi*sqr(i/(sqr(g^2)+a^2))

106

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

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

Dim l1 As Single, l2 As Single, h1 As Single, a1 As Single, a2 As Single, h2 As Single, i As Single, j As Single, d As Single, t As Single

Const g As Single = 9.8, pi As Single = 3.14

l1 = Text1

l2 = Text2

h1 = Text3

a1 = Text4

a2 = Text5

h2 = Text6

For i = l1 To l2 Step h1

For j = a1 To a2 Step h2

d = Tan(i / g)

t = 2 * pi * Sqr(j / (Sqr(g ^ 2) + i ^ 2))

Print "При длине маятника " & i & "м и ускорении вагона " & j & " положение равновесия равно " & d & ", а период колебания равен " & t

Next

Next

End Sub

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

8