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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 15

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Сколько вагонов может везти электровоз в гору с уклоном L , если коэффициент максимального трения покоя равен k₂ ; коэффициент трения качения k₁. Вес электровоза в 4 раза больше вагона. Проанализировать изменение функции для значений если k₁=0,001; k₂=0,1.

1. Определение состава входных и выходных данных. Входные данные: - коэффициент трения качения k1 - коэффициент трения покоя k2 - начальный уклон Ln - конечный уклон Lk - шаг изменения уклона dL Выходные данные: - число вагонов N

2. Математическое описание. dL=

1. Р

   0

   35

   46

   1

   Начало

   k1, k2, Ln, Lk, dL

   Конец

   

   L<=Lk

   

   нет

   да

   N

   5

   

   7

   

   L=L+dL

   

   26

   L=Ln

   

   N=4 * ((k2 - k1) * Cos(3.14 * L / 180) - Sin(3.14 * L / 180)) / (Sin(3.14 * L / 180) + k1 * Cos(3.14 * L / 180))

   6

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

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

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

Dim k1 As Single, k2 As Single, L As Single, Ln As Single, Lk As Single, dL As Single, N As Single

k1 = Text1

k2 = Text2

Ln = Text3

Lk = Text4

dL = Text5

For L = Ln To Lk Step dL

N = 4 * ((k2 - k1) * Cos(3.14 * L / 180) - Sin(3.14 * L / 180)) / (Sin(3.14 * L / 180) + k1 * Cos(3.14 * L / 180))

Print Число вагонов N=" & N & " при уклоне L=" & L

Next

End Sub

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

Задание №2

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

1. Словесное описание задачи. Напечатать таблицу объема шарового сегмента: для следующих данных:

2. Определение состава входных и выходных данных. Входные данные: - начальная высота hk - конечная высота hn - шаг изменения высоты dh - начальный радиус rn - конечный радиус rk - шаг изменения радиуса dr Выходные данные: - объем V

3. Математическое описание. 1h9, dh=1 5r10, dr=2,5

2. Р

   0

   1

   Начало

   hn, hk, dh, rn, rk, dr

   

   10

   

   26

   pi=3,14

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

4

9

V=1/6*pi*h*(h^2+3*r^2)

Конец

h<=hk

нет

да

V

8

11

h=h+dh

36

h=hn

7

r=r+dr

5

r=rn

6

r<=rk

нет

да

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

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

Dim h As Single, hn As Single, hk As Single, dh As Single, r As Single, rn As Single, rk As Single, dr As Single, V As Single

Const pi As Single = 3.14

hn = Text1

hk = Text2

dh = Text3

rn = Text4

rk = Text5

dr = Text6

For h = hn To hk Step dh

For r = rn To rk Step dr

V = 1 / 6 * pi * h * (h ^ 2 + 3 * r ^ 2)

Print "Объем сегмента V=" & V & " при высоте h=" & h & " и радиусе r=" & r

Next

Next

End Sub

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

8