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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 19

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

Электротехнического

Факультета

Группы НК-413

Прохоров Д.В.

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

2004

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

1. Словесное описание задачи. Координаты точки при переходе от общих осей координат к другим, наклоненным к первым под углом L, определяются по формулам: x₁=xCosL+ySinL; y₁=-xSinL+yCosL. Как будут меняться координаты x₁ и y₁ для точки x=2,7; y=3,4,если

1. Определение состава входных и выходных данных. Входные данные: - координата x - координата y - начальный угол Ln - конечный угол Lk - шаг изменения угла dL Выходные данные: - координата x1 - координата y1

2. Математическое описание. 0  L  90, dL=10

1. Р

   0

   3

   4

   1

   Начало

   x, y, Ln, Lk, dL

   y1=-x*sin(L)+y*cos(L)

   Конец

   

   L<=Lk

   

   нет

   да

   x1, y1

   6

   

   8

   

   L=L+dL

   

   26

   L=Ln

   

   5

   x1=x*cos(L)+y*sin(L)

   7

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

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

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

Dim x As Single, y As Single, L As Single, Ln As Single, Lk As Single, dL As Single, x1 As Single, y1 As Single

x = Text1

y = Text2

Ln = Text3

Lk = Text4

dL = Text5

For L = Ln To Lk Step dL

x1 = x * Cos(3.14 * L / 180) + y * Sin(3.14 * L / 180)

y1 = -x * Sin(3.14 * L / 180) + y * Cos(3.14 * L / 180)

Print "Координата x1=" & x1 & ", y1=" & y1 & " при угле L=" & L

Next

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

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

1. Словесное описание задачи. Два поезда прошли одинаковый путь за одно и тоже время. Однако один поезд, трогаясь с места, прошел весь путь равноускоренно с ускорением а, а другой поезд половину пути шел со скоростью V₁ , а другую - со скоростью V₂. Найти путь, пройденный поездами. где V₁=20 км/ч; км/ч с шагом 10 км/ч; км/ч² с шагом 1 км/ч².

2. Определение состава входных и выходных данных. Входные данные: - скорость V1 - начальная скорость V2n - конечная скорость V2k - шаг изменения скорости dV2 - начальное ускорение an - конечное ускорение ak - шаг изменения ускорения da Выходные данные: - путь, пройденный поездами l

3. Математическое описание. 55  V₂  75, dV2=10 2  a  6, da=1

2. Р

   0

   3

   8

   1

   Начало

   V1, V2n, V2k, dV2, an, ak, da

   l=(8*V1^2*V2^2)/(a*(V1+V2))

   Конец

   

   a<=ak

   

   нет

   да

   l

   7

   

   106

   

   a=a+da

   

   6

   V2=V2+dV2

   9

   

   46

   V2=V2n

   5

   

   V2<=V2k

   

   нет

   да

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

2

a=an

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

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

Dim V1 As Single, V2 As Single, V2n As Single, V2k As Single, dV2 As Single

Dim a As Single, an As Single, ak As Single, da As Single, l As Single

V1 = Text1

V2n = Text2

V2k = Text3

dV2 = Text4

an = Text5

ak = Text6

da = Text7

For a = an To ak Step da

For V2 = V2n To V2k Step dV2

l = (8 * V1 ^ 2 * V2 ^ 2) / (a * (V1 + V2))

Print "Расстояние l=" & l & ", при ускорении a=" & a & " и скорости V2=" & V2

Next

Next

End Sub

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

9