.


- 2


, : x = a x = a + 1.

 

 

Program

Function_Continuous1;

uses WinCrt;

var

a : integer;

x, alfa : real;

{---------------------------------------------------------------------------------------}

Function Fx(a : integer; x, alfa : real) : real;

begin

if x < a

then Fx := 0

else if x = a + alfa

then Fx := alfa

else Fx := 1

end;

{---------------------------------------------------------------------------------------}

begin

write(' , ');

readln(a);

write(' '); readln(x);

if (x - a < 1) and (x - a > 0) then alfa := x - a

else alfa := 0;

write(' ', Fx(a, x, alfa):4:6)

end.

 

 

2. X . p(x) = A, a

x
b p(x) = 0, x < a x > b. A.

 

 

(3') :

A:

 


Program Problem2;

uses WinCrt;

var

AA, a, b : real;

begin

write(' '); readln(a);

write(' '); readln(b);

AA := 1/(b - a);

writeln(' A ', AA:6:6)

end.

 




- -  - -  - -