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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 9

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Поезд, двигаясь под уклон, прошел за t секунд путь S и развил скорость V. Как изменяется ускорение поезда и какова была его скорость в начале уклона в зависимости от времени t? ; где S=340м; V =19м/c; с шагом 1с.

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

3. Математическое описание. 1525, dt=1

1. Р

   0

   3

   4

   1

   Начало

   S, V, tn, tk, dt

   Конец

   

   t<=tk

   

   нет

   да

   V0, a

   6

   

   8

   

   t=t+dt

   

   2

   t=tn

   

   V0=2*S/t-V

   7

   5

   

   a=(V-V0)/t

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

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

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

Dim S As Single, V As Single, t As Single, tn As Single, tk As Single, dt As Single, V0 As Single, a As Single

S = Text1

V = Text2

tn = Text3

tk = Text4

dt = Text5

For t = tn To tk Step dt

V0 = 2 * S / t - V

a = (V - V0) / t

Print "Начальная скорость V0=" & V0 & " и ускорение a=" & a & " при времени t=" & t

Next

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

Задание №2

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

1. Словесное описание задачи. Объем усеченной пирамиды вычисляется по формуле: где S₁ и S₂ – площади оснований; H - высота. S₁= 0,25м; с шагом 0,05м; с шагом 0,5м.

2. Определение состава входных и выходных данных. Входные данные: - площадь S1 - начальная площадь S2n - конечная площадь S2k - шаг изменения площади dS2 - начальная высота Hn - конечная высота Hk - шаг изменения высоты dH Выходные данные: - объем V

3. Математическое описание. 0   0,25, d=0,05 0,5  H  2,0, dH=0,5

2. Р

   0

   45

   1

   Начало

   S1, S2n, S2k, dS2, Hn, Hk, dH

   Конец

   

   S2<=S2k

   

   нет

   да

   

   10

   

   S2=S2+dS2

   

   26

   S2=S2n

   

   9

   

   36

   H=Hn

   H<=Hk

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

8

V=1/3*H*(S1+sqr(S1*S2)+S2)

V

7

66

H=H+dH

55

нет

да

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

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

Dim S1 As Single, S2 As Single, S2n As Single, S2k As Single, dS2 As Single, H As Single, Hn As Single, Hk As Single, dH As Single, V As Single

S1 = Text1

S2n = Text2

S2k = Text3

dS2 = Text4

Hn = Text5

Hk = Text6

dH = Text7

For S2 = S2n To S2k Step dS2

For H = Hn To Hk Step dH

V = 1 / 3 * H * (S1 + Sqr(S1 * S2) + S2)

Print "Объем V=" & V & " при площади S2=" & S2 & " и высоте H=" & H

Next

Next

End Sub

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

9