Структура цикл / 8

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

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

ВАРИАНТ 8

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

Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V, в зависимости от радиуса r?

где V=60 км/ч; 200≤r≤1000 м с шагом 100 м.

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

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

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

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

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

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

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

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

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

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

Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V, в зависимости от радиуса r?

где V=60 км/ч; 200≤r≤1000 м с шагом 100 м.

1

начало

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

2

V, r1, rk, dr

3

r=r1

7

r=r+dr

6

5

a, r

4

r≤rk

да

нет

Конец

8

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

Private Sub Command1_Click() Dim a As Single, V As Single, r As Single, r1 As Single, dr As Single, rk As Single V = InputBox("V=") Print "V=" & V r1 = InputBox("Введите начальный радиус") dr = InputBox("Введите шаг радиуса") rk = InputBox("Введите конечный радиус") For r = r1 To rk Step dr a = V ^ 2 / r Print "a=" & a & " при r=" & r Next End Sub

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

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

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

где постоянная π=3,14; переменные: y – целого типа; x – вещественного типа.

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

При решении контрольного примера принять:

x₁=1; x_k=1,5; Δx=0,25; y₁=3; y_k=15; Δy=6.

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

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

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

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

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

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

y1 – перменная целого типа,

dy – перменная целого типа,

yk – перменная целого типа.

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

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

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

где постоянная π=3,14.

Конец

11

3

y=y+dy

x=x+dx

x, y, A

8

A=(e^x+2π)sin(xy)

7

2

x1, dx, xk

y1, dy, yk

1

начало

да

y≤yk

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

5

нет

x=x1

5

y=y1

да

x≤xk

4

нет

6

нет

100

9

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

Private Sub Command1_Click() Dim x As Single, x1 As Single, dx As Single, xk As Single, y As Integer, y1 As Integer, dy As Integer, yk As Integer, A As Single Const Pi As Single = 3.14 x1 = InputBox("Введите x начальное") dx = InputBox("Введите шаг x") xk = InputBox("Введите x конечное") y1 = InputBox("Введите y начальное ") dy = InputBox("Введите шаг y") yk = InputBox("Введите y конечное ") Print "x1=" & x1 & " dx=" & dx & " xk=" & xk & " y1=" & y1 & " dy=" & dy & " yk=" & yk For x = x1 To xk Step dx For y = y1 To yk Step dy A = (Exp(x) + 2 * Pi) * Sin(x * y) Print "A=" & Format(A, "0.00") & " при x=" & x & " è y=" & y Next Next End Sub

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