jargar
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Program CW_3_1;
const
e = 2.72;
var
u, a, b, c, x1, x2, y1, y2, x, y : real;
mnx,mny:boolean;
{-------------------------------------------}
procedure KUX;
const
c = -1.5;
var
D : real;
begin
mnx:=false;
D := sqr(b) - 4 * a * c;
if D > 0 then
begin
x1 := (b + sqrt(D)) / (2 * a);
x2 := (b - sqrt(D)) / (2 * a);
end
else
begin
if D = 0 then
begin
x1 := (-b)/(2*a);
end
else
mnx:=true;
end
end;
{-----------------------------------------------}
procedure KUY;
const
a = 2;
b = 1;
var
D : real;
begin
mny:=false;
D := sqr(b) - 4 * a * c;
if D > 0 then
begin
y1 := (b + sqrt(D)) / (2 * a);
y2 := (b - sqrt(D)) / (2 * a);
end
else
begin
if D = 0 then
begin
y1 := (-b)/(2*a);
end
else
mny:=true;
end
end;
{----------------------------------------------}
BEGIN
b := 1.5;
repeat
a := 10;
c := - 20;
repeat
KUX;
KUY;
if (not mnx) and (not mny) then
begin
x := x1 + y1;
y := x2 - y2;
u := exp(x * ln(e)) - exp(y * ln(e));
writeln('u = ', u:3:2);
end;
a := a - 1;
c := c + 2;
until (a < 1) and (c > -2);
b := b - 0.5;
until b < 1;
readln;
end.
|
