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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 13

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

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

Факультет

ЭСУ

Группы ЭУС-402

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

2004

Задание №1

1. Словесное описание задачи. Вагон массой m подходит к неподвижной платформе со скоростью V₁ и ударяет ее , после чего платформа получает скорость V. Скорость вагона после удара уменьшилась до V₂. Вычислить значение массы платформы для ряда значений V: 0,1м/с с шагом 0,25 м/с

1. Определение состава входных и выходных данных. Входные данные: - масса вагона m - начальная скорость вагона V1 - конечная скорость вагона V2 - начальная скорость платформы Vp1 - конечная скорость платформы Vp2 - шаг изменения скорости платформы h Выходные данные: - масса платформы mp

2. Математическое описание.

1. Р

   1

   45

   56

   2

   Начало

   m,V1, V2, Vp1, Vp2, h

   Конец

   

   i<=Vp2

   

   нет

   да

   mp

   67

   

   86

   

   i=i+h

   

   36

   i=Vp1

   

   mp=(V1-V2)/i*m

   77

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

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

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

Dim m As Single, V1 As Single, V2 As Single, Vp1 As Single, Vp2 As Single, h As Single, mp As Single, i As Single

m = Text1

V1 = Text2

V2 = Text3

Vp1 = Text4

Vp2 = Text5

h = Text6

For i = Vp1 To Vp2 Step h

mp = (V1 - V2) / i * m

Print "Если скорость платформы равна " & i & "м/с, то масса этой платформы равна " & mp

Next

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

Задание №2

1. Словесное описание задачи. Найти расстояние между двумя точками на плоскости, положение которых задано их координатами X₁,Y₁ и X_2,Y₂ по формуле:

2. Определение состава входных и выходных данных. Входные данные: - начальное X1 - конечное Х1 - шаг изменения Х1 - начальное Х2 - конечное Х2 - шаг изменения Х2 - Y1 Выходные данные: - расстояние между точками Z

3. Математическое описание.

1. Р

   1

   55

   2

   Начало

   X1n, X1k, h1, X2k, X2n, h2, Y1

   Конец

   

   i<=X2k

   

   нет

   да

   

   126

   

   i=i+h

   

   36

   i=X1n

   

   117

   

   46

   j=X2n

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

106

Y2=(sin(j))^2

i, j, F

97

76

j=j+h

65

j<=X2k

нет

да

Z=sqr((i+j)^2+(Y1+Y2)^2)

86

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

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

Dim X1n As Single, X1k As Single, h1 As Single, X2n As Single, X2k As Single, h2 As Single, Y1 As Single, i As Single, j As Single, Y2 As Single, Z As Single

X1n = Text1

X1k = Text2

h1 = Text3

X2n = Text4

X2k = Text5

h2 = Text6

Y1 = Text7

For i = X1n To X1k Step h1

For j = X2n To X2k Step h2

Y2 = (Sin(j)) ^ 2

Z = Sqr((i + j) ^ 2 + (Y1 + Y2) ^ 2)

Print "Если x1=" & i & ", y1=" & Y1 & ", x2=" & j & ", y2=" & Y2 & ", то z=" & Z

Next

Next

End Sub

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

8