?.30

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

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












ОТЧЕТ
о выполненной лабораторной работе № 3
по дисциплине «Информатика»:
Структура «Цикл»
Вариант 30












Выполнил студент
Дневного отделения
Факультет ЭСУ
Группы











Санкт-Петербург
2004
Задание №1
Постановка задачи.
Словесное описание задачи. Груз массы m поднимается лебедкой с ускорением a . Найти работу, произведенную за первые t секунд от начала подъема: 13EMBED Equation.31415 Для отладки программы принять: 13EMBED Equation.31415т, 13EMBED Equation.31415м/с13EMBED Equation.31415; 13EMBED Equation.31415 с шагом 13EMBED Equation.31415с.
Определение состава входных и выходных данных. Входные данные: - масса груза m - ускорение a - начальное время tn - конечное время tk - шаг изменения времени dt Выходные данные: - работа A1
Математическое описание. 13EMBED Equation.31415 1 ( t ( 2, dt=0,1
Разработка схемы алгоритма.
Разработка визуальной части.
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. Постановка задачи.
Словесное описание задачи. Скорость поезда между двумя пунктами V1, средняя скорость на всём пути V2, причём остановки занимают время tост. Найти расстояние L между этими пунктами и время в пути. 13EMBED Equation.31415; 13EMBED Equation.
·31415 где tост = 1ч; 80 (V1 ( 120км/ч с шагом 10 км/ч; 50 ( V2 ( 70 км/ч с шагом 5 км/ч.
Определение состава входных и выходных данных. Входные данные: - время остановки Tos - начальная скорость V1n - конечная скорость V1k - шаг изменения скорости dV1 - начальная скорость V2n - конечная скорость V2k - шаг изменения скорости dV2 Выходные данные: - расстояние L - время T
Математическое описание. 13 EMBED Equation.3 1415 80 ( V1 ( 120, dV1=10 50 ( V2 ( 70, dV2=5

Разработка схемы алгоритма.
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 Отладочный пример.

13PAGE 15


13PAGE 14915



66

V1=V1n

нет

5

V2<=V2k

7

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

t=tn

45

нет

26

3

V2=V2n

55

A, t

Конец

6

V1=V1+dV1

11

8

L, T, V1, V2

да

да

0

t<=tk

T=L/V2

m, a, tn, tk, dt

4

Начало

0

1

да

7

36

10

8

V2=V2+dV2

t=t+dt

нет

V1<=V1k

Конец

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

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

Начало

1

9



g=9,81

26





Root EntryEquation NativeEquation NativeEquation NativeEquation NativeEquation Native

Приложенные файлы

  • doc 293937
    Размер файла: 174 kB Загрузок: 0

Добавить комментарий