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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 27

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Маховик, вращаясь с постоянной угловой скоростью _o, был отключен от двигателей и, сделав m оборотов, остановился. Найти угловое ускорение маховика. Отладить программу для значений: _o = 650 рад/с; об. с шагом 5 об.

2. Определение состава входных и выходных данных. Входные данные: - угловая скорость w - начальное число оборотов m0 - конечное число оборотов mk - шаг изменения числа оборотов dm Выходные данные: - угловое ускорение e

3. Математическое описание. 25  m  100, dm=5

1. Р

   0

   4

   5

   1

   Начало

   w, m0, mk, dm

   Конец

   

   m<=mk

   

   нет

   да

   e , m

   6

   

   8

   

   m=m+dm

   

   3

   m=m0

   

   e=w^2/(4*pi*m)

   7

   

   26

   pi=3,1416

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

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

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

Dim w As Single, m As Single, m0 As Single, mk As Single, dm As Single, e As Single

Const pi As Single = 3.1416

w = Text1

m0 = Text2

mk = Text3

dm = Text4

For m = m0 To mk Step dm

e = w ^ 2 / (4 * pi * m)

Print "Угловое ускорение e= " & e & " при числе оборотов m=" & m

Next

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

Задание №2

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

1. Словесное описание задачи. Вагон массы m₁ c автоматической сцепкой, движущийся со скоростью ₁, догоняет такой же вагон массы m₂, движущийся со скоростью ₂, и сцепляется с ним. Двигаясь дальше вместе, оба вагона сталкиваются со стоящим на рельсах третьим вагоном массы m₃. Найти скорости движения вагонов на разных участках пути. Трением пренебречь. ; где ₁ = 12 м/с; ₂ = 6 м/с; m₃ = 40 т; 20 60т; 20 60т с шагом 10т.

2. Определение состава входных и выходных данных. Входные данные: - скорость 1 вагона v1 - скорость 2 вагона v2 - масса 3 вагона m3 - начальная масса 1 вагона m10 - конечная масса 1 вагона m1k - шаг изменения массы 1 вагона dm1 - начальная масса 2 вагона m20 - конечная масса 2 вагона m2k - шаг изменения массы 2 вагона dm2 Выходные данные: - скорость v4 - скорость v5

3. Математическое описание. 20  m1  60, dm1=10 20  m2  60, dm2=10

2. Р

   0

   3

   1

   Начало

   v1, v2, m3, m10, m1k, dm1, m20, m2k, dm2

   Конец

   

   m1<=m1k

   

   нет

   да

   

   11

   

   m1=m1+dm1

   

   26

   m1=m10

   

   10

   

   4

   m2=m20

   m2<=m2k

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

9

v4=(m1*v1+m2*v2)/(m1+m2)

v4, v5, m1, m2

8

66

m2=m2+dm2

55

нет

да

v5=(m1+m2)*v4/(m1+m2+m3)

7

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

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

Dim v1 As Single, v2 As Single, m3 As Single, m1 As Single, m10 As Single, m1k As Single, dm1 As Single, m2 As Single, m20 As Single, m2k As Single, dm2 As Single

v1 = Text1

v2 = Text2

m3 = Text3

m10 = Text4

m1k = Text5

dm1 = Text6

m20 = Text7

m2k = Text8

dm2 = Text9

For m1 = m10 To m1k Step dm1

For m2 = m20 To m2k Step dm2

v4 = (m1 * v1 + m2 * v2) / (m1 + m2)

v5 = (m1 + m2) * v4 / (m1 + m2 + m3)

Print "Скорость v4=" & v4 & " и скорость v5=" & v5 & " при массах m1=" & m1 & " и m2=" & m2

Next

Next

End Sub

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

8