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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 3

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. За i-ую секунду от начала движения поезд прошел L метров. Какой путь пройдет поезд за первые t секунд и какой скорости он достигнет по истечении этого времени? Отладку программы произвести для значений i = 4, t=10, шагом 0,5м.

2. Определение состава входных и выходных данных. Входные данные: - время i - время t - начальное расстояние ln - конечное расстояние lk - шаг изменения расстояния dl Выходные данные: - ускорение a - скорость V - путь S

3. Математическое описание. 3   9, d =0,5

1. Р

   0

   3

   4

   1

   Начало

   i, t, ln, lk, dl

   Конец

   

   l<=lk

   

   нет

   да

   A, t

   7

   

   9

   

   l=l+dl

   

   2

   l=ln

   

   A=2*l/(2*i-1)

   8

   5

   

   V=a*t

   6

   

   S=a*t^2/2

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

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

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

Dim i As Single, t As Single, l As Single, ln As Single, lk As Single, dl As Single, a As Single, V As Single, S As Single

i = Text1

t = Text2

ln = Text3

lk = Text4

dl = Text5

For l = ln To lk Step dl

a = 2 * l / (2 * i - 1)

V = a * t

S = a * t ^ 2 / 2

Print "Ускорение a=" & a & ", скорость V=" & V & " и путь S=" & S & " при расстояние l=" & l

Next

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

Задание №2

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

1. Словесное описание задачи. Груз массой m перемещают равномерно по прямой в горизонтальной плоскости, прилагая силу, направленную под углом к горизонту. Определить величину этой силы при изменяющихся значениях угла и коэффициента трения . ; где 0   0,5 рад с шагом 0,1 рад ; 0,1   0,2 с шагом 0,02; m=10кг.

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

3. Математическое описание. 0   0,5, d=0,1 0,1   0,2, d=0,02

2. Р

   0

   1

   Начало

   m, an, ak, da, mun, muk, dmu

   

   26

   G=9,81

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

5

9

F=m*g*mu/(cos(a)-mu*sin(a))

Конец

a<=ak

нет

да

F, a, mu

8

11

a=a+da

3

a=an

7

mu=mu+dmu

10

4

mu=mun

6

mu<=muk

нет

да

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

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

Dim m As Single, a As Single, an As Single, ak As Single, da As Single, mu As Single, mun As Single, muk As Single, dmu As Single, F As Single

Const g As Single = 9.81

m = Text1

an = Text2

ak = Text3

da = Text4

mun = Text5

muk = Text6

dmu = Text7

For a = an To ak Step da

For mu = mun To muk Step dmu

F = m * mu * g / (Cos(a) - mu * Sin(a))

Print "Сила F=" & F & " при угле a=" & a & " и коэффициенте трения mu=" & mu

Next

Next

End Sub

End Sub

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

9