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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 26

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Какое количество условного топлива израсходуют двигатели тепловоза на расстоянии l при изменении скорости V ,если средняя мощность его двигателя P=2000кВт, а КПД_ =25%. Теплота сгорания условного топлива g=2,810⁷ Дж/кг. Отладить программу для значений l = 100 км; км/ч с шагом 10км/ч.

1. Определение состава входных и выходных данных. Входные данные: - расстояние l - мощность двигателя P - КПД nu - начальная скорость Vn - конечная скорость Vk - шаг изменения скорости dV Выходные данные: - количество топлива m

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

1. Р

   0

   35

   46

   1

   Начало

   l, P, nu, Vn, Vk, dV

   Конец

   

   V<=Vk

   

   нет

   да

   m, V

   5

   

   7

   

   V=V+dV

   

   26

   V=Vn

   

   m=P*1000*l/(V*g*nu/100)

   6

   

   26

   g=2,8E7

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

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

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

Dim l As Single, P As Single, nu As Single, Vn As Single, Vk As Single, dV As Single, m As Single

Const g As Single = 28000000

l = Text1

P = Text2

nu = Text3

Vn = Text4

Vk = Text5

dV = Text6

For V = Vn To Vk Step dV

m = P * 1000 * l / (V * g * nu / 100)

Print "Количество топлива m=" & m & " при скорости V=" & V

Next

End Sub

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

Задание №2

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

1. Словесное описание задачи. На сколько должен был поднят наружный рельс над внутренним на кривой радиуса R ,чтобы при скорости движения V силы давления поезда на оба рельса были одинаковыми и рельсы не подвергались сдвигу? Ширина колеи S =1520 мм. где 60  V  140км/ч с шагом 40км/ч; 500  R  2000м с шагом 250м.

2. Определение состава входных и выходных данных. Входные данные: - ширина колеи S - начальная скорость Vk - конечная скорость Vn - шаг изменения скорости dV - начальный радиус Rn - конечный радиус Rk - шаг изменения радиуса dR Выходные данные: - высота подъема h

3. Математическое описание. 60V140, dV=40 500R2000, dR=250

2. Р

   0

   1

   Начало

   S, Vn, Vk, dV, Rn, Rk, dR

   

   26

   g=9,81

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

4

9

h=S/1000*(V*1000/3600)^2/(g*R)

Конец

V<=Vk

нет

да

h, V, R

8

11

V=V+dV

36

V=Vn

7

R=R+dR

10

5

R=Rn

6

R<=Rk

нет

да

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

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

Dim S As Single, V As Single, Vn As Single, Vk As Single, dV As Single, R As Single, Rn As Single, Rk As Single, dR As Single, h As Single

Const g As Single = 9.81

S = Text1

Vn = Text2

Vk = Text3

dV = Text4

Rn = Text5

Rk = Text6

dR = Text7

For V = Vn To Vk Step dV

For R = Rn To Rk Step dR

h = S / 1000 * (V * 1000 / 3600) ^ 2 / (g * R)

Print "Высота h=" & h & "м при скорости V=" & V & "км/ч и радиусе R=" & R & "м"

Next

Next

End Sub

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

9