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

Задание №1

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

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

Паровой молот массой m₁ падает с высоты h на стальную болванку m₂. Сколько раз он должен упасть, чтобы температура болванки поднялась на Δt°C? На нагрев болванки идёт 50% теплоты, полученной при ударах. Удельная теплоёмкость стали С = 460 Дж/кгН.

где g = 9,81 м/с²; h = 2,5 м; Δt = 40°C; m₂ = 220 кг; 6 ≤ m₁ ≤ 10 т с шагом 0,5 т.

1.2. Состав входных и выходных переменных

Входные переменные:

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

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

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

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

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

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

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

Выходные переменные:

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

2.Математическая модель

где m₁₁ ≤ m₁ ≤ m_1k с шагом Δm.

3. Схема алгоритмa

4. Код программы

Private Sub Command1_Click()

Dim h As Single, dt As Single, m2 As Single, C As Single, m11 As Single, m1k As Single, dm1 As Single, m1

Const g As Single = 9.81

h = InputBox("h=")

dt = InputBox("dt=")

m2 = InputBox("m2=")

C = InputBox("C=")

m11 = InputBox("m11=")

m1k = InputBox("m1k=")

dm1 = InputBox("dm1=")

Print "h = " & h, "dt = " & dt, "m2 = " & m2, "C = " & C

Print m11 & " <= m1 <=" & m1k

Print " n", " m1"

For m1 = m11 To m1k Step dm1

n = 2 * C * m2 * dt / (m1 * g * h)

Print n, m1

Next

End Sub

5. Отладка программы

Задание №2

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

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

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

где постоянные π = 3,14 и g = 9,81; L, J – переменные вещественного типа.

На печать выдать значения:

а) входных данных;

б) аргументов L, меняющегося в пределах L₁ ≤ L ≤ L_J с шагом ΔL, и J, меняющегося в пределах J₁ ≤ J ≤ J_J с шагом ΔJ.

в) функций A и T с точностью до тысячных для соответствующих L и J.

При решении контрольного примера принять:

L₁ = 0,72; L_k = 0,76; ΔL = 0,02; J₁ = 2,3; J_k = 2,5; ΔJ = 0,1.

1.2. Состав входных и выходных переменных

Входные переменные:

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

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

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

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

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

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

Выходные переменные:

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

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

2.Математическая модель

3.Схема алгоритма

4. Код программы

Private Sub Command1_Click()

Dim L1 As Single, Lk As Single, dL As Single, J1 As Single, Jk As Single, dJ As Single, A As Single, T As Single

Const pi As Single = 3.14, g As Single = 9.81

L1 = InputBox("L1=")

Lk = InputBox("Lk=")

dL = InputBox("dL=")

J1 = InputBox("J1=")

Jk = InputBox("Jk=")

dJ = InputBox("dJ=")

Print L1 & " <= L <= " & Lk & " с шагом " & dL

Print J1 & " <= J <= " & Jk & " с шагом " & dJ

Print " A", " T", " L", " J"

J = J1

Do While J <= Jk

A = Tan(J / g)

L = L1

Do While L <= Lk

T = 2 * pi * L / (g ^ 2 + J ^ 2)

Print Format(A, "0.000"), Format(T, "0.000"), L, J

L = L + dL

Loop

J = J + dJ

Loop

End Sub

5. Отладка программы