PROGRAM PR11 Var dx real Begin Write dx ReadLn dx Repeat exp sin Exp L

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
PROGRAM PR11;
Var a,b,dx:':real;
Begin
Write ('a,b,dx:');
ReadLn(a,b,dx);
x:=a;
Repeat
y:=(2*exp(sin(2*x))+Exp(x+1*Ln(5))*Ln(x))-(4*Ln(abs(exp(4*Ln(x))))+sqrt(4.456+
/arctan(x-0.25))/Exp(Pi*Ln(x)-cos(2.01+x));
WriteLn('X=', x:0:3,' y=',y:0:4);
X:=x+dx
Until X>b'
End.