-
Приложение 4 структура цикл
1. Постановка задачи № 1
1.1 Словесное описание задачи
Электропоезд в момент включения тока имел скорость v. Какое время и расстояние пройдет он до полной остановки по горизонтальному пути при разных значениях скорости? Коэффициент сопротивления движения .
где
= 0,006; g = 9,81м/с2;
5
10
м/с с шагом 0,5
м/с.
1.2 Описание постановки задачи
Выходные данные:
T – переменная вещественного типа.
L – переменная вещественного типа.
Определение состава входных данных.
Входные данные:
Vn – переменная целого типа,
Vk – переменная целого типа,
dV – переменная вещественного типа,
Nu – переменная вещественного типа,
g – переменная вещественного типа
1.3 Разработка математической модели
Какое время и расстояние пройдет он до полной остановки по горизонтальному пути при разных значениях скорости?
где = 0,006; g = 9,81м/с2;
5
10
м/с с шагом 0,5
м/с
1.4 Составление схемы алгоритма
Начало
2
,
g, Vn,
Vk, dV , L
3
V
= Vn
5
4
Да
V
<= Vk Vn
Нет
8
9
6
7
V,
L, T
8
V
= V+dV
9
Конец
4
5
6
7
8
9
-
Программный код
Private Sub Command1_Click()
Const g As Single = 9.81
Const Nu As Single = 0.006
Dim Vn As Integer, Vk As Integer, dV As Single
Dim T As Single, L As Single
Dim W1 As String , W2 As String , Data As String
Vn = InputBox("Введите значение целого типа Vn")
Vk = InputBox("Введите значение целого типа Vk")
dV = InputBox("Введите значение вещественного типа dV")
W1 = InputBox("Укажите учебную группу")
W2 = InputBox("Укажите инициалы имени и отчества, фамилию")
Data = InputBox("Укажите дату тремя парами арабских цифр")
For V = Vn To Vk Step dV
T = V / (Nu * g)
L = V ^ 2 / (2 * Nu * g)
Print " V = " & Format(V, "00.0") & " T = " & Format(T, "000.0");
Print " L = " & Format(L, "0000.0")
Next V
Print: Print "Исполнил студент "; W1; Tab(44); W2
Print Data
End Sub
-
Выполнение проекта
2. Постановка задачи №2
2.1 Словесное описание задачи
Вычислить значения функции по формуле:
где
постоянные
и
;
переменные:
-
целого типа;
-
вещественного типа.
На печать выдать значения:
а) входных данных;
б)
аргументов
,
изменяющегося в пределах
с
шагом
,
и
,
изменяющегося в пределах
с
шагом
в)
функции
с
точностью до сотых для соответствующих
и
.
При
решении контрольного примера
принять:
2.2 Описание постановки задачи
F переменная вещественного типа
Входные данные:
Rn - переменная вещественного типа
Rk - переменная вещественного типа
Tn - переменная вещественного типа
Tk - переменная вещественного типа
m - переменная вещественного типа
R - переменная целого типа
T -переменная вещественного типа
2.3 Разработка математической модели
Где
с
шагом
с
шагом
2.4 Составление схемы алгоритма
1
Начало
2
Rn,
Rk, dR, M, Tn, Tk, dT
3
R=Rn
5
4
Да
R<=
Rk
T=Tn
6
Нет
Да
7
=
T<=Tk
Нет
8
10
R=
R+dR
R,
T, F
9
11
T=T+
dT
Конец
-
Программный код
M = InputBox("Введите значения целого типа M")
Rn = InputBox("Введите значения целого типа Rn")
Rk = InputBox("Введите значения целого типа Rk")
dR = InputBox("Введите значения целого типа dk")
Tn = InputBox("Введите значения вещественного типа Tn")
Tk = InputBox("Введите значения вещественного типа Tk")
dT = InputBox("Введите значения вещественного типа dT")
W1 = InputBox("Укажите учебную группу")
W2 = InputBox("Укажите инициалы имени и отчества, фамилию")
Data = InputBox("Укажите дату тремя парами арабских цифр")
For R = Rn To Rk Step dR
Print "R = " & Format(R, "##")
For T = Tn To Tk Step dT
F = (4 * pi * R * M) / T:
Print Tab(12); "T = " & Format(T, "###.##"); Tab(28); "F = " & Format(F, "####.##")
Next T
Next R
Print: Print "Исполнил студент "; W1; Tab(44); W2
Print Data
End Sub