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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 22

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

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

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

Группы

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

2004

Задание №1

1. Словесное описание задачи. Найти расстояние между точками, совершающими гармонические колебания x₁=0,1Sin2t; x₂=1,7Sin(0,8t0,42) в момент времени 0,6  t  1,8 с шагом 0,2.

1. Определение состава входных и выходных данных. Входные данные: - начальное время tn - конечное время tk - шаг изменения времени dt Выходные данные: - расстояние м/д точками R

2. Математическое описание. 0,6 t 1,8, dt=0,2

1. Р

   0

   35

   46

   1

   Начало

   tn, tk, dt

   x2=1,7*sin(0,8*t-0,42)

   Конец

   

   t<=tk

   

   нет

   да

   R, x1, x2, t

   77

   

   96

   

   t=t+dt

   

   26

   t=tn

   

   56

   x1=0,1*sin(2*t)

   87

   

   R=sqr((x1-x2)^2)

   

   66

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

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

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

Dim t As Single, tn As Single, tk As Single, dt As Single, x1 As Single, x2 As Single, R As Single

tn = Text1

tk = Text2

dt = Text3

For t = tn To tk Step dt

x1 = 0.1 * Sin(2 * t)

x2 = 1.7 * Sin(0.8 * t - 0.42)

R = Sqr((x1 - x2) ^ 2)

Print "Расстояние R=" & R & " при x1=" & x1 & ", x2=" & x2 & " и времени t=" & t

Next

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

Задание №2

1. Словесное описание задачи. Вагонетку массой m поднимает по рельсам в гору, наклон которой L c ускорением a .Коэффициент трения . Какую работу при подъеме совершит сила тяги на пути l? где m=3000 кг; a= 0,2 м/с²; l = 50м; g = 9,81м/с²; 10  L  30 с шагом 5; 0,05    0,1 с шагом 0,01.

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

3. Математическое описание. 10  L  30, dL=5 0,05  mu  0,1 , dmu=0,01

2. Р

   0

   1

   Начало

   m, a , l, Ln, Lk, dL, mun, muk, dmu

   

   26

   g=9,81

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

4

96

A= m*l*(a+g*(sin(L)+mu*cos(L)))

Конец

L<=Lk

нет

да

A, L, mu

87

116

L=L+dL

36

L=Ln

76

mu=mu+dmu

107

5

mu=mun

65

mu<=muk

нет

да

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

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

Dim m As Single, a1 As Single, l1 As Single, L As Single, Ln As Single, Lk As Single, dL As Single, mu As Single, mun As Single, muk As Single, dmu As Single, A As Single

Const g As Single = 9.81

m = Text1

a1 = Text2

l1 = Text3

Ln = Text4

Lk = Text5

dL = Text6

mun = Text7

muk = Text8

dmu = Text9

For L = Ln To Lk Step dL

For mu = mun To muk Step dmu

A = m * l1 * (a1 + g * (Sin(3.14 * L / 180) + mu * Cos(3.14 * L / 180)))

Print "Работа A=" & A & " при наклоне L=" & L & " и коэффициенте трения mu=" & mu

Next

Next

End Sub

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

9