Структура цикл / 17 (2)

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

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

ВАРИАНТ 17

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

К пружине подвешен груз массой m. Пружина под влиянием силы F растягивается на величину x. Определить период вертикальных колебаний груза для разных F:

Отладить программу для следующих значений переменных:

M=10 кг; x=0,15; 1,85≤F≤3,2 Н c шагом 0,15 Н.

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

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

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

M – перменная вещественного типа, x – перменная вещественного типа, F1 – перменная вещественного типа, Fk – переменная вещественного типа, dF – переменная вещественного типа.

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

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

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

Определить период вертикальных колебаний груза для разных F: 1,85≤F≤3,2 Н c шагом 0,15 Н.

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

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

Private Sub Command1_Click() Dim M As Single, x As Single, F As Single, F1 As Single, Fk As Single, dF As Single, T As Single Const Pi = 3.14 M = InputBox("M=") x = InputBox("x=") F1 = InputBox("F1=") Fk = InputBox("Fk=") dF = InputBox("dF=") Print "M=" & M & " x=" & x Print "F1=" & F1 & " Fk=" & Fk & " dF=" & dF For F = F1 To Fk Step dF T = 2 * Pi * Sqr(M * x / F) Print "F=" & F & " T=" & T Next End Sub

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

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

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

где постоянная π=3,14; переменные: h – целого типа; r – вещественного типа.

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

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

б) аргументов h, изменяющегося в пределах h₁≤h≤h_k с шагом Δh, и r, изменяющегося в пределах r₁≤r≤r_k с шагом Δr;

в) функции V с точность до сотых для соответствующих h и r.

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

h₁=1; h_k=25; Δh=12; r₁=5; r_k=10; Δr=2,5.

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

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

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

h1 – перменная целого типа, hk – перменная целого типа, dh – перменная целого типа, r1 – переменная вещественного типа, rk – переменная вещественного типа, dr – переменная вещественного типа.

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

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

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

где постоянная π=3,14; h₁≤h≤h_k с шагом Δh; r₁≤r≤r_k с шагом Δr.

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

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

Private Sub Command1_Click() Dim h As Integer, h1 As Integer, hk As Integer, dh As Integer Dim r As Single, r1 As Single, rk As Single, dr As Single, V As Single Const Pi As Single = 3.14 h1 = InputBox("h1=") hk = InputBox("hk=") dh = InputBox("dh=") r1 = InputBox("r1=") rk = InputBox("rk=") dr = InputBox("dr=") Print "h1=" & h1 & " hk=" & hk & " dh=" & dh Print "r1=" & r1 & " rk=" & rk & " dr=" & dr h = h1 Do While h <= hk r = r1 Do While r <= rk V = 1 / 6 * Pi * h * (h ^ 2 + r ^ 2) Print "h=" & h & " r=" & r & " V=" & Format(V, "0.00") r = r + dr Loop h = h + dh Loop End Sub

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