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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 17

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. К пружине подвешен груз массой m. Пружина под влиянием силы F растягивается на величину x .Определить период вертикальных колебаний груза для разных F: Отладить программу для следующих значений переменных: m=10кг; х=0,15; 1,85 с шагом 0,15Н.

2. Определение состава входных и выходных данных. Входные данные: - масса груза m - величина x - начальная сила Fn - конечная сила Fk - шаг изменения силы dF Выходные данные: - период колебаний груза T

3. Математическое описание. 1,85  F  3,2, dF=0,15

1. Р

   0

   4

   5

   1

   Начало

   m, x, Fn, Fk, dF

   Конец

   

   F<=Fk

   

   нет

   да

   T

   6

   

   8

   

   m2=m2+dm2

   

   3

   F=Fn

   

   T=2*pi*sqr(m*x/F)

   7

   

   26

   pi=3,14

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

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

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

Dim m As Single, x As Single, F As Single, Fn As Single, Fk As Single, dF As Single, T As Single

Const pi As Single = 3.14

m = Text1

x = Text2

Fn = Text3

Fk = Text4

dF = Text5

For F = Fn To Fk Step dF

T = 2 * pi * Sqr(m * x / F)

Print "Период колебаний T=" & T & " при силе F=" & F

Next

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

Задание №2

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

1. Словесное описание задачи. Работая на максимальной мощности , тепловоз ведет поезд массой m вверх по пути с уклоном L₁ со скоростью V₁. Работая на 60% мощности, тепловоз ведет тот же поезд вверх по пути с уклоном L₂ со скоростью V₂. Найти максимальную мощность тепловоза и коэффициент трения: ; где m=2000т; V₂=50км/ч; L₂=0,003; 0,003 с шагом 0,001; 50 км/ч с шагом 10 км/ч.

2. Определение состава входных и выходных данных. Входные данные: - масса поезда m - уклон L2 - скорость V2 - начальный уклон L1n - конечный уклон L1k - шаг изменения уклона dL1 - начальная скорость V1n - конечная скорость V1k - шаг изменения скорости dV1 Выходные данные: - коэффициент трения f - мощность N

3. Математическое описание. 0,003  L₁  0,006, dV₀=0,001 50  V₁  80, dt=10

2. Р

   0

   1

   Начало

   m, L2, V2, L1n, L1k, dL1, V1n, V1k, dV1

   

   L1=L1+dL1

   11

   

   26

   g=9,81

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

55

10

f=(0,6*V1*L1-V2*L2)/(V2-0,6*V1)

Конец

L1<=L1k

нет

да

f, N

9

12

36

L1=L1n

76

V1=V1+dV1

46

V1=V1n

65

V1<=V1k

нет

да

N=m*g*V1*(L1+f)

8

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

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

Dim m As Single, V2 As Single, L2 As Single, L1 As Single, L1n As Single, L1k As Single, dL1 As Single, V1 As Single, V1n As Single, V1k As Single, dV1 As Single, f As Single, N As Single

Const g As Single = 9.81

m = Text1

V2 = Text2

L2 = Text3

L1n = Text4

L1k = Text5

dL1 = Text6

V1n = Text7

V1k = Text8

dV1 = Text9

For L1 = L1n To L1k Step dL1

For V1 = V1n To V1k Step dV1

f = (0.6 * V1 * L1 - V2 * L2) / (V2 - 0.6 * V1)

N = m * g * V1 * (L1 + f)

Print "Коэффициент трения f=" & f & " и мощность тепловоза N=" & N & " при уклоне L1=" & L1 & " и скорости V1=" & V1

Next

Next

End Sub

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

10