1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
#Angabe der Anzahl der Ecken des Vielecks die in den Kreis gelegt werden
use constant PI => 3.1415926535;
sub tan { sin($_[0]) / cos($_[0]) }
print"Anzahl der Ecken_INNEN :\n";
$ecke =<STDIN>;
chomp $ecke;
print"Höhe:\n";
$pi = sin(PI/$ecke)*$ecke;
print "Der Umfang Pi nähert sich $pi.\n";
print"Anzahl der Ecken_aussen :\n";
$eckea =<STDIN>;
chomp $eckea;
$pia = tan(PI/$eckea)*$eckea;
print "Der Umfang Pi nähert sich $pia.\n";
Guest Dennisich erinnere mich daran dass man eine variable mit z.b i=i+1 gegen einen wert laufen lässt um so etwas zu erreichen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!perl
$| = 1;
use strict;
use warnings;
my $PI = 3.1415926535;
my $ok = 3.141592653;
my ($ecken, $steps, $pi_i, $pi_a);
$ecken = 30000;
$steps = 2000;
$pi_i = 1;
$pi_a = 2;
#Angabe der Anzahl der Ecken des Vielecks die in den Kreis gelegt werden
print "\n\n\t\tSIN\t\t\tTAN\n";
print "\t\t(Innenecken)\t\t(Aussenecken)\n";
while ($pi_i lt $pi_a) {
$ecken = $ecken + $steps;
$pi_i = sin($PI/$ecken)*$ecken;
$pi_a = tan($PI/$ecken)*$ecken;
print ":$steps:\t$ecken\t$pi_i\t$pi_a\n";
if ($pi_i gt $ok) {
print "\n\nPI durch $ecken Innenecken funden!!!\n\n";
last;
}
if ($pi_a lt $ok) {
print "\n\nPI durch $ecken Aussenecken gefunden!!!\n\n";
last;
}
if ($ecken > 101650) { $steps = 1;}
else {
if ($ecken > 101640) {$steps =2;}
else {
if ($ecken > 101600 ) { $steps = 4;}
else {
if ($ecken > 101400) { $steps = 20;}
else {
if ($ecken > 101000) { $steps = 120;}
else {
if ($ecken > 98000) { $steps = 400;}
else {
if ($ecken > 80000) { $steps = 1200;}
else {
if ($ecken > 60000) { $steps = 1800;}
} } } } } }
}
sub tan { sin($_[0]) / cos($_[0]) }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
#!/usr/bin/perl $|++;$_L=$K= '.';$([199].=$_L.=join 10 ,<{\\{,\\}}>; for((@()){ undef$ };*::a={a,$K.$ T,*$=\$:};$$=Y x(((666)));{$; =$$?join$$,$$,$a {a}:$_L;$;=~tr )Y).);**= \$$$;$*=l1 unless 0|| defined $*;$*=~# s{$a{a}} $die unless$g; for($S=$*.$} ){($*)=m(^(?: $;)*($a{a}*) \z)x;$==s $\$;$\$\$$xg ;;y;Y;;dc;y;Y ;z;;m.\.*..[$} =$& ]}redo if chop$$ ;}if(($! =$==~y cccc )!=!!$!){$= -=$=;$__ ++;}$__.=$= ;$__=~s"^(.+)([ -8])"\2"and do{print$1, $K;$T.=chop$K}} print "$__\n"