Задание №5.
Составить программу для выполнения задания 2.1.7. Предусмотреть возможность форматного вывода результатов на экран, а также возможность выбора из основного меню программы одного из пунктов задания 2.1.7
Вода течет по трубе с внутренним диаметром 610 мм. Средняя скорость потока равна 2,4 м/с. Вычислить площадь поперечного сечения трубы.
Определить минимальный диаметр трубы, по которой должно поступать 6000м³ воды в день.
Найти число Рейнольдса и определить тип потока.
Program Zadanie5;
var p:integer;
d,v,s,vv,dd,v3,d3,m,po,Re:real;
begin
writeln('Vvedite punkt zadaniya (1-a, 2-b, 3-c)');
readln(p);
d:=225.5;
v:=0.6;
if p=1 then begin
s:=3.14/4*sqr(d);
vv:=v*s;
dd:=sqrt(vv*4/(1.3*3.14));
writeln('S=',s:10:3);
writeln('V=',vv:10:3);
writeln('Diametr=',dd:10:3);
end else
if p=2 then begin
v3:=6000/(24*3600);
d3:=sqrt(4*v3/(3.14*0.6));
writeln('min diam =',d3:10:3);
end else
if p=3 then begin
po:=1510;
m:=11.4/10000;
Re:=d*v*po/m;
writeln('Re =',Re:10:3);
if Re<=2100 then writeln('laminarniy')else
if Re<10000 then writeln('neizvestniy')else
if Re>10000 then writeln('turbulentniy');
end else
writeln('neverno!');
end.
Задание №6.
Составить программу для выполнения задания 2.1.8. Предусмотреть возможность форматного вывода результатов на экран.
Program Zadanie6;
var R0,T1,T2,h1,h2,R:integer;
a,Rt,T:real;
begin
R0:=85; a:=0.00385;
T1:=600;h1:=-20;h2:=-5;R:=90;T2:=200;
while T2<=T1 do
begin
Rt:=R0*(1+a*T1);
writeln(' pri T=',T1,' Rt=',Rt:10:3);
T1:=T1+h1;
end;
while R<=40 do
begin
T:=(R/R0-1)/a;
writeln(' pri Rt=',R,' T=',T:10:3);
R:=R+h2;
end;
end.
Задание №7.
Даны векторы a и b (таблица Г.3). Найти длины этих векторов, их скалярное произведение, а также косинус угла между ними. Предусмотреть возможность ввода данных пользователем, а также получение инструкций (справки) по использованию формул для вычислений.
Program Zadanie7;
var moda,modb,ab,ug:real;
a1,a2,a3,b1,b2,b3:integer;
p:char;
begin
writeln('Vvedite koordinaty');
readln(a1,a2,a3,b1,b2,b3);
moda:=sqrt(sqr(a1)+sqr(a2)+sqr(a3));
modb:=sqrt(sqr(b1)+sqr(b2)+sqr(b3));
ab:=a1*b1+a2*b2+a3*b3;
ug:=ab/(moda*modb);
writeln('|a|=',moda:5:3);
writeln('|b|=',modb:5:3);
writeln('a*b=',ab:5:3);
writeln('cos alfa =',ug:5:3);
end.
Задание №8.
Для хранения сыпучих веществ применяется цилиндрический бункер с конической нижней частью, из которой выгружается содержимое бункера (рисунок 3.1).
Рисунок 3.1 – Бункер для хранения сыпучих веществ
До
тех пор, пока высота h
засыпанного
в конус вещества не превышает высоты
конической части бункера hконуса,
его объем вычисляется по формуле
,
где rh
–
радиус конической части бункера на
высоте h,
связанный
с высотой h
соотношением
.
Если высота хранящегося в бункере
продукта
h
превышает высоту его конической части,
то к объему конуса следует прибавить
объем цилиндрической части бункера
.
Используя данные таблицы Г.4, вычислить
объем бункера и значение угла .
Вывести на экран данные, иллюстрирующие
зависимость объема засыпанного вещества
от высоты h
для набора значений в диапазоне от 0 до
h
(с шагом 0.25).
Язык программирования для выполнения расчетно-графической работы выбирается согласно рекомендациям преподавателя. Все задания выполняются на дискете и оформляются пояснительной запиской. Пояснительная записка должна содержать вариант задания, блок-схему, текст программы и полученные результаты.
Program zadanie8;
Var
hk,h,R,xh,rh,V,f:real;
b:boolean;
Begin
Writeln('Vvedite h(konusa),h,R:');
Read(hk,h,R);
xh:=0;
b:=false;
While xh<=h do
begin
If xh<=hk then
begin
rh:=xh*(r/hk);
V:=V+(((pi*sqr(rh))/3)*xh);
end else
begin
b:=true;
V:=V+(pi*sqr(R)*(xh-hk));
end;
Write('xh = ',xh:1:2,' V = ',v:1:2);
If not b then Writeln(' -konus') else
Writeln(' -cylinder');
xh:=xh+0.25;
end;
f:=arctan(R/hk);
Writeln('Ugol = ',f:1:2);
End.
