Перевод Градусы <-> Радианы

Перевод Градусы <-> Радианы

function pergrad(x:fload):fload;
begin
pergrad:=x*pi/180
end;

function perrad(x:fload):fload;
begin
pergrad:=x*180/pi
end;