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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 5

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Участок пути длиной S=1,0 км локомотив проходит с постоянным ускорением а. За какое время этот путь пройден и какова скорость в конце данного участка пути, если 0,2  a  1,2 м/c² с шагом 0,2 м/c²?

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

3. Математическое описание. 0,2  a  1,2, da=0,2

1. Р

   0

   3

   4

   1

   Начало

   S, an, ak, da

   Конец

   

   a<=ak

   

   нет

   да

   t, V

   6

   

   8

   

   a=a+da

   

   26

   a=an

   

   t=sqr(2*S/a)

   7

   5

   

   V=a*t

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

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

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

Dim S As Single, a As Single, an As Single, ak As Single, da As Single, t As Single, V As Single

S = Text1

an = Text2

ak = Text3

da = Text4

For a = an To ak Step da

t = Sqr(2 * S * 1000 / a)

V = a * t

Print "Время t=" & t & " и скорость V=" & V & " при ускорение a=" & a

Next

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

Задание №2 1. Постановка задачи.

1. Словесное описание задачи. Вычислить расстояние между неподвижной и движущейся точками в косоугольной системе координат по формуле: где х₁=0; y ₂=0; 1  x₂ 2 с шагом 0,25; 1,5 y₂  6,0 с шагом 0,75.

2. Определение состава входных и выходных данных. Входные данные: - координата X1 - координата Y1 - угол W - начальная координата X2n - конечная координата X2k - шаг изменения координаты dX2 - начальная координата Y2n - конечная координата Y2k - шаг изменения координаты dY2 Выходные данные: - расстояние d

3. Математическое описание. 1  х₂  2, dх₂=0,25 1,5  у₂  6, dу₂=0,75

2. Р

   0

   1

   Начало

   X1, Y1, W, X2n, X2k, dX2, Y2n, Y2k, dY2

   

   Y2<=Y2k

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

4

8

d=sqr((X2-X1)^2+(Y2-Y1)^2+2*(X2-X1)*(Y2-Y1)*cos(W)

Конец

нет

да

d

7

10

Y2=Y2+dY2

26

Y2=Y2n

6

X2=X2+dX2

9

3

X2=X2n

55

X2<=X2k

нет

да

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

Dim X1 As Single, Y1 As Single, W As Single, X2 As Single, X2n As Single, X2k As Single, dX2 As Single, Y2 As Single, Y2n As Single, Y2k As Single, dY2 As Single, d As Single

X1 = Text1

Y1 = Text2

W = Text3

X2n = Text4

X2k = Text5

dX2 = Text6

Y2n = Text7

Y2k = Text8

dY2 = Text9

For Y2 = Y2n To Y2k Step dY2

For X2 = X2n To X2k Step dX2

d = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2 + 2 * (X2 - X1) * (Y2 - Y1) * Cos(W))

Print "Расстояние d=" & d & ", при Y2=" & Y2 & " и X2=" & X2

Next

Next

End Sub

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

9