4. Структура цикл

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

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

Электропоезд в момент включения тока имел скорость v. Какое время и расстояние пройдет он до полной остановки по горизонтальному пути при разных значениях скорости? Коэффициент сопротивления движения .

где

 = 0,006; g = 9,81м/с²;

5 10 м/с с шагом 0,5 м/с.

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

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

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

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

Определение состава входных данных.

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

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

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

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

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

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

1.3 Разработка математической модели

Какое время и расстояние пройдет он до полной остановки по горизонтальному пути при разных значениях скорости?

где  = 0,006; g = 9,81м/с²;

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

5. Программный код

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

5. Выполнение проекта

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

Конец

5. Программный код

Private Sub Command1_Click()

Dim Rn As Integer, Rk As Integer, dR As Single

Dim Tn As Integer, Tk As Integer, dT As Single

Dim T As Single, R As Single, F As Single

Dim W1 As String, W2 As String, Data As String

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