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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 6

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. Поезд массой m трогается с места и двигается по горизонтальному пути под действием постоянной силы тяги локомотива F. Коэффициент сопротивления движению К. Определить ускорение поезда и скорость, достигнутую им через t секунд после начала движения, если где F=4000H; k=0,005; t=5c; g=9,81м/c²; 2000  m  4000 т с шагом 250 т.

2. Определение состава входных и выходных данных. Входные данные: - сила тяги F - коэффициент сопротивления K - время t - начальная масса mn - конечная масса mk - шаг изменения массы dm Выходные данные: - ускорение a - скорость V

3. Математическое описание. 2000  m  4000, dm=250

1. Р

   0

   4

   5

   1

   Начало

   F, K, t, mn, mk, dm

   Конец

   

   m<=mk

   

   нет

   да

   a, V

   7

   

   9

   

   m=m+dm

   

   3

   m=mn

   

   a=(F-K*m*g)/m

   8

   

   26

   g=9,81

   

   6

   

   V=a*t

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

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

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

Dim F As Single, K As Single, t As Single, m As Single, mn As Single, mk As Single, dm As Single, a As Single, V As Single

Const g As Single = 9.81

F = Text1

K = Text2

t = Text3

mn = Text4

mk = Text5

dm = Text6

For m = mn To mk Step dm

a = (F - K * m * g) / m

V = a * t

Print "Ускорение a=" & a & " и скорость V=" & V & " при массе m=" & m

Next

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

Задание №2

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

1. Словесное описание задачи. Вычислить значение функции: при изменении аргументов в интервалах x / 0;1,6 / c шагом 0,8 и y / 1,0; 1,6 / c шагом 0,2; a = 2,97; b = 4,56.

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

3. Математическое описание. 0  x  1,6, dx=0,8 1  y  1,6, dy=0,2

2. Р

   0

   45

   1

   Начало

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

   Конец

   

   y<=yk

   

   нет

   да

   

   10

   

   y=y+dy

   

   26

   y=yn

   

   9

   

   36

   x=xn

   x<=xk

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

8

z=sqr(a*sin(x)+b*cos(y)+1)

z

7

66

x=x+dx

55

нет

да

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

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

Dim a As Single, b 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, z As Single

a = Text1

b = Text2

xn = Text3

xk = Text4

dx = Text5

yn = Text6

yk = Text7

dy = Text8

For y = yn To yk Step dy

For x = xn To xk Step dx

z = Sqr(a * Sin(x) + b * Cos(y) + 1)

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

Next

Next

End Sub

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

9