4

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина «ИНФОРМАТИКА»

Отчёт

по лабораторной работе №4

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

ВАРИАНТ 6

Выполнил студент Факультет: Группа:		.
Проверила старший преподаватель		.

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

Задача 1.

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

   1. Словесное описание задачи.

Поезд массой m трогается с места и двигается по горизонтальному пути под действием постоянной силы тяги локомотива F. Коэффициент сопротивления движению К. Определить ускорение поезда и скорость, достигнутую им через t секунд после начала движения, если

причём F=4000H; k=0,005; t = 5c; g = 9,81м/c2;

2000 ≤ m ≤ 4000 т с шагом 250 т.

2. Состав входных и выходных данных.

Входные данные:

F – переменная вещественного типа.

k – переменная вещественного типа.

t – переменная вещественного типа.

g – переменная вещественного типа.

Mn – переменная вещественного типа.

Mk – переменная вещественного типа.

dM – переменная вещественного типа.

Выходные данные:

a – переменная вещественного типа.

V - переменная вещественного типа.

2. Математическая модель.

3. Схема алгоритма.

Начало

F, k, t, g, Mn, Mk, Md

M=Mn

M<=Mk

Нет

a=(F-kmg)/m

V=at

a, V, M

M=M+dM

Да

конец

4. Код программы.

Private Sub CommandButton1_Click()

Dim F As Single, k As Single, t As Single, Mn As Single, Mk As Single, dM As Single

Dim a As Single, V As Single, M As Single

Const g As Single = 9.81

Mn = InputBox("Введите значение Mn")

Mk = InputBox("Введите значение Mk")

dM = InputBox("Введите значение dM")

F = InputBox("Введите значение F")

k = InputBox("Введите значение k")

t = InputBox("Введите значение t")

M = Mn

Do While M <= Mk

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

V=a*t

Debug.Print “a=” & a & “V=” & V& “M=” & M

M=M + dM

Loop

End Sub

5. Откладка программы.

Задача 2.

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

   1. Словесное описание задачи.

Вычислить значение функции:

при изменении аргументов в интервалах x/ 0; 2,4 / c шагом 0,4 и y/1,0; 1,6/ c шагом 0,2. a = 2,97;

b = 1,56.

2. Состав входных и выходных данных.

Входные данные:

Xn – переменная вещественного типа.

Yn – переменная вещественного типа.

Xk – переменная вещественного типа.

Yk – переменная вещественного типа.

dX – переменная вещественного типа.

dY – переменная вещественного типа.

a – переменная вещественного типа.

b – переменная вещественного типа.

Выходные данные:

Z – переменная вещественного типа.

X – переменная вещественного типа.

Y – переменная вещественного типа.

2. Математическая модель.

3. Схема алгоритма.

начало

Хn, Xk, dX, Yn,Yk,dy, a, b

да

Y=Y+dY

Y<=Yn

Х<=Xn

Нет

Z, X, Y

Нет

X=X+dX

да

конец

4. Код программы.

Private Sub CommandButton1_Click()

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

a = InputBox("Введите a")

b = InputBox("Введите b")

xn = InputBox("Введите xn")

xk = InputBox("Введите xk")

dx = InputBox("Введите dx")

yn = InputBox("Введите yn")

yk = InputBox("Введите yk")

dy = InputBox("Введите dy")

For x = xn To xk Step dx

For y = yn To yk Step dy

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

Debug.Print "z=" & z & "x=" & x & "y=" & y

Next

Next

End Sub

5. Откладка программы.