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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 24

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. С расстояния d фотографируют поезд, движущийся со скоростью V. Определить для разных объективов время t экспозиции, за которое изображение сместилось бы не более чем S=0,01 мм. Фокусное расстояние объектива F. Отладку программы выполнить для контрольного примера: V = 72 км/ч; d=100 м; F=20 мм, 35 мм, 50 мм, 65 мм, 80 мм.

2. Определение состава входных и выходных данных. Входные данные: - скорость V - расстояние d - смещение S - начальное фокусное расстояние Fn - конечное фокусное расстояние Fk - шаг изменения фокусного расстояния dF Выходные данные: - время t

3. Математическое описание. 2080, dF=15

1. Р

   0

   3

   4

   1

   Начало

   V, d, S, Fn, Fk, dF

   Конец

   

   F<=Fk

   

   нет

   да

   V0, a

   5

   

   7

   

   t=t+dt

   

   2

   F=Fn

   

   t=S/1000*(d-F/1000)*(F/1000*V)

   6

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

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

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

Dim V As Single, d As Single, S As Single, F As Single, Fn As Single, Fk As Single, dF As Single, t As Single

V = Text1

d = Text2

S = Text3

Fn = Text4

Fk = Text5

dF = Text6

For F = Fn To Fk Step dF

t = S / 1000 * (d - F / 1000) / (F / 1000 * V)

Print "Время t=" & t & " при фокусном расстояние F=" & F

Next

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

Задание №2

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

1. Словесное описание задачи. Вагон массой m₁, движущийся по горизонтальному пути со скоростью V₁, автоматически на ходу сцепляется с неподвижным вагоном массой m₂. С какой скоростью движутся вагоны после сцепления? где v₁ = 1,5 м/с; 10  m₁  40 т с шагом 10 т. 10  m₂  40 т с шагом 10 т.

2. Определение состава входных и выходных данных. Входные данные: - скорость V1 - начальная масса 1 вагона m1n - конечная масса 1 вагона m1k - шаг изменения массы 1 вагона dm1 - начальная масса 2 вагона m2n - конечная масса 2 вагона m2k - шаг изменения массы 2 вагона dm2 Выходные данные: - скорость V

3. Математическое описание. 10   40, d=10 10   40, d=10

2. Р

   0

   3

   8

   1

   Начало

   V1, m1n, m1k, dm1, m2, m2k, dm1

   V=m1*V1/(m1+m2)

   Конец

   

   m1<=m1k

   

   нет

   да

   V

   7

   

   10

   

   m1=m1+dm1

   

   26

   m1=m1n

   

   66

   m2=m2+dm2

   9

   

   4

   m2=m2n

   55

   

   m2<=m2k

   

   нет

   да

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

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

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

Dim V1 As Single, m1 As Single, m1n As Single, m1k As Single, dm1 As Single, m2 As Single, m2n As Single, m2k As Single, dm2 As Single, V As Single

V1 = Text1

m1n = Text2

m1k = Text3

dm1 = Text4

m2n = Text5

m2k = Text6

dm2 = Text7

For m1 = m1n To m1k Step dm1

For m2 = m2n To m2k Step dm2

V = V1 * m1 / (m1 + m2)

Print "Скорость V=" & V & " при массе 1 вагона m1=" & m1 & " и массе 2 вагона m2=" & m2

Next

Next

End Sub

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

9