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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 29

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. По прямому участку пути двигаются три вагона с массами m₁,m₂,m₃.Какое максимальное число столкновений между ними может произойти где ; -целая часть числа; m ₁= 100 т; m₃ = 100 т; т с шагом 10 т.

2. Определение состава входных и выходных данных. Входные данные: - масса 1 вагона m1 - масса 3 вагона m3 - начальная масса 2 вагона m2n - конечная масса 2 вагона m2k - шаг изменения массы 2 вагона dm2 Выходные данные: - количество столкновений вагонов N

3. Математическое описание. 10  m₂  120, dm₂=10

1. Р

   0

   4

   5

   1

   Начало

   m1, m3, m2n, m2k, dm2

   Конец

   

   m2<=m2k

   

   нет

   да

   N

   7

   

   9

   

   m2=m2+dm2

   

   3

   m2=m2n

   

   a=Sqr(m1 * m2 / ((m1 + m2) * (m2 + m3)))

   8

   

   26

   pi=3,14

   

   66

   N=-Int(pi / (pi / 2 - Atn(a / Sqr(1 - a ^ 2))))

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

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

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

Dim m1 As Single, m3 As Single, m2 As Single, m2n As Single, m2k As Single, dm2 As Single, N As Single, a As Single

Const pi As Single = 3.14

m1 = Text1

m3 = Text2

m2n = Text3

m2k = Text4

dm2 = Text5

For m2 = m2n To m2k Step dm2

a = Sqr(m1 * m2 / ((m1 + m2) * (m2 + m3)))

N = -Int(pi / (pi / 2 - Atn(a / Sqr(1 - a ^ 2))))

Print "Число столкновений м/д вагонами N=" & N & " при массе 2 вагона m2=" & m2 & "т"

Next

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

Задание №2

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

1. Словесное описание задачи. Поезд, имея скорость V_o, стал двигаться равнозамедленно и через время t снизил скорость до V. С каким ускорением двигался поезд на этом участке? Какой он при этом прошел путь? ; где км/ч; км/ч с шагом 20 км/ч; с с шагом 2,5 с.

2. Определение состава входных и выходных данных. Входные данные: - скорость V - начальное время tn - конечное время tk - шаг изменения времени dt - начальная скорость V0n - конечная скорость V0k - шаг изменения скорости dV0 Выходные данные: - ускорение поезда a - пройденный путь S

3. Математическое описание. 40  V₀  120, dV₀=20 5  t  15, dt=2,5

2. Р

   0

   3

   9

   1

   Начало

   V, V0n, V0k, dV0, tn, tk, dt

   a=(V-V0)/t

   Конец

   

   V0<=V0k

   

   нет

   да

   a, S

   8

   

   11

   

   V0=V0+dV0

   

   26

   V0=V0n

   

   66

   t=t+dt

   10

   

   4

   t=tn

   55

   

   t<=tk

   

   нет

   да

   

   S=(V0+V)/2*t

   

   7

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

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

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

Dim V As Single, V0 As Single, V0n As Single, V0k As Single, dV0 As Single, t As Single, tn As Single, tk As Single, dt As Single, a As Single, S As Single

V = Text1

V0n = Text2

V0k = Text3

dV0 = Text4

tn = Text5

tk = Text6

dt = Text7

For V0 = V0n To V0k Step dV0

For t = tn To tk Step dt

a = (V - V0) / t

S = (V0 + V) / 2 * t

Print "Ускорение поезда a=" & a & ", пройденный путь S=" & S & " при первоначальной скорости V0=" & V0 & " и промежутке времени t=" & t

Next

Next

End Sub

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

9