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

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

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

ВАРИАНТ 10

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

Расстояние между двумя станциями поезда прошёл со средней скоростью V_ср за t минут. Разгон и торможение вмести длились t₁ минут, а остальное время поезд двигался равномерно. Определить скорость V равномерного движения при заданных значениях времени t₁.

где V_ср=72 км/ч; t=20 мин; 2,5≤t≤6,5 мин с шагом 30 сек.

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

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

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

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

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

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

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

Определить скорость V равномерного движения при заданных значениях времени t₁,

где V_ср=72 км/ч; t=20 мин; 2,5≤t≤6,5 мин с шагом 30 сек.

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

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

Private Sub Command1_Click() Dim Vsr As Single, t As Single, t1 As Single, t0 As Single, tk As Single, dt As Single, V As Single Vsr = InputBox("Vsr=", "Input") t = InputBox("t=", "Input") t0 = InputBox("начальное t1=", "Input") tk = InputBox("конечное t1=", "Input") dt = InputBox("шаг t1=", "Input") Print "Vsr=" & Vsr & ", t=" & t & ", начальное t1=" & t0 & ", конечное t1=" & tk & ", шаг t1=" & dt For t1 = t0 To tk Step dt V = Vsr * t / (2 * t - t1) Print "V=" & V & " при t1=" & t1 Next End Sub

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

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

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

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

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

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

x₁=0,8; x_k=1,4; Δx=0,2; y₁=1,1; y_k=1,3; Δy=0,1.

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

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

Входные данные: x1 – переменная вещественного типа, xk – переменная вещественного типа, dx – переменная вещественного типа, y1 – переменная вещественного типа, yk – переменная вещественного типа, dy – переменная вещественного типа.

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

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

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

где постоянные a=2 и b=3; x₁≤x≤x_k с шагом Δx, y₁≤y≤y_k с шагом Δy.

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

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

Private Sub Command1_Click() Dim x As Single, x1 As Single, xk As Single, dx As Single Dim y As Single, y1 As Single, yk As Single, dy As Single, T As Single Const a As Integer = 2, b As Integer = 3 x1 = InputBox("начальное x=", "Input") xk = InputBox("конечное x=", "Input") dx = InputBox("шаг x=", "Input") y1 = InputBox("начальное y=", "Input") yk = InputBox("конечное y=", "Input") dy = InputBox("шаг y=", "Input") Print "Начальное x=" & x1 & ", конечное x=" & xk & ", шаг x=" & dx Print "Начальное y=" & y1 & ", конечное y=" & yk & ", шаг y=" & dy x = x1 Do While x <= xk y = y1 Do While y <= yk T = 2 * Exp(-Abs(x - y)) / (a * x + b * y) Print "T=" & Format(T,"0.00") & " при x=" & x & " y=" & y y = y + dy Loop x = x + dx Loop End Sub

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