Курсовая работа: Алгоритмизация и программирование разветвляющихся процессов

f:text;

z:extended;

Begin

clrscr;

assign(f,'Otvet.txt');

rewrite(f);

a:=0;b:=0;c:=0;n:=3;

for j:=1 to n+3 do begin

a:=a+sin(j); c:=c+j*j*j+j; end;

for j:=2 to n+3 do begin

b:=b+1/ln(j);end; d:=a+b+c;

x4:=5*4-80;x7:=5*7-80; x11:=5*11-80; x15:=5*15-80; x25:=5*25-80;x:=-80; for i:=1 to 131 do begin

if x<=x4 then begin

if (x>1) and (a>1) then begin

z:=b*SQRT(x)+SQRT(ln(a*x))+c*x*x*x+d*exp((1/10)*ln(x));

writeln(f,'x=',x:6,' A[',i,']=',z:6:3);

end

else writeln(f,'x=',x:6,' A[',i,']=net znacheniy');

end;

if (x4<x)and(x<=x7) then begin

if (x>0) then begin

z:=a*exp(3*ln(cos(ABS(x))))+b*sin(d*x)+exp(4*(sin(x)/cos(x)))+d*ln(x)*ln(x);

writeln(f,'x=',x:6,' A[',i,']=',z:6:3);end else

writeln(f,'x=',x:6,' A[',i,']=net znacheniy');

end;

if (x7<x)and(x<=x11) then begin

if (x>0) and (x/d>=0) then begin

z:=ln(abs(a*x))+b*cos(x*x*x*x)*sin(1/(x*x*x))-c*ln(x)*ln(x)*ln(x)+sqrt(x/d);

writeln(f,'x=',x:6,' A[',i,']=',z:6:3); end