У вас вопросы?
У нас ответы:) SamZan.net

Задание 1 Маховик вращаясь с постоянной угловой скоростью o был отключен от двигателей и сдела

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

PAGE  4

Вертегел В.  ЛТ-403 Вариант 27

«СТРУКТУРА ЦИКЛ»


Начало

omega0

m<=100

=omega0^2/(4*pi*m)

m=m+5

Конец

E

Начало

V1,V2, m3

m2=m2+10

0

1

V4=…,  V5=…

2

3

4

5

6

m2<=60

Конец

m1<=60

V4, V5

m1=m1+10

Да

Нет

Да

3

0

5

6

7

9

101

Да

Нет

Нет

2

4

m=25

8

4

1

m1=20

m2=20

 

  1.  Словесное описание

Задание 1

      Маховик , вращаясь с постоянной угловой скоростью o был отключен от двигателей и , сделав m оборотов, остановился .Найти угловое   ускорение маховика.

Отладить программу для значений:

                 o = 650 рад/с;   об. с шагом 5об.

Задание 2

Вагон массы m1 c автоматической сцепкой , движущийся со скоростью   1 , догоняет такой же вагон массы m2 , движущийся со скоростью  2 , и сцепляется с ним . Двигаясь дальше вместе        оба вагона сталкиваются со стоящим на рельсах третьим вагоном массы m3 .Найти скорости движения вагонов на разных участках пути . Трением пренебречь.  

4;     5   ,       

        где       1 = 12 м/с;  2 = 6 м/с; m3 = 40 т;

                   20  60т;

                   20  60т с шагом 10т.

  1.  Алгоритмизация

  1.  Программирование

Private Sub Command1_Click()

Dim omega0 As Single

Dim m As Single

Dim E As Single

Const pi = 3.141596

omega0 = InputBox("BBEDITE OMEGA 0")

m = 25

Cls

Do While m <= 100

E = omega0 ^ 2 / (4 * pi * m)

Print "E=" & E

m = m + 5

Loop

End Sub

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

  1.  Алгоритмизация

  1.  Программирование

Private Sub Command1_Click()

Dim V1 As Single

Dim V2 As Single

Dim m3 As Single

Dim m1 As Single

Dim m2 As Single

Dim V4 As Single

Dim V5 As Single

V1 = InputBox("BBEDITE V1")

V2 = InputBox("BBEDITE V2")

m3 = InputBox("BBEDITE m3")

Cls

For m1 = 20 To 60 Step 10

m2 = 20

Do

V4 = m1 * V1 * m2 * V2 / (m1 + V1)

V5 = (m1 + m2) * V4 / (m1 + m2 + m3)

Print "V4=" & V4; Tab; "V5=" & V5

m2 = m2 + 10

Loop While m2 <= 60

Next

End Sub

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




1. Контроль операций на счетах в банках Выполнила- студентка 4 курса группы 402ФП Тренихина А.html
2. Курсовая работа- Международные экономические отношения
3. Реферат- Мировые тенденции развития ядерной технологии
4. Маркетинг у готельному бізнесі
5. Отчет по лабораторной работе 5 по курсу Разработка программных систем Выполнила- Митина Е
6. Доклад- Паника при катастрофе - это катастрофа
7. Економічна сутність статистики зовнішньої торгівлі, платіжного балансу та валютних курсів.html
8. на тему- Разработка АСР давления пара в барабане котла ДКВр 20-13 Проверил- Попов В
9. The rgument for Writing cross the Curriculum
10. Архитектор с~зіні~ аудармасы Бас ~~рылысшы 1 млн адам т~р