Цикл 16-вариант / Структура Цикл

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Факультет «Промышленное и гражданское строительство»

Кафедра «Информатика и информационная безопасность»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «Структура Цикл»

Форма обучения – очная

Вариант: 16

Выполнил обучающийся Курс 1 Группа бтб-709	__________________ подпись, дата	Турапов Ж.М.
Руководитель	__________________ подпись, дата	Яковлева Н.А

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

2017

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

1.Скорость истечения груза из горизонтального отверстия бункера равна:

где - коэффициент истечения;

F - площадь поперечного сечения потока ;

Р - периметр сечения;

L - угол наклона желоба, отклоняющего поток и создающего подпор.

Отладить программу для значения: =0,6; F=0,36 м² ; P=2,4 м² ; . Результаты напечатать в виде таблицы.

2. Тепловоз массой m разгоняется из состояния покоя по горизонтальному пути в течение t секунд под действием силы тяги F, после чего до остановки движется с включенным двигателем. Коэффициент сопротивления движению . Определить, с каким ускорением движется локомотив при разгоне, какой скорости он достигает во время разгона, на каком расстоянии от начала движения он остановится?

где m=120 т; t=50 м; =0,005; Н с шагом 5000 Н; 0,004 с шагом 0,002

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

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

Скорость истечения груза из горизонтального отверстия бункера равна:

где - коэффициент истечения;

F - площадь поперечного сечения потока ;

Р - периметр сечения;

L - угол наклона желоба, отклоняющего поток и создающего подпор.

Отладить программу для значения: =0,6; F=0,36 м² ; P=2,4 м² ; .

2. Описание постановки задачи

Состав входных и выходных данных

Входные данные:

- переменная вещественного типа

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

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

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

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

DL - переменная, вещественного типа

Выходные данные:

V – переменная вещественного типа

3. Разработка математической модели

=0,6; F=0,36 м² ; P=2,4 м² ; Ln ≤ L ≤ Lk шаг DL

4. Составление схемы алгоритма

Начало

F,P,Ln,Lk,DL

L≤Ln

L ≤Lk

V

L=L+DL

a

a

да

a

Конец

нет

1.5 Программный код

Private Sub Command1_Click()

Dim lambda As Single

Dim F As Single

Dim P As Single

Dim V As Single

Dim L As Single

Const pi as Single = 3.14

lambda = InputBox("lambda=")

F = InputBox("F=")

P = InputBox("P=")

L = Ln * pi / 180

L = Lk * pi / 180

Do While L <= 90

V = 5.9 * lambda * Sqr(Abs(F / P * Sin(L)))

Print ("V=" + Format(V, "0.00") + " l=" + Format(L, "0.000"))

L = L + DL * pi / 180

Loop

End Sub

1.6 Отладка

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

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

Тепловоз массой m разгоняется из состояния покоя по горизонтальному пути в течение t секунд под действием силы тяги F, после чего до остановки движется с включенным двигателем. Коэффициент сопротивления движению . Определить, с каким ускорением движется локомотив при разгоне, какой скорости он достигает во время разгона, на каком расстоянии от начала движения он остановится?

где m=120 т; t=50 м; =0,005; Н с шагом 5000 Н; 0,004 с шагом 0,002

2.2 Описание постановка задачи

Состав входных и выходных данных

Входные данные:

m - переменная вещественного типа

f - переменная вещественного типа

t - переменная вещественного типа

mu - переменная вещественного типа

at - переменная вещественного типа

v - переменная вещественного типа

g - переменная вещественного типа

Выходные данные:

A – переменная вещественного типа

V – переменная вещественного типа

S – переменная вещественного типа

2.3 Разработка математической модели

m=120 т; t=50 м; =0,005; Fn ≤ F ≤ Fk шаг DL; MUn≤MU≤MUk шаг Dmu

2.4 Составление схемы алгоритма

Начало

m,t,mu

F≤Fn

F=F+Fl

F≤Fk

F

да

MU≤MUn

нет

Конец

a,v,s

MU≤

MUk

A=

да

нет

mu=mu+MUl

2.5 Программный код

Private Sub Command1_Click()

Const g = 9.8

Dim m As Single

Dim mu As Single

Dim t As Single

Dim A As Single

Dim V As Single

Dim S As Single

m = InputBox("m=")

t = InputBox("t=")

mu = InputBox("mu=")

Cls

For F = Fn To Fk Step DF

Print "F=" & F

Print

mu = 0.004

Do

A = (F - mu * m * g) / m

V = A * t

S = (V / 2) * t + ((V ^ 2) / 2 * mu * m * g)

Print "A=" & S; Tab; "V=" & V; Tab; "S=" & S

mu = mu + 50000

Loop While mu <= 0.008

Next

End Sub

2.6 Отладка