вариант. Вариант 6 (1). структура цикл

• Название: структура цикл
• Анкор: вариант
• Дата: 22.02.2023
• Размер: 101 Kb.
• Имя файла: Вариант 6 (1).doc
• Тип: Документы; #950446

Вернер А.Г. ЛТ-403 Вариант 6

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

Задание 1.

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

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

1. 
   Поезд массой m трогается с места и двигается по горизонтальному пути под действием постоянной силы тяги локомотива F . Коэффициент сопротивления движению К . Определить ускорение поезда и скорость, достигнутую им через t секунд после начала движения, если
   

причем F=4000H; k=0,005; t=5c; g=9,81м/c²;

2000  m  4000 т. с шагом 250 т.
1.2. Определение состава входных данных:

F, k, mn, mk, mh - вещественного типа

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

a, V, m - вещественного типа

2. Построение математической модели задачи.

2.1. Математическая формулировка задачи:

3. Алгоритмизация:


4. Создание проекта:

4.1. Программирование:
Private Sub Command1_Click()

Const g As Single = 9.81

Dim F As Single

Dim k As Single

Dim t As Single

Dim mn As Single

Dim mk As Single

Dim mh As Single

Dim V As Single

Dim a As Single

F = Val(Text1)

k = Val(Text2)

t = Val(Text3)

mn = Val(Text4)

mk = Val(Text5)

mh = Val(Text6)

For m = mn To mk Step mh

a = (F - k * m * g) / m

V = a * t

Print "m=" & m, "a=" & a, "V=" & V

Next m

End Sub
5. Отладочный пример:




Задание 2.

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

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

Вычислить значение функции :

;

при изменении аргументов в интервалах x / 0; 2,4 / c шагом 0,4 и y /1,0; 2,0/ c шагом 0,1. a = 2,97; b = 4,56.
1.2. Определение состава входных данных:

a,b, xn, xk, xh, yn, yk, yh – вещественного типа

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

z, x, y - вещественного типа

2. Построение математической модели задачи.

2.1. Математическая формулировка задачи:


3. Алгоритмизация:




4. Создание проекта:

4.1. Программирование:

Private Sub Command1_Click()

Dim z As Single

Dim a As Single

Dim b As Single

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim xh As Single

Dim y As Single

Dim yn As Single

Dim yk As Single

Dim yh As Single

a = Val(Text1)

b = Val(Text2)

xn = Val(Text3)

xk = Val(Text4)

xh = Val(Text5)

yn = Val(Text6)

yk = Val(Text7)

yh = Val(Text8)

For y = yn To yk Step yh

Print "y=" & y

For x = xn To xk Step xh

z = Sqr(a * Sin(x) + b * Cos(y) + 1)

Print "x=" & x, "z=" & z

Next

Next

End Sub


5. Отладочный пример: