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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 8

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

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

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

Группы

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

2004

Задание №1

1. Словесное описание задачи. Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V, в зависимости от радиуса r ?

где V=60 км/ч ; 200  r  1000 м с шагом 100 м.

1. Определение состава входных и выходных данных. Входные данные: - скорость поезда V - начальный радиус дороги rn - конечный радиус дороги rk - шаг изменения радиуса dr Выходные данные: - центростремительное ускорение поезда a

2. Математическое описание. 200  r  1000, dr=100

1. Р

   1

   45

   56

   2

   Начало

   V, rn, rk, dr

   Конец

   

   r<=rk

   

   нет

   да

   a, V, r

   67

   

   86

   

   r=r+dr

   

   36

   r=rn

   

   a=V^2/r

   77

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

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

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

Dim V As Single, rn As Single, rk As Single, dr As Single, a As Single, r As Single

V = Text1

rn = Text2

rk = Text3

dr = Text4

For r = rn To rk Step dr

a = V ^ 2 / r

Print "Если радиус равен " & r & "м, а скорость " & V & "км/ч, то ускорение равно " & a & "м/с^2 "

Next

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

Задание №2

1. Словесное описание задачи. Определить статический и динамический прогибы балки по формулам: где E = 210⁶ кг/см² ; J=2500 cм⁴ ; Q = 4т; м с шагом 3м ; м с шагом 1м.

2. Определение состава входных и выходных данных. Входные данные: - E - Q - J - начальное ln - конечное lk - шаг изменения dl - начальное hn - конечное hk - шаг изменения dh Выходные данные: - статический прогиб балки - динамический прогиб балки

3. Математическое описание. , dl=3 , dh=1

1. Р

   1

   4

   106

   2

   Начало

   E, Q, J1, ln, lk, dl, hn, hk, dh

   Конец

   

   l<=lk

   

   нет

   да

   l, h, fs, fd

   97

   

   126

   

   l=l+dl

   

   36

   l=ln

   

   h=h+dh

   117

   

   6

   h=hn

   7

   

   h<=hk

   

   нет

   да

   

   fd=fs+sqr(fs^2+2*fs*h)

   

   86

   

   5

   fs=Q*l^3/(48*E*J1)

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

3 Разработка визуальной части. 4 Разработка кода приложения. Private Sub Command1_Click()

Dim E As Single, J1 As Single, Q As Single, ln As Single, lk As Single, dl As Single, hn As Single, hk As Single, dh As Single, l As Single, h As Single, fs As Single, fd As Single

E = Text1

J1 = Text2

Q = Text3

ln = Text4

lk = Text5

dl = Text6

hn = Text7

hk = Text8

dh = Text9

For l = ln To lk Step dl

fs = Q * l ^ 3 / (48 * E * J1)

For h = hn To hk Step dh

fd = fs + Sqr(fs ^ 2 + 2 * fs * h)

Print "Если l=" & l & "м, а h=" & h & "м, то статический прогиб равен " & fs & "м, а динамический " & fd & "м"

Next

Next

End Sub

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

9