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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 4

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

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

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

Группы

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

2004

Задание №1

1. Словесное описание задачи. Найти скорость поезда, при которой маятник длинной l , подвешенный в вагоне, раскачивается особенно сильно, если длина рельсов L=12,5 м; g=9,81 м/c² 40  l  80 cм с шагом 4 см

1. Определение состава входных и выходных данных. Входные данные: - длина рельсов L - начальная длина маятника ln - конечная длина маятника lk - шаг изменения длины маятника dl Выходные данные: - скорость поезда V

2. Математическое описание. 40  l  80, dl=4

1. Р

   0

   55

   66

   1

   Начало

   L, ln, lk, dl

   Конец

   

   l<=lk

   

   нет

   да

   V

   77

   

   96

   

   l=l+dl

   

   46

   l=ln

   

   V=L/(2*pi)/sqr(g/(l/100))

   87

   

   26

   pi=3,14

   

   36

   g=9,81

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

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

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

Dim L1 As Single, l As Single, ln As Single, lk As Single, dl As Single, V As Single

Const g As Single = 9.81, pi As Single = 3.14

L1 = Text1

ln = Text2

lk = Text3

dl = Text4

For l = ln To lk Step dl

V = L1 / (2 * pi) * Sqr(g / (l / 100))

Print "Скорость поезда V=" & V & "м/с при длине маятника l=" & l & "см"

Next

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

Задание №2

1. Словесное описание задачи. Вычислить значения функции a = (b^x + c^y)* sin(xy) при изменении x в пределах /1; 2/ c шагом 0,25 и y в пределах /4,2; 5,1/ c шагом 0,3.

2. Определение состава входных и выходных данных. Входные данные: - число a - число b - начальный х - xn - конечный х - xk - шаг изменения х - dx - начальная у - yn - конечная у - yk - шаг изменения у - dy Выходные данные: - значение функции a

3. Математическое описание. a = (b^x + c^y)* sin(xy) 1  х  2, dх=0,25 4,2  у  5,1, dу=0,3

2. Р

   0

   1

   Начало

   a, b, xn, xk, dx, yn, yk, dy

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

3

8

a=(b^x+c^y)*sin(x*y)

Конец

x<=xk

нет

да

a

7

10

x=x+dx

26

x=xn

6

y=y+dy

9

4

y=yn

55

y<=yk

нет

да

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

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

Dim b As Single, c As Single, x As Single, xn As Single, xk As Single, dx As Single, y As Single, yn As Single, yk As Single, dy As Single, a As Single

b = Text1

c = Text2

xn = Text3

xk = Text4

dx = Text5

yn = Text6

yk = Text7

dy = Text8

For x = xn To xk Step dx

For y = yn To yk Step dy

a = (b ^ x + c ^ y) * Sin(x * y)

Print "Функция a=" & a & " при x=" & x & " и y=" & y

Next

Next

End Sub

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

9