#!/usr/bin/perl
#
# compute values of sin(x) for x = 0 to pi/2
#

$mypi = 3.14159;
$dx = 0.01;

for ($x = 0; $x < $mypi/2.0; $x += $dx) {

  $y = sin($x);
  printf " x %lf  sin(x) %lf \n", $x, $y;

}

exit 0;
