Практикум ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ ПАСКАЛЬ_Янченко Д.В
.pdf
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
80 |
|
6. |
Вычислить вес затвора g |
|
|
|||||||||||||
|
|
|
|
|
763 HL2 , |
|
|
если H ≤5 |
||||||||
|
|
g = |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3 |
|
|
|
2 |
|
|
если H >5 |
||||
|
|
|
|
|
64 |
|
HL −1 , |
|||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
7. |
Вычислить значение коэффициента вариации |
|||||||||||||||
|
|
|
|
|
|
|
S |
, |
|
|
|
|
|
если n ≥30 |
||
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
C |
|
= |
|
n |
|
|
|
|
|
|
|
|
||
|
|
v |
|
|
|
S |
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
, |
|
|
если n <30 |
||||
|
|
|
|
|
|
|
n |
− |
1 |
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
8. |
Определить силу Р, с которой водяная струя давит на вертикальную |
|||||||||||||||
|
стенку |
|
|
|
V 2 |
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
еслиC = 0 |
|||||
|
|
|
|
|
2γω |
|
|
|
|
, |
|
|
||||
|
|
|
|
|
|
2g |
|
|
|
|||||||
|
|
P = |
|
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
2 |
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
U |
|
|
|
|
еслиC > 0 |
|||
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
2γω |
|
|
, |
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
2g |
|
|
|
|
|
|
|
9.Вычислить полную нагрузку F на балку |
||||||||||||||||
|
P L, |
|
|
|
|
|
|
|
|
|
|
|
если P = P |
|||
|
|
1 |
|
|
|
(P + P |
|
)L |
|
|
1 |
2 |
||||
F = |
P L + |
|
, |
|
если P = P |
|||||||||||
|
|
|
1 |
|
|
2 |
|
|
||||||||
|
1 |
|
|
|
|
|
|
2 |
|
|
|
|
|
1 |
2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
10.Вычислить величину скорости |
|
|||||||||||||||
|
|
|
|
|
|
|
|
+ |
1,1V |
2 |
|
если H2 |
≠ 0 |
|||
|
ϕ |
|
|
2g Z |
|
|
|
o |
, |
|||||||
|
|
|
|
|
|
|
|
|
|
|
2g |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
V = |
|
|
|
|
|
|
|
1,1V 2 |
|
|
|
|||||
|
|
|
|
|
|
|
+ |
если H2 |
= 0 |
|||||||
|
ϕ |
|
|
2g H |
|
|
|
o |
, |
|||||||
|
|
|
|
|
|
|
|
|
|
|
2g |
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
11.Определить значение коэффициента сопротивления движения потока Zα при повороте канала на угол α
Zα = A + Z ,
|
sin απ |
, |
|
|
еслиα ≤90o |
|
где |
|
180 |
|
|
|
|
A = |
|
α |
|
еслиα >90o |
||
|
0,7 + 0,35 |
, |
||||
|
|
|||||
|
|
|
90 |
|
|
|
|
|
|
|
|
||
81
12.Вычислить наибольший изгибающий момент
qL2 |
, |
|
|
|
|
если a =b |
||
|
|
|
|
|
|
|
||
|
12 |
|
|
|
||||
|
|
|
|
|
|
|
|
|
M = |
q(L − x) |
q |
3 |
|
||||
|
|
|||||||
|
|
− |
|
(L − x) |
, |
если a <b, |
||
6(L + a) |
6b |
|||||||
где x = L − |
b(p + a) |
|
|
|
||||
|
|
|
3 |
|
|
|
|
|
13.Вычислить фильтрационный расход через тело земляной плотины
|
|
|
|
2 |
|
|
|
2 |
|
|
|
||
|
|
|
H1 |
|
− h1 |
|
|
|
|
||||
K |
|
2(L |
p |
− m |
|
h ), |
|
если j =1 |
|
||||
|
|
|
|
|
|
|
|
2 1 |
|
|
|
||
q = |
|
|
H12 − H22 |
|
|
|
|
||||||
|
|
|
|
|
|
|
|||||||
K |
|
2(L |
p |
+ l |
др |
), |
|
если j = 2 |
|
||||
|
|
|
|
|
|
|
|
|
|
|
|||
14.Определить |
|
|
|
|
виртуальную |
толщину |
грунтового |
||||||
противофильтрационного устройства земляной плотины |
|
||||||||||||
|
(δ1 +δ2 )K , |
|
|
если n =1 |
|
||||||||
|
|
|
2K2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
L = |
(δ1 +δ2 )K sinθ , |
|
|
|
|||||||||
|
|
если n = 2 |
|
||||||||||
|
|
|
|
2K2 |
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|||||
15.Вычислить средний градиент фильтрационного напора |
|
||||||||||||
H − H |
2 |
|
|
|
|
|
|
|
|||||
|
|
1 |
|
, |
|
|
|
если j = 0 |
|
||||
|
n lпл |
|
|
|
|
|
|||||||
J = |
|
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
если j ≠ 0 |
|
|
tgα, |
|
|
|
|
|
|
|
|
|||||
16.Вычислить плотность грунта тела плотины |
|
||||||||||||
(1 − n)γг K, |
|
|
еслиb ≤18 |
|
|||||||||
γ = |
|
− n)(γг −γо), |
|
еслиb >18 |
|
||||||||
(1 |
|
|
|||||||||||
17.Вычислить коэффициент устойчивости откоса земляной плотины
|
F + S |
|
, |
|
|
если j =1 |
T +Фr |
|
|
|
|||
|
|
R |
|
|
|
|
K уст = |
|
F + S |
|
|
||
|
|
r2 |
, если j = 2 |
|||
|
|
|
|
|||
T +Ф r1 |
R |
+Ф |
R |
|||
|
1 |
|
2 |
|
||
18.Вычислить расход через трубчатый регулятор в напорном режиме
|
Q = µ ω |
2gZo , |
|
|||
|
bh, |
|
|
если j =1 |
||
где |
ω = |
π |
d |
2 |
, |
если j = 2 |
|
|
|
||||
|
|
4 |
|
|||
|
|
|
|
|
|
|
82
19.Вычислить толщину пригрузки в месте выхода фильтрационного
потока |
|
|
K |
S(J |
− J K )γo |
|
|
||||
|
|
|
, |
если J > J K |
|||||||
|
|
|
|
|
|
|
|
|
|
||
t |
|
= |
|
|
|
γ |
пр |
||||
пр |
|
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
если J ≤ J K |
||
|
|
|
0, |
|
|
|
|
|
|
||
20.Определить расход через трубчатый регулятор |
|||||||||||
|
|
|
|
|
|
2 |
2gZo , |
|
если n =1 |
||
|
|
εϕνd |
|
|
|||||||
Q = |
|
|
2gZ |
|
, |
|
если n = 2 |
||||
|
|
µω |
o |
|
|||||||
|
|
|
|
|
|
|
|
|
|
|
|
7.2 Варианты задания №2
Разработать блок-схему алгоритма и программу на языке Pascal для табулирования функции, выбираемой из приведенных ниже, согласно номеру варианта (см. таблицу 3). Значения функции должны вычисляться для всех значений ее аргумента изменяющегося с шагом от начального до конечного значения.
1. Вычислить ординаты расчетного гидрографа по формуле
−a |
(1−x)2 |
У =10 |
x |
при х изменяющемся от xн= 0,1 до хк= 3,5 через ∆x =0,2
2. Вычислить запас воды в почве W
W =100Hαβв
при βв изменяющемся от βвн до βвк через ∆βв. 3. Вычислить смоченные периметры канала
χ =b + 2h 1 + m2
при h изменяющемся от hн= 0,4 до hк= 1,5 с шагом ∆h =0,1. 4. Вычислить продолжительность полива по бороздам
t = m a n l
60P
для ряда значений расхода воды Р изменяющегося от Рн до Рк с
шагом ∆Р.
5. Вычислить ординаты депрессионной кривой по формуле
У = H 2 − 2 Kg x
при х изменяющемся от xн= 0,5 до хк= 5,0 через ∆x =0,5.
83
6.Вычислить значение расхода q через тело однородной плотины с трубчатым дренажем
q = KT H 2 2Lp
при Н изменяющемся от Hн= 3 до Hк= 10,5 с шагом ∆H =0,5.
7. Вычислить запас воды в почве
W = HPβo
при βo изменяющемся от βoн до βoк с шагом ∆βо.
8. Вычислить значения критической глубины на водосливе
hкр = αQ2 gb2
при Q изменяющемся от Qн до Qк с шагом ∆Q . 9. Вычислить скорости подхода потока к отверстию
Vo = HbQp
при Q изменяющемся от Qн=5 до Qк=7 с шагом ∆Q =0,2. 10.Вычислить требуемые толщины флютбета регулятора
t = nh γo
γ −γo
при h изменяющемся от hн до hк с шагом ∆h .
11.Вычислить расходы через трубчатый регулятор
Q =εϕν d 2 2gZo
при d изменяющемся от dн=0,3 до dк=0,7 с шагом ∆d =0,05.
12.Определить величины гидростатического давления на плоскую прямоугольную фигуру
P =γ h
при h изменяющемся от hн= 0,1 до hк= 1,5 с шагом ∆h =0,2.
13.Вычислить расход через круглую трубу
Q = πd42 V
при V изменяющемся от Vн до Vк с шагом ∆V . 14. Определить скоростные напоры
h =αV 2
2g
при V изменяющемся от Vн до Vк с шагом ∆V . 15.Вычислить скорости потока в канале
V =C Ri
84
при i изменяющемся от iн до iк с шагом ∆i .
16.Определить ширину потока поверху
B =b + 2mh
при h изменяющемся от hн= 0,3 до hк= 1,2 с шагом ∆h =0,1. 17.Вычислить значения смоченного периметра канала
χ =b + 2h 1 + m2
при h изменяющемся от hн= 0,5 до hк= 1,9 с шагом ∆h =0,2.
18.Определить расход канала
Q =ωc Ri
при i изменяющемся от iн до iк с шагом ∆i . 19.Определить уклон дна канала
i = |
Q2 |
|
C2Rω2 |
||
|
при Q изменяющемся от Qн до Qк с шагом ∆Q .
7.3 Варианты задания №3
Для условий задания №1 требуется составить блок-схему алгоритма и программу на языке Pascal, обеспечивающую вычисление заданной функции для нескольких приводимых ниже значений аргумента.
1.ω={1,0; 1,2; 1,4; 1,6; 1,8; 2,0}.
2.R={0,5; 0,75; 1,0; 1,25; 1,5; 1,75; 2,0}.
3.m={5; 8; 11; 14; 17; 20; 23; 26; 29}.
4.P={1; 1,5; 2; 2,5; 3; 3,5; 4}.
5.ωo ={0,7; 0,8; 0,9; 1; 1,1; 1,2; 1,3; 1,4}.
6.H={2; 2,5; 3; 3,5; 4; 4,5; 5; 5,5; 6}.
7.n={20; 25; 30; 35; 40; 45; 50; 55; 60; 65}.
8.ω={2; 3; 4; 5; 6; 7; 8; 9; 10}.
9.l={1; 2; 3; 4; 5; 6; 7; 8; 9}.
10.Z={0,5; 0,7; 0,9; 1,1; 1,3; 1,5}.
11.α ={30; 45; 60; 75; 90; 105; 120}.
12.g={0,3; 0,4; 0,5; 0,6; 0,7; 0,8; 0,9; 1,0}. 13.K={0,02; 0,04; 0,06; 0,08; 0,1; 0,12; 0,14}. 14.K={3; 5; 7; 9; 11; 13; 15}.
15.α ={10; 12; 14; 16; 18; 20}.
16.n={0,35; 0,36; 0,37; 0,38; 0,39; 0,40; 0,41; 0,42; 0,43; 0,44; 0,45}. 17.F={20; 25; 30; 35; 40; 45; 50}.
18. Zo ={0,5; 0,75; 1; 1,25; 1,5}.
19.S={0,1; 0,15; 0,20; 0,25; 0,30; 0,35; 0,40}.
20. Zo ={1; 1,2; 1,4; 1,6; 1,8; 2,0}.
85
7.4 Варианты задания №4
Для приводимых ниже задач требуется разработать блок-схему алгоритма и программу на языке Pascal. Выбор конкретной задачи производят по номеру задания №4 (см. таблицу 3).
1. Дан массив мгновенных скоростей U состоящий из N элементов. Вычислить осредненную за время T скорость турбулентного режима.
1 N
U = T i∑=1Ui∆t ,
где ∆t = NT−1
2.Вычислить средний многолетний слой осадков за N лет наблюдений
N
∑Xi fi
X= i=1N
∑fi
i=1
3.Вычислить приведенный фильтрационный расход
Qr = N1
∑Фi
i=1
где n – число фрагментов (n ≤ 20).
4. Вычислить необходимый действующий напор Н для системы последовательного соединения труб по формуле
H =Q2 |
N |
l |
∑ |
i |
|
|
||
|
i=1Ki2 |
|
5. Вычислить слой стока с водосбора площадью F за N суток
N
∑Qi 86,4
У = i=1
F
6. Вычислить мощность реки путем суммирования мощностей ее отдельных участков по формуле
N
M= ∑9,80 Qi Hi
i=1
86
7. Вычислить удельный фильтрационный расход
q = KH |
1 |
N |
|
|
∑ξi |
|
i=1 |
где n – число фрагментов (n ≤ 15).
8. Дан массив чисел А из N элементов. Известно среднее арифметическое значение a . Найти среднее квадратическое отклонение σ
σ = |
1 |
∑N (ai − a )2 |
|
||
|
N −1i=1 |
|
9.Вычислить коэффициент расхода через трубопровод при истечении под уровень при N потерях
µ = |
1 |
|
N |
||
αl |
||
+ ∑ξi |
||
d |
i=1 |
|
|
10.Вычислить значение статистики
N
∑Ki lg K
α= i=1N −1
11.Вычислить средний уклон для N последовательно расположенных участков реки
N
∑∆H j
I = j=N1
∑l j
j=1
12.Даны массивы чисел А и В, содержащие по N элементов. Найти скалярное произведение S
N
S= ∑aibi
i=1
13.Вычислить суммарные потери напора в трубе, если жидкость встречает N местных сопротивлений ξi
|
|
|
N |
|
|
V 2 |
|
h |
= ξ |
тр |
+ ∑ξ |
|
|
|
|
2g |
|||||||
тр |
|
i=1 |
i |
|
|||
|
|
|
|
|
|
87
14.Дан массив чисел Х из N элементов. Вычислить
N
S = ∑Xi2 i=1
15.Вычислить значение градиента фильтрационного напора
J = NH
T∑Fi
i=1
где n – число фрагментов (n ≤ 20). 16.Вычислить значение статистики
N
∑lg Ki
λ= i=N1 −1
17.Вычислить величину среднего испарения при неравномерном распределении N метеостанций по формуле
|
|
|
N |
|
|
||
|
|
= ∑ |
Si |
Ei |
|
|
|
E |
|
|
|||||
|
|
|
|||||
|
|
|
i=1 S |
|
|
||
18.Вычислить коэффициент расхода трубопровода в случае N потерь |
|||||||
при истечении в атмосферу |
|||||||
µ = |
1 |
|
|
||||
|
|
|
N |
|
|||
|
|
|
|
|
|
|
|
|
|
|
1 + f + ∑ξi |
||||
|
|
|
|
|
|
i=1 |
|
19.Вычислить величину расхода |
|||||||
|
|
|
N |
H |
|
||
|
|
|
|
l |
|
||
Q = ∑ Ki |
|
||||||
|
|
|
i=1 |
i |
|
||
7.5 Варианты задания №5
Данное задание как и предыдущие включает разработку блок-схемы алгоритма и программы на языке Pascal. Номер варианта определяется по таблице 2.
В задачах 1-3 известны данные среднедекадных расходах воды за N декад ( N ≤50 ). Требуется определить:
1.Наибольший расход и отношение каждого расхода к наибольшему.
2.Средний расход и количество декад с расходом превышающим средний.
3.Средний расход и количество декад с расходом меньше среднего.
88
В задачах 4-10 известны данные о полуденной температуре воздуха в течение m суток ( m ≤100 ). Требуется определить:
4.Количество суток с отрицательной температурой.
5.Среднюю температуру среди суток с отрицательной температурой.
6.Среднюю температуру за все сутки и количество дней с температурой выше средней.
7.Количество суток с положительной температурой.
8.Наибольшую температуру из суток с отрицательной температурой.
9.Наибольшую температуру из суток с положительной температурой.
10.Среднюю температуру среди суток с положительной температурой.
Взадачах 11-14 известны данные о среднемесячных уровнях воды в реке за m месяцев m ≤ 20. Требуется определить:
11.Средний уровень и количество месяцев с уровнем ниже среднего. 12.Средний уровень и количество месяцев с уровнем выше среднего. 13.Минимальный уровень и превышение (в долях) каждого уровня над
минимальным.
14.Максимальный уровень и отношение каждого уровня к максимальному.
Взадачах 15-19 известны данные о среднедекадных температурах почвы за К декад ( K ≤30 ). Требуется определить:
15.Среднюю из отрицательных температур.
16.Среднюю из положительных температур.
17.Наибольшую температуру из отрицательных температур.
18.Наименьшую температуру из положительных температур. 19.Среднюю температуру среди всех декад и количество декад с
температурой ниже средней.
20.Количество декад с положительной температурой почвы.
Таблица 3 – Номера вариантов заданий |
|
|
|
|
|
|
||
|
|
|
|
|
|
Задание №5 |
|
|
Задание № 1 и 3 |
Задание № 2 |
Задание №4 |
|
|||||
Две последние |
Номер |
Сумма двух |
Номер |
Разность |
Номер |
Две последние |
Номер |
|
последних |
|
|||||||
цифры |
варианта |
последних цифр |
варианта |
цифр |
варианта |
цифры |
варианта |
|
|
|
|
|
1 |
|
|
|
|
01, 21, 41, 61,81 |
1 |
1 |
1 |
-9 |
01, 11, 21, 31, 41 |
1 |
|
|
02, 22, 42,62, 82 |
2 |
2 |
2 |
-8 |
2 |
51, 61, 71,81, 91 |
2 |
|
03, 23, 43, 63,83 |
3 |
3 |
3 |
-7 |
3 |
02, 12, 22, 32,42 |
3 |
|
04, 24, 44, 64, 84 |
4 |
4 |
4 |
-6 |
4 |
52, 62, 72, 82, 92 |
4 |
|
05, 25, 45, 65, 85 |
5 |
5 |
5 |
-5 |
5 |
03, 13, 23, 33, 43 |
5 |
|
06, 26, 46, 66, 86 |
6 |
6 |
6 |
-4 |
6 |
53, 63, 73, 83, 93 |
6 |
|
07, 27, 47, 67, 87 |
7 |
7 |
7 |
-3 |
7 |
04, 14, 24, 34, 44 |
7 |
|
08, 28, 48, 68, 88 |
8 |
8 |
8 |
-2 |
8 |
54, 64, 74, 84, 94 |
8 |
|
09, 29, 49, 69, 89 |
9 |
9 |
9 |
-1 |
9 |
05, 15, 25, 35, 45 |
9 |
|
10, 30, 50, 70, 80 |
10 |
10 |
10 |
0 |
10 |
55, 65, 75, 85, 95 |
10 |
|
11, 31, 51, 71, 91 |
11 |
11 |
11 |
1 |
11 |
06, 16, 26, 36, 46 |
11 |
|
12, 32, 52, 72, 92 |
12 |
12 |
12 |
2 |
12 |
56, 66, 76, 86, 96 |
12 |
|
13, 33, 53, 73, 93 |
13 |
13 |
13 |
3 |
13 |
07, 17, 27, 37, 47 |
13 |
|
14, 34, 54, 74, 94 |
14 |
14 |
14 |
4 |
14 |
57, 67, 77, 87, 97 |
14 |
|
15, 35, 55, 75, 95 |
15 |
15 |
15 |
5 |
15 |
08, 18, 28, 38, 46 |
15 |
|
16, 36, 56, 76, 96 |
16 |
16 |
16 |
6 |
16 |
58, 68, 78, 88, 98 |
16 |
|
17, 37, 57, 77, 97 |
17 |
17 |
17 |
7 |
17 |
09, 19, 29, 39, 49 |
17 |
|
18, 38, 58, 78, 98 |
18 |
18 |
18 |
8 |
18 |
59, 69, 79, 89, 99 |
18 |
|
19, 39, 59, 79, 99 |
19 |
0 |
19 |
9 |
19 |
10, 20, 30, 40, 50 |
19 |
|
20, 40, 60, 80, 00 |
20 |
- |
- |
- |
- |
60, 70, 80, 90, 00 |
20 |
|