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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 14

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Какой массы состав может везти тепловоз с ускорением а при различных коэффициентах сопротивления , если он развивает максимальное тяговое усилие F_Т? где а=0,1м/c²; F_t=300 кН; g=9,8м/c²; 0,0010,01 с шагом 0,001.

2. Определение состава входных и выходных данных. Входные данные: - ускорение a - тяговое усилие F - начальный коэффициент сопротивления mun - конечный коэффициент сопротивления muk - шаг изменения коэффициента сопротивления dmu Выходные данные: - масса состава m

3. Математическое описание. 0,0010,01, d=0,001

1. Р

   0

   4

   5

   1

   Начало

   a, F, mun, muk, dmu

   Конец

   

   mu<=muk

   

   нет

   да

   m

   6

   

   8

   

   mu=mu+dmu

   

   3

   mu=mun

   

   m=F/(a+mu*g)

   7

   

   26

   g=9,81

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

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

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

Dim a As Single, F As Single, mu As Single, mun As Single, muk As Single, dmu As Single, m As Single

Const g As Single = 9.81

a = Text1

F = Text2

mun = Text3

muk = Text4

dmu = Text5

For mu = mun To muk + dmu Step dmu

m = F / (a + mu * g)

Print "Масса m=" & m & ", при коэффициенте сопротивления mu=" & mu

Next

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

Задание №2

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

1. Словесное описание задачи. Колебательный контур состоит из конденсатора С и катушки с индуктивностью L и активным сопротивлением R=200см. Определить частоту свободных электромагнитных колебаний в этом контуре. Насколько изменится частота, если пренебречь активным сопротивлением катушки? где 12*10^-3  L  24*10^-3 г с шагом 2*10^-3г ; 48 72мкф с шагом 12мкф.

2. Определение состава входных и выходных данных. Входные данные: - сопротивление R - начальная емкость - конечная емкость - шаг изменения емкости - начальная индуктивность - конечная индуктивность - шаг изменения индуктивности Выходные данные: - частоты свободных электромагнитных колебаний v, v0 - разность v и v0

3. Математическое описание. 0,012  L  0,024, dL=0,002 0,000048  C  0,000072, dC=0,000012

2. Р

   0

   1

   Начало

   R, Cn, Ck, dC, Ln, Lk, dL

   

   26

   C=Cn

   

   4

   L=Ln

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

3

10

v=1/(2*pi)*Sqr(1/(L*C/1000000)-(R/100/(2*L))^2)

Конец

C<=Ck

нет

да

v, v0, d

9

12

C=C+dC

66

L=L+dL

11

55

L<=Lk

нет

да

v0=1/(2*pi*Sqr(1/(L*C/1000000)))

7

d=v0-v

8

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

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

Dim R As Single, C As Single, Cn As Single, Ck As Single, dC As Single, L As Single, Ln As Single, Lk As Single, dL As Single, v As Single, v0 As Single, d As Single

Const pi As Single = 3.14

R = Text1

Cn = Text2

Ck = Text3

dC = Text4

Ln = Text5

Lk = Text6

dL = Text7

For C = Cn To Ck Step dC

For L = Ln To Lk Step dL

v = 1 / (2 * pi) * Sqr(1 / (L * C / 1000000) - (R / 100 / (2 * L)) ^ 2)

v0 = 1 / (2 * pi * Sqr(1 / (L * C / 1000000)))

d = v0 - v

Print "v=" & v & ", v0=" & v0 & " и d=" & d & " при C=" & C & " и L=" & L

Next

Next

End Sub

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

9