Структура цикл / 5 (2)

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №4

«СТРУКТУРА ЦИКЛ»

ВАРИАНТ 5

1.1 Словесное описание задачи:

Участок пути длиной S=1,0 км локомотив проходит с постоянным ускорением a. За какое время этот путь пройден и какова скорость в конце данного участка пути, если 0,2≤a≤1,2 м/с² с шагом 0,2 м/с²?

1.2 Описание постановки задачи:

Состав входных и выходных данных:

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

a1 – перменная вещественного типа,

ak – переменная вещественного типа,

da – переменная вещественного типа,

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

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

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

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

1.3 Математическое описание задачи:

За какое время этот путь пройден и какова скорость в конце данного участка пути, если 0,2≤a≤1,2 м/с² с шагом 0,2 м/с²?

1

1.4 Схема алгоритма решения задачи:

Начало

2

S, a1, ak, da

3

a=a1

4

a≤ak

5

да

8

нет

t

V_t

Конец

6

a, t, Vt

7

a=a+da

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim s As Single, a1 As Single, ak As Single, da As Single, t As Single, vt As Single, a As Single

s = InputBox("S=")

a1 = InputBox("a1=")

ak = InputBox("ak=")

da = InputBox("da=")

Print "S=" & s & " a1=" & a1 & " ak=" & ak & " da=" & da

For a = a1 To ak Step da

t = Sqr(2 * s / a)

vt = a * t

Print "a=" & a & " t=" & t & " vt=" & vt

Next

End Sub

1.6 Выполнение проекта:

2.1 Словесное описание задачи:

Вычислить значения функции по формуле:

где: постоянные целого типа a=2 и b=4; x, y – переменные вещественного типа.

На печать выдать значения:

а) входных данных;

б) аргументов x, изменяющегося в пределах x₁≤x≤x_k с шагом Δx, и y, изменяющегося в пределах y₁≤y≤y_k с шагом Δy; в) функции z с точность до сотых для соответствующих x и y.

При решении контрольного примера переменным присвоить значения:

x₁=0; x_k=0,4; Δx=0,2; y₁=13; y_k=19; Δy=3.

2.2 Описание постановки задачи

Состав входных и выходных данных:

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

x1 – переменная вещественного типа,

xk – переменная вещественного типа,

dx – переменная вещественного типа,

y1 – переменная вещественного типа,

yk – переменная вещественного типа,

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

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

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

2.3 Математическое описание задачи:

где постоянные целого типа a=2 и b=4.

2.4 Схема алгоритма решения задачи:

Начало

x=x1

x≤xk

Конец

да

нет

1

4

2

x1, xk, dx

y1, yk, dy

3

11

5

y=y1

x≤xk

да

6

7

нет

z=asinx+bcosy+1

10

8

x=x+dx

x, y, z

9

y=y+dy

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim z As Single, x As Single, x1 As Single, xk As Single, dx As Single, y As Single, y1 As Single, yk As Single, dy As Single

Const a As Integer = 2, b As Integer = 4

x1 = InputBox("x1=")

xk = InputBox("xk=")

dx = InputBox("dx=")

y1 = InputBox("y1=")

yk = InputBox("yk=")

dy = InputBox("dy=")

Print "x1=" & x1 & " xk=" & xk & " dx=" & dx & " y1=" & y1 & " yk=" & yk & " dy=" & dy

For x = x1 To xk Step dx

For y = y1 To yk Step dy

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

Print "x=" & x & " y=" & y & " z=" & Format(z, "0.00")

Next

Next

End Sub

2.6 Выполнение проекта: