 |
Program Prim1;
var
a,x,y: real;
begin
writeln(' , x');
readln(a,x);
if x>a then
y:=a*sin(x)
else
y:=1- sqr(x);
writeln('y=', y:7:2);
end.
: :
I a = 2.3; x = 5.5 y = -1.62
II a = 12.1; x = 3.7 y = -12.69
.
writeln('y=', y:7:2) y:7:2 y, 7 , , 2 .
2. y(x)
Program Prim2;
var
a,b,x,y: real;
begin
writeln(' a, b, x');
readln(a,b,x);
if x<=1 then y:=abs(a*x+b)
else
if x>=2 then y:=exp(-x)+1
else y:= exp(4.5*ln(x));
writeln('y=', y:5:2);
end.
.
x4.5
:
x4.5=e4.5*lnx
: :
I a = 1.4; b = 3; x = -5.2 y= 4.28
II a = 2.8; b = -4; x = 1.5 y= 6.20
III a = 2; b = 6; x = 4 y= 1.02
3. y(x)
.
, (, ) () [1, . 17], , 1/(a+x) .
Program Prim3;
label 1;
var
a,b,x,y: real;
begin
writeln(' a, b, x');
readln(a,b,x);
if x<=b then if (a+x)<>0 then y:=1/(a+x)
else
begin
writeln(' ');
goto 1;
end
else y:=1+b*x;
writeln('y=', y:6:3);
1: end.
.
1. if else end .
2. goto 1; 1 , , (1, . 47).
, : label 1;
: :
I a = 4.35; b = 3; x = 2.85 y= 0.139
II a = -1; b = 5; x = 1
III a = 2.5; b = 3.7; x = 6.4 y=24.680
4. y(x)
.
, (cx+d) (dx-3) , .. , , .
 |
Program Prim4;
label 10;
|
|
|
var
c,d,x,y: real;
begin
writeln(' c, d, x');
readln(c,d,x);
if x<=c then if c*x+d>0 then y:=ln(c*x+d)
else
begin
writeln(' ');
goto 10;
end
else if x>=d then y:=cos(x-c)
else
if d*x-3>=0 then y:=sqrt(d*x-3)
else begin
writeln(' ');
goto 10;
end;
writeln('y=', y:8:3);
10: end.
: :
I c = 3.26; d = 5.5; x = 8.12 y = 0.147
II c = 12; d = -14; x = 1
III c = 2.36; d = 10; x = 1.5 y = 2.606
IV c = 2; d = 8; x = 5 y = 6.083
V c = -4; d = 1; x = -2
.
.
k , (k:=0). (, c*x+d ) k , (k:=1).
.. k .
 |
Program Prim4-1;
var c,d,x,y: real;
k: integer;
begin
writeln(' c, d, x');
readln(c,d,x);
k:=0;
if x<=c then if c*x+d>0 then y:=ln(c*x+d) else k:=1
else if x>=d then y:=cos(x-c)
else if d*x-3>=0 then y:=sqrt(d*x-3) else k:=1;
if k=0 then writeln('y=', y:8:3) else writeln(' ');
end.
