Dreistein

 


* Startseite     * Über...     * Archiv     * Gästebuch     * Kontakt



* Themen
     Willkommen
     Allgemeines
     * Variablen
     * Function
     * Procedure
     * String
     * Array
     FormObjekte
     * Button
     * CheckBox
     * Editfeld
     * Label
     * Listbox
     * RadioButton
     * Timer
     * Turtle
     Sortieralgorithmen
     * Arraysort
     * Bubblesort
     * Selection Sort
     * Quicksort
     Schleifen
     * repeat-Schleife
     * while-Schleife
     * for-Schleife
     Rekursion
     * Ackermann
     * Binominalkoeffizent
     * Fibonacci Zahlen
     * Fakultät
     * GGT
     * Kochfunktion
     * Sierpinskifunktion
     Nützliches
     * Hintergrundbild
     * Massenanzeige
     * Massenbenutzung
     * Schreibtischtest






* Binominalkoeffizent

Erklärung

Der Binominalkoeffizent berechnt ein Pascal'sches Dreieck, dabei berechnet es dieses aber immer nur bis zu der Stelle. Ein Overflow tritt ein, wenn die zweite Zahl gr??er ist, da es nicht m?glich ist, f?nf Tassen mit sechs Getr?nken zu f?llen.

edit Benny: Wer sagt das? :D
17.11.05 09:34


Quelltext

function bino(n,k: Integer): Integer;
begin
if (k = 0) or (k = n) then
result := 1
else
result := bino(n-1,k-1)+bino(n-1,k);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text := inttostr(bino(strtoint(edit1.text),strtoint(edit2.text)));
end;
17.11.05 09:04





Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung