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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 20

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Определить число зон пригородного пассажиропотока при составлении расписаний движения поездов по формуле: где P – общее число остановочных пунктов на участке; A – среднечасовой пассажиропоток на остановочном пункте; r – время на разгон, замедление и стоянку поезда; M – расчетная населенность поезда.

2. Определение состава входных и выходных данных. Входные данные: - число остановочных пунктов P - среднечасовой пассажиропоток A - время на разгон, замедление и стоянку поезда r - начальная населенность поезда Mn - конечная населенность поезда Mk - шаг изменения населенности поезда dM Выходные данные: - число зон пригородного пассажиропотока Z

3. Математическое описание. 1000  M  2000, dM=100

1. Р

   0

   35

   46

   1

   Начало

   P, A, r, Mn, Mk, dM

   Конец

   

   M<=Mk

   

   нет

   да

   Z

   5

   

   7

   

   M=M+dM

   

   26

   M=Mn

   

   Z=P*A*r/M

   6

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

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

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

Dim P As Single, A As Single, r As Single, Mn As Single, Mk As Single, dM As Single, M As Single, Z As Single

P = Text1

A = Text2

r = Text3

Mn = Text4

Mk = Text5

dM = Text6

For M = Mn To Mk Step dM

Z = P * A * r / M

Print "Число зон Z=" & Z & " при расчетной населенности поезда M=" & M

Next

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

Задание №2

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

1. Словесное описание задачи. Поезд массой m при торможении с ускорением a останавливается через время t после начала торможения. Какое количество тепла выделится при торможении? где m=2000 т; с шагом 0,15 м/с²; c шагом 10 c.

2. Определение состава входных и выходных данных. Входные данные: - масса поезда m - начальное ускорение an - конечное ускорение ak - шаг изменения ускорения da - начальное время tn - конечное время tk - шаг изменения времени dt Выходные данные: - количество тепла Q

3. Математическое описание. 0,1  a  0,7, da=0,15 30  t  50, dt=10

2. Р

   0

   1

   Начало

   m, an, ak, da, tn, tk, dt

   

   26

   a=an

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

3

86

Q=m*a^2*t^2/2

Конец

a<=ak

нет

да

Q

77

10

a=a+da

66

t=t+dt

97

4

t=tn

55

t<=tk

нет

да

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

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

Dim m As Single, a As Single, an As Single, ak As Single, da As Single, t As Single, tn As Single, tk As Single, dt As Single, Q As Single

m = Text1

an = Text2

ak = Text3

da = Text4

tn = Text5

tk = Text6

dt = Text7

For a = an To ak Step da

For t = tn To tk Step dt

Q = m * a ^ 2 * t ^ 2 / 2

Print "Выделится тепла Q=" & Q & "Дж при торможении с ускорением a=" & a & "м/с^2 через время t=" & t & "с"

Next

Next

End Sub

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

9