Group: comp.lang.fortran · Group Profile · Search for Number14 in comp.lang.fortran
Author: Wade Ward
Date: Nov 17, 2007 19:10
... = $no10 + $no11; my $upper= $no10 - $no11; my $notdone1 = 1; my $notdone2 = 1; my $temp= 42.1; my $exp = 1; my $epsilon = 2**(-1*$exp); my $number13 = 42; my $number14 = 42; while ($notdone1) { if ($upper <= $lower) { $temp = $upper; $upper = $lower; $lower = $temp; } $notdone1 = $notdone1 - 1; # end notdone1 while loop ##prelims for maine $avg = ($upper + $...
|