#!usr/bin/perl use CGI::Carp qw(fatalsToBrowser); (my $n, my $k) = split(/&/, $ENV{'QUERY_STRING'}); unless( $n ) { $n = 4 } unless( $k ) { $k = 2 } $n =~ s/n=//g; $k =~ s/k=//g; #________________________________________________________________________________________ print "Content-type: text/html\n\n"; print <<"ENDE"; Der Binominalkoeffizient

Der Binominalkoeffizient

Der Binominalkoeffizient bezeichnet eine verkürzte Schreibweise von Fakultäten und ist hilfreich bei der Verwendung eines Pascalschen Dreiecks.

Geschrieben und gesprochen wird der Binominalkoeffizient Zahl über Zahl



Berechnen für beliebige Zahlen:
über


Ergebnis:

ENDE print bko($n, $k); print "\n"; #________________________________________________________________________________________ sub bko # Berechnung des Binominalkoeffizienten # Desc : Berechnet n über k nach n! / (n - k)! * k! # Syntax : bko( n, k ) { my $n = shift(); my $k = shift(); my $b = 0; print "$n! / ($n - $k)! * $k! = "; return( &Fak($n) / (&Fak($n - $k) * &Fak($k))."\n" ); } sub Fak { my $n = shift(); my $Fak = 1; for (my $i = 1; $i <= $n; $i++) { $Fak *= $i; } return($Fak); }