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

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

ВАРИАНТ 21

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

Определить диаметр d и длину l цилиндрической стальной цапфы вала, рассматрицая цапфу как балку, заделанную концом. Нагрузка P на квадратную единицу диаметрического сечения не должна превышать 30 кг/см²; допускаемое напряжение R=800 кг/см; полная величина давления на цапфу 20≤Q≤27 т с шагом 0,5 т

1.2) Описание постановки задачи: Состав входных и выходных данных: Входные данные: P – переменная вещественного типа, R – переменная вещественного типа, Q1 – перменная вещественного типа, Qk – переменная вещественного типа, dQ – переменная вещественного типа.

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

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

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

где π=3,1415; M₁≤Q≤M_k с шагом ΔQ.

1.4) Схема алгоритма решения задачи: 1.5) Листинг кода программы:

Private Sub Command1_Click()

Dim P As Single, R As Single, Q As Single, Q1 As Single, Qk As Single, dQ As Single Dim d As Single, l As Single

Const pi As Single = 3.1415

P = InputBox("P=")

R = InputBox("R=")

Q1 = InputBox("Q1=")

Qk = InputBox("Qk=")

dQ = InputBox("dQ=")

Print "P=" & P & " R=" & R & " Q1=" & Q1 & " Qk=" & Qk & " dQ=" & dQ

Q = Q1

Do While Q <= Qk

d = (32 * Q ^ 2 / (pi * R * P)) ^ (1 / 4)

l = Q / (d * P)

Print "d=" & d & " l=" & l & " при Q=" & Q

Q = Q + dQ

Loop

End Sub

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

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

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

где постоянная V=5; L, T – переменные целого типа.

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

При решении контрольного примера принять: L₁=20; L_k=40; ΔL=10; T₁=1; T_k=3; ΔT=1.

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

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

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

L1 – переменная вещественного типа, Lk – переменная вещественного типа, dL – переменная вещественного типа, T1 – переменная вещественного типа, Tk – переменная вещественного типа, TR – переменная вещественного типа.

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

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

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

где постоянная V=5; L₁≤L≤L_k с шагом ΔL; T₁≤T≤T_k с шагом ΔT.

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

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

Private Sub Command1_Click()

Dim L As Single, L1 As Single, Lk As Single, dL As Single

Dim T As Single, T1 As Single, Tk As Single, dT As Single, l2 as Single

Const V As Integer = 5

L1 = InputBox("L1=")

Lk = InputBox("Lk=")

dL = InputBox("dL=")

T1 = InputBox("T1=")

Tk = InputBox("Tk=")

dT = InputBox("TL=")

Print "L1=" & L1 & " Lk=" & Lk & " dL=" & dL

Print "T1=" & T1 & " Tk=" & Tk & " dT=" & dT

L = L1

Do While L <= Lk

T = T1

Do Until T > Tk

l1=T*L*V/1.5

Print "l=" & Format(l2, "0.00") & " при L=" & L & " T=" & T

T = T + dT

Loop

L = L + dL

Loop

End Sub

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