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