Einzelnen Beitrag anzeigen

AneLSD

Registriert seit: 15. Mai 2013
7 Beiträge
 
#1

Pascalsches Dreieck o0

  Alt 27. Mai 2013, 17:40
Hallo, könnt ihr mir helfen ein Pascalsches Dreieck zu schreiben? ;/

So weit bin ich bis jetzt gekommen aber mehr schaffe ich einfach nicht und eine Rekursive Lösung habe ich bis jetzt noch nicht gefunden ...

Code:
function pas(reihe,wert:byte):longint;
begin
  if (wert=0) or (wert=reihe)
      then pas:=1
      else pas:=pas(reihe-1,wert-1) + pas(reihe-1,wert)
end;

procedure TPascal.b_berechne_zeileClick(Sender: TObject);
var i: integer;
    exponent: byte;
    zeile: string;
begin
  zeile:='';
  exponent:=spe_exponent.value;
  for i:=0 to exponent do
  zeile:=zeile+inttostr(pas(exponent,i))+' ';
  e_ausgabe.Text:=zeile;
end;

procedure TPascal.b_endeClick(Sender: TObject);
begin
  close;
end;

procedure TPascal.b_koeffizientClick(Sender: TObject);
var exponent, koeffizient: integer;
begin
  exponent:=spe_exponent.Value;
  koeffizient:=spe_koeffizient.value;
  e_koeffizient.Text:=inttostr(pas(exponent,koeffizient-1))
end;
Soo, das Dreieck soll dann in einer Memo oder ähnlichem ausgegeben werden

Ich hoffe ihr könnt mir helfen

Mfg Arne
  Mit Zitat antworten Zitat