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

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

end;

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

if (x-5*x*x*x>0) and (d>0) and (x*x*x-2*d<>0) and (exp(3*ln(x+c))>=0) then begin

z:=a*exp(-4*x)+b*ln(x-5*x*x*x)+c*SQRT(exp(3*ln(x+c)))+ln(d)/(x*x*x-2*d);

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

end

else

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

end;

if (x15<x)and(x<=x25) then begin

if (x<>0) and (x-d>0) and (d>=0) then begin

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

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

end

else

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

end;

if x>x25 then begin

z:=0;

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

x:=x+1;

end;

End.

Результаты задачи №2.

x= -80 A[1]=net znacheniy

x= -79 A[2]=net znacheniy

x= -78 A[3]=net znacheniy

x= -77 A[4]=net znacheniy