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

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

ОТЧЁТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ

на тему:

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

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

2020

Задание 1

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

Какое количество условного топлива израсходуют двигатели тепловоза на расстоянии L при изменении скорости V, если средняя мощность его двигателя P=2000 кВт, а КПД η=25%? Теплота сгорания условного топлива g=2,8*107 Дж/кг.

Входные данные: VO – начальное значение параметра цикла, вещественная переменная

                                   VK - конечное значение параметра цикла, вещественная переменная

                                   DV – шаг изменения параметра цикла, вещественная переменная

                                  P – средняя мощность двигателя, вещественная переменная

                                  L – расстояние, вещественная переменная

                                  N – КПД, вещественная переменная

                                   G – теплота сгорания топлива, постоянная переменная (константа)

Выходные данные: V – параметр цикла, вещественная переменная

                                 M – значение количества топлива, вещественная переменная

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

L=100 км – расстояние                                                 P=2000 кВт

V – изменение скорости 50 ≤ V ≤ 120 км/ч               n=25%=0,25

С шагом 10 км/ч                                                            g=2,8*107 Дж/кг=2.8E7

1. Математическая модель

  при VO ≤ V ≤ VK с шагом DV

1. Разработка алгоритма[pic 1]

[pic 2][pic 3][pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28]

       Конец

V, M

       Начало

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

[pic 29]

1. Код приложения

Private Sub Command1_Click()

Const G As Single = 28000000#

Dim P As Single, N As Single, L As Single, M As Single

Dim V As Single, VO As Single, VK As Single, DV As Single

P = InputBox("Введите P ")

N = InputBox("Введите N ")

L = InputBox("Введите L ")

VO = InputBox("Введите VO ")

VK = InputBox("Введите VK ")

DV = InputBox("Введите DV ")

For V = VO To VK + DV / 2 Step DV

M = P * L / (V * G * N)

Print "V=" & V; Tab; "M=" & M

Next

End Sub

1. Откладка программы

[pic 30]

Ручной счет:

P=2000, N=0,25 , L=100, V=50, G= 28000000. Отсюда M=0,000571428571

P=2000, N=0,25 , L=100, V=60, G=28000000. Отсюда M=0,000476190476

Задание 2

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

На сколько должен быть поднят наружный рельс над внутренним

на кривой радиусом R, чтобы при скорости движения V силы давления поезда на оба рельса были одинаковыми и рельсы не подвергались сдвигу?

Ширина колеи S = 1520 мм.

где 60 £ V £ 140 км/ч с шагом 40 км/ч;

500 £ R £ 2000 м с шагом 250 м

Входные данные: S - ширина колеи, вещественная переменная