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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 1

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Железнодорожный состав проходит первую треть пути со скоростью V₁, а оставшуюся часть пути - со скоростью V₂ =50км/ч. Определить скорость на первом участке пути по формуле: если средняя скорость поезда на всем пути Vср=37,5км/ч, 40км/ч, ..., 62,5км/ч.

2. Определение состава входных и выходных данных. Входные данные: - скорость V2 - начальная средняя скорость Vsn - конечная средняя скорость Vsk - шаг изменения средней скорости dVs Выходные данные: - скорость V1

Математическое описание. 37,5  V_СР  62,5, dV_СР =2,5

2. Р

   0

   35

   46

   1

   Начало

   V2, Vsn, Vsk, dVs

   Конец

   

   Vs<=Vsk

   

   нет

   да

   V1

   5

   

   7

   

   Vs=Vs+dVs

   

   26

   Vs=Vsn

   

   V1=(Vs-V2)/(3*V2-2*Vs)

   6

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

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

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

Dim V2 As Single, Vs As Single, Vsn As Single, Vsk As Single, dVs As Single, V1 As Single

V2 = Text1

Vsn = Text2

Vsk = Text3

dVs = Text4

For Vs = Vsn To Vsk Step dVs

V1 = (Vs - V2) / (3 * V2 - 2 * Vs)

Print "Скорость V1=" & V1 & " при средней скорости Vs=" & Vs

Next

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

Задание №2

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

1. Словесное описание задачи. Определить ускорение скатывающегося с горки вагона с учетом инерции его вращающихся частей: где g- 9,81м/c²; n- число осей вагона /4, 6, 8/; Q- вес вагона /40, 60, 80, ...., 140/ тс.

2. Определение состава входных и выходных данных. Входные данные: - начальное число осей nn - конечное число осей nk - шаг изменения числа осей dn - начальный вес Qn - конечный вес Qk - шаг изменения веса dQ Выходные данные: - ускорение a

3. Математическое описание. 4n8, dn=2 40Q140, dQ=20

2. Р

   0

   1

   Начало

   nn, nk, dn, Qn, Qk, dQ

   

   26

   g=9,81

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

4

9

a=g/(1+0,42*n/Q)

Конец

n<=nk

нет

да

a

8

11

n=n+dn

36

n=nn

7

Q=Q+dQ

10

5

Q=Qn

6

Q<=Qk

нет

да

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

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

Dim n As Single, nn As Single, nk As Single, dn As Single, Q As Single, Qn As Single, Qk As Single, dQ As Single, a As Single

Const g As Single = 9.81

nn = Text1

nk = Text2

dn = Text3

Qn = Text4

Qk = Text5

dQ = Text6

For n = nn To nk Step dn

For Q = Qn To Qk Step dQ

a = g / (1 + 0.42 * n / Q)

Print "Ускорение a=" & a & " при числе осей n=" & n & " и весе вагона Q=" & Q

Next

Next

End Sub

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

8