runden in Perl - #50204 (Allgemeines zu Perl)

root

2004-12-22 12:28

User since
2003-08-15
120 Artikel
BenutzerIn
[default_avatar]

Von einer "schwarzen Null" hab ich öfter schon in der Zeitung gelesen, aber eine -0??? Ist das dann die "rote Null"?

kann man nicht
einfach quadrieren und dann die wurzel draus machen und dann einfach

Code: (dl )

sub runden{
 my ($zahl, $stellen)=@_;
 $zahl = wurzel($zahl hoch 2);
 $stellen = 0 unless($stellen);
 my $multiplikator = 10 hoch $stellen; # weiß die syntax nicht
 return int($zahl*$multiplikator+0.5)/$multiplikator;
}

irgendwie so? $stellen sind die stellen auf die gerundet werden sollen.\n\n