Select Code to Download

    approx(dsin(30))
    approx(dcos(30))

    approx($num, 7);  # will return 0.5 for 0.500000001 but 0.50000001
+ if
                      # that is passed as it only has 6 zeros.

sub approx {
    my ( $num, $dp ) = @_;
...
        return $num;
    }
}