Select Code to Download

  my $c = 0;
  for ($x = 0; $x <= 1; $x += 0.05){
...
    print "[$c] x= $x (".sprintf("%20.40f",$x).") \n";

    }

[1] x= 0 (0.0000000000000000000000000000000000000000)
[2] x= 0.05 (0.0500000000000000027755575615628913510591)
...
[18] x= 0.85 (0.8500000000000001998401444325281772762537)
[19] x= 0.9 (0.9000000000000002442490654175344388931990)
[20] x= 0.95 (0.9500000000000002886579864025407005101442)