 |
Корень
function kor(a,b:fload):fload;
begin
textcolor(12);
kor:=0;
if b=0
then
writeln('Недопустимая степень!')
else
begin
b:=1/b;
if a>=0
then
if a=0
then
kor:=0
else
kor:=exp(b*ln(a))
else
if (b<1)and(b>-1)
then
if frac(1/b)<>0
then
writeln('Неверная степень!')
else
if frac((1/b)/2)=0
then
writeln('Неверная степень!')
else
kor:=-exp(b*ln(-a))
else
if frac(b)<>0
then
writeln('Неверная степень!')
else
if frac(b/2)=0
then
kor:=exp(b*ln(-a))
else
kor:=-exp(b*ln(-a));
end;
textcolor(15);
end;
|
