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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 30

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Груз массы m поднимается лебедкой с ускорением a . Найти работу, произведенную за первые t секунд от начала подъема: Для отладки программы принять: т, м/с; с шагом с.

2. Определение состава входных и выходных данных. Входные данные: - масса груза m - ускорение a - начальное время tn - конечное время tk - шаг изменения времени dt Выходные данные: - работа A1

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

1. Р

   0

   4

   5

   1

   Начало

   m, a, tn, tk, dt

   Конец

   

   t<=tk

   

   нет

   да

   A, t

   6

   

   8

   

   t=t+dt

   

   3

   t=tn

   

   A1=m*(g+a)*a*t^2/2

   7

   

   26

   g=9,81

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

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

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

Dim m As Single, a As Single, t As Single, tn As Single, tk As Single, dt As Single, A1 As Single

Const g As Single = 9.81

m = Text1

a = Text2

tn = Text3

tk = Text4

dt = Text5

For t = tn To tk Step dt

A1 = m * (g + a) * a * t ^ 2 / 2

Print "Работа A1=" & A1 & " при времени t=" & t

Next

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

Задание №2

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

1. Словесное описание задачи. Скорость поезда между двумя пунктами V₁, средняя скорость на всём пути V₂, причём остановки занимают время t_ост. Найти расстояние L между этими пунктами и время в пути. ; где tост = 1ч; 80 V1  120км/ч с шагом 10 км/ч; 50  V2  70 км/ч с шагом 5 км/ч.

2. Определение состава входных и выходных данных. Входные данные: - время остановки Tos - начальная скорость V1n - конечная скорость V1k - шаг изменения скорости dV1 - начальная скорость V2n - конечная скорость V2k - шаг изменения скорости dV2 Выходные данные: - расстояние L - время T

3. Математическое описание. 80  V1  120, dV1=10 50  V2  70, dV2=5

2. Р

   0

   45

   1

   Начало

   Tos, V1n, V1k, dV1, V2n, V2k, dV2

   Конец

   

   V1<=V1k

   

   нет

   да

   

   11

   

   V1=V1+dV1

   

   26

   V1=V1n

   

   10

   

   36

   V2=V2n

   V2<=V2k

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

9

L=V1*V2*Tos/(V1-V2)

L, T, V1, V2

8

66

V2=V2+dV2

55

нет

да

T=L/V2

7

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

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

Dim Tos As Single, V1 As Single, V1n As Single, V1k As Single, dV1 As Single, V2 As Single, V2n As Single, V2k As Single, dV2 As Single, L As Single, T As Single

Tos = Text1

V1n = Text2

V1k = Text3

dV1 = Text4

V2n = Text5

V2k = Text6

dV2 = Text7

For V1 = V1n To V1k Step dV1

For V2 = V2n To V2k Step dV2

L = V1 * V2 * Tos / (V1 - V2)

T = L / V2

Print "Расстояние L=" & L & " и время T=" & T & " при скорости V1=" & V1 & " и скорости V2=" & V2

Next

Next

End Sub

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

9