Арккотангенс

Арккотангенс

function arcctg(x:fload):fload;
var result:fload;
begin
textcolor(12);
arcctg:=0;
result:=0;
if x=0
then
writeln('Неверный "x"!')
else
result:=pi/2-arctan(x);
arcctg:=(180/pi)*result;
textcolor(15);
end;