[mirrors/Programs.git] / perl / pi.pl

#!/usr/bin/perl

use strict;
use warnings;
use Math::Trig;

#$radians = deg2rad($degrees);
#$degrees = rad2deg($radians);

print "3.14159265358979323846264338327950288419716939937510\n";
#for (my $c=1;$c>0;$c++) {
for (my $c=271842800;$c>0;$c++) {
	printf '%.80f', ($c * sin ( deg2rad( 180 / $c ) ));
	print "                   " . $c . "            \r";
}

#my $pi = (4 * atan2(1,1));
#print $pi;
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use Math::Trig;
	6
	7	#$radians = deg2rad($degrees);
	8	#$degrees = rad2deg($radians);
	9
	10	print "3.14159265358979323846264338327950288419716939937510\n";
	11	#for (my $c=1;$c>0;$c++) {
	12	for (my $c=271842800;$c>0;$c++) {
	13	printf '%.80f', ($c * sin ( deg2rad( 180 / $c ) ));
	14	print " " . $c . " \r";
	15	}
	16
	17	#my $pi = (4 * atan2(1,1));
	18	#print $pi;