Структура цикл / 8
.docx
ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №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
начало
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, изменяющегося в пределах x1≤x≤xk с шагом Δx, и y, изменяющегося в пределах y1≤y≤yk с шагом Δy; в) функции A с точность ю до сотых для соответствующих x и y.
При решении контрольного примера принять:
x1=1; xk=1,5; Δx=0,25; y1=3; yk=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=(ex+2π)sin(xy)
7
2
x1, dx, xk y1,
dy, yk
1
начало
да
y≤yk
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 Выполнение проекта: