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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 28

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Паровой молот массой m₁ падает с высоты h на стальную болванку массой m₂. Сколько раз он должен упасть, чтобы температура болванки поднялась на dt⁰C? На нагрев болванки идет 50% теплоты, полученной при ударах. Удельная теплоемкость стали С=460 Дж/кгН. где g=9,81 м/с², h=2,5 м, dt=40⁰C, m₂=220 кг, 6  m₁  10 т с шагом 0,5 т.

2. Определение состава входных и выходных данных. Входные данные: - высота падения h - масса болванки m2 - изменение температуры болванки dt - начальная масса молота m1n - конечная масса молота m1k - шаг изменения массы молота dm1 Выходные данные: - количество падений молоты n

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

1. Р

   0

   5

   6

   1

   Начало

   h, m2, dt, m1n, m1k, dm1

   Конец

   

   m1<=m1k

   

   нет

   да

   n

   7

   

   9

   

   m1=m1+dm1

   

   4

   m1=m1n

   

   n=2C*m2*dt/(m1*g*h)

   8

   

   26

   C=460

   

   36

   g=9,81

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

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

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

Dim h As Single, m2 As Single, dt As Single, m1 As Single, m1n As Single, m1k As Single, dm1 As Single, n As Single

Const C As Integer = 460, g As Single = 9.81

h = Text1

m2 = Text2

dt = Text3

m1n = Text4

m1k = Text5

dm1 = Text6

For m1 = m1n To m1k Step dm1

n = 2 * C * m2 / 1000 * dt / (m1 * g * h)

Print "Количество ударов молота n=" & n & " при массе молота m1=" & m1 & "т"

Next

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

Задание №2

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

1. Словесное описание задачи. Мимо наблюдателя, стоящего на платформе, проходит поезд. Первый вагон прошел мимо наблюдателя за время t₁, второй – за время t₂. Найти скорость поезда в начале и в конце наблюдения, а также ускорение поезда, считая движение поезда равнопеременным. Длина каждого вагона l=12 м. где l=12 м; с шагом 0,25 с; c шагом 0,1 c.

2. Определение состава входных и выходных данных. Входные данные: - длина вагона l - начальное время t1n - конечное время t1k - шаг изменения времени dt1 - начальное время t2n - конечное время t2k - шаг изменения времени dt2 Выходные данные: - скорость поезда в начале наблюдения Vn - скорость поезда в конце наблюдения Vk - ускорение поезда a

3. Математическое описание. 0,5  t₁  1,5, d t₁=0,25 0,8  t₂  1,2, d t₂=0,1

2. Р

   0

   3

   10

   1

   Начало

   l, t1n, t1k, dt1, t2n, t2k, dt2

   Vn=l(1/t1-1/t2+2/(t1+t2)

   Конец

   

   t1<=t1k

   

   нет

   да

   Vn, Vk, a

   9

   

   12

   

   t1=t1+dt1

   

   26

   t1=t1n

   

   66

   t2=t2+dt2

   11

   

   4

   t2=t2n

   55

   

   t2<=t2k

   

   нет

   да

   

   Vk=4l/(t1+t2)-Vn

   

   7

   

   a=(Vk-Vn)/(t1+t2)

   

   8

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

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

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

Dim l As Single, t1 As Single, t1n As Single, t1k As Single, dt1 As Single, t2 As Single, t2n As Single, t2k As Single, dt2 As Single, Vn As Single, Vk As Single, a As Single

l = Text1

t1n = Text2

t1k = Text3

dt1 = Text4

t2n = Text5

t2k = Text6

dt2 = Text7

For t1 = t1n To t1k Step dt1

For t2 = t2n To t2k Step dt2

Vn = l * (1 / t1 - 1 / t2 + 2 / (t1 + t2))

Vk = 4 * l / (t1 + t2) - Vn

a = (Vk - Vn) / (t1 + t2)

Print "Скорость в начале Vn=" & Vn & ", скорость в конце Vk=" & Vk & " и ускорение a=" & a & " при времени t1=" & t1 & " и t2=" & t2

Next

Next

End Sub

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

9