2) Индивидуальные задания от университета

a) Составить алгоритм и программу для вычисления функции

Принять x = 0,198; d=3,107. Значения x, d , y вывести на печать.

Решение:

Математическая формулировка задачи:

Определяем значение y пользуясь функцией:

Исходные данные: x,y

Program func;

var y:real;z:real;

const x=0.198;

d=3.107;

begin

z:=3*sqr(x)+5*x+2;

if z>d then y:=sqrt(3*sqr(x)+5*x+2)+0.5

else if z<=d then y:=2*sqr(x)-5.5

else y:=x+1/x;

writeln('x=',x,'y=',y,'d=',d);readln;end.

b) В первый месяц работы нового цеха была введена в действие часть оборудования, проектная производительность которого составляет Q% от проектной производительности всего цеха. Остальное оборудование будет вводиться в действие через N месяцев. В первый месяц работы производительность нового оборудования составит R% проектной, а в каждой последующей будет увеличиваться на S% от производительности предыдущего месяца, пока не достигнет проектной. Составить алгоритм и программу вычисления роста производительности нового цеха в процентах P от проектной производительности по месяцам. Выполнить расчет для Q=40%, R=20%, S=30%, N=6.

Исходя из алгоритма составим программу для решения данной задачи:

PROGRAM rost;

VAR P,P1,P2,P3:real;M:real;

CONST Q=40;R=20;S=30;N=6;

begin M:=1;

for M:=1 to N do

begin P1:=Q*R/100*(1+S/100)*M-1;

if P1<=Q then P2:=P1 else P2:=Q; end;

begin P3:=P2+(100-Q)*R/100*(1+S/100)*M-N-1;

if M<=N then P:=P2 else

if (M>=N+1 and P3<100) then P:=P3 else

if (M>=N+1 and P3>=100) then P:=100 else; end;

begin M:=M+1;

if M>N then writeln('P=',P);readln;end;

end;

END.

c) При полностью открытом водопроводном кране вода, вытекающая из него, наполняет бак емкостью G за время T. Составить алгоритм и программу вычисления давления воды P в водопроводной трубе в атмосферах и выполнить расчет для P_a=1атм., =1г/см³, G=8л=8*10³ см³, g=981см/с², T=75с, =0,15см², S=3,2 см², k=10³.

Решение:

Математическая формулировка задачи:

Определяем давление воды в водопроводной трубе с помощью формулы

где P_a-атмосферное давление

ρ- плотность воды

S-площадь поперечного сечения водопроводной трубы

σ- площадь поперечного сечения отверстия клапана открытого крана

g – ускорение силы тяжести

k –коэффициент пересчета давления в атмосферы

Исходные данные: P_{a ,}ρ, G, k, g, T, σ, S

Решением задачи является алгоритм линейной структуры,схема которого представлена на рисунке 1

рисунок 1

Исходя из алгоритма составим программу для решения данной задачи:

program davl;

var P:real;

Const

Pa=1; ρ =1;G=8000;g =981;T=75; =0.15;S=3.2;k=10000;

Begin

P:=Pa+ ρ *sqr(G)/2*k*g*sqr(T)*(1/sqr()-1/sqr(S));

writeln ('давление воды в водопроводной трубе:',P,'атмосфер'); readln; end.