Fakultät

KinX · 21. November 2004, 16:57

Also ich will mit Hilfe des Rekursiven Porgrammierens die Fakultät haben:
5! = 5*4*3*2*1...
Ich habe 1 Edit-Feld für die Eingabe von z.
Ich denke mal, dass in der function der Fehler liegt..

Quellcode

function Rfak(z:integer):integer; //Funktion Rfak(Fakultät)
begin
if z=0 then Rfak:=1
else
Rfak := z * Rfak(z-1);
end;

Hier die Procedure

Quellcode

procedure TForm1.Button2Click(Sender: TObject); //Procedure Rfak
var z:integer; erg:real;
begin
z:=strtoint(edit4.text);
erg:=Rfak(z);
edit5.Text := floattostr(erg);
end;

Torben Brodt · 21. November 2004, 21:16

was für ein ergebnis hast du denn raus?

ich weiß nur, dass man es mit C++ folgendermaßen löst

Quellcode

Zahl = StrToInt(Edit1->Text);
x = Zahl;
while(Zahl>1)
{
Zahl = Zahl-1;
x = x * Zahl;
}
Label1->Caption = x;

kanns sein, dass drüber noch ein Rfak = z muss?

wulfgang · 21. November 2004, 21:16

Quellcode

if z=0 then Rfak:=1

ich würd sagen z=1 und nicht z=0
bekommst du irgendwelche fehlermeldungen? was passiert denn?
@Torben lol - im selben moment gepostet! :lol:
dein code ist nicht rekursiv in dem sinne, dass keine sich selbst aufrufende funktion verwendet wird.

KinX · 21. November 2004, 23:19

@Wulfgang
die Fakultät von 0! ist aber 1

kanns sein, dass drüber noch ein Rfak = z muss?

ne, weil das 2 verschiedene Dinge sind

wulfgang · 22. November 2004, 19:06

ich glaub ich hab den fehler. erg ist real, deine funktion aber integer. das passt nicht zusammen. stell erg einfach auf integer.

KinX · 22. November 2004, 22:44

Quellcode

function Rfak(z:integer):integer; //Funktion Rfak(Fakultät)
begin
if z=0 then Rfak:=1
else
Rfak := z * Rfak(z-1);
end;
procedure TForm1.Button1Click(Sender: TObject); //Procedure Rfak
var z:integer; erg:integer;
begin
z:=strtoint(edit1.text);
erg:=Rfak(z);
edit2.Text:=inttostr(erg);
end;

Alles anzeigen

Also das Programm öffnet sich, aber wenn ich eine Zahl in Edit1.text eingebe und dann auf den Button clicke passiert nichts!

wulfgang · 23. November 2004, 18:13

case sensitive!
edit1 != Edit1

KinX · 23. November 2004, 23:51

es will trotzdem net funktionieren

wulfgang · 24. November 2004, 17:22

heißt edit2 denn edit2?

KinX · 24. November 2004, 22:33

ja...

wulfgang · 25. November 2004, 18:08

hm in dem code da oben ist erg immer noch real und es wierdf auch floattostr anstatt inttostr verwendet.

KinX · 25. November 2004, 22:29

hatte mittlwerweile einen neuen code gepostet

wulfgang · 26. November 2004, 21:18

ahja stimmt. also der code ist soweit richtig, der fehler muss in der graphischen ebene liegen. entweder ein feld falsch benannt oder guck mal ob bei dem button überhaupt über onclick die procedure aufgherufen wird.

Max123 · 4. Januar 2006, 02:15

"KinX" schrieb:

@Wulfgang
die Fakultät von 0! ist aber 1

0! = 1
1! = 1
2! = 2
3! = 6

ABER:
3! = 3*2*1
2! = 2*1
1! = 1
0! = ? = 1 (per Definition)

nur als überlegung.

hier mal mein codevorschlag:

Quellcode

function Rfak(z:integer):integer; //Funktion Rfak(Fakultät)
begin
if z<0 then
//fehler ausgeben
else
begin
if z=0 then Rfak:=1
else
while z>0 do
Rfak := z * Rfak(z-1);
end
end;

Alles anzeigen

damit das rekursive auch irgendwann ein ende hat.
ich geb keine garantie, nur eine überlegung

Tommer · 21. Februar 2006, 16:46

huhu,

1. @Wulfgang: in Delphi ist die Groß- und Kleinschreibung egal
2. also die funtion von KinX funktioniert so wie sie soll, jedenfalls bei mir *g* - vll guckste doch einfach nochmal ob das wirklich die richtigen Eingabefelder sind. Es kann auch manchmal sein, dass wenn man mit dem Formular bisschen unbedacht rumspielt und Eingabefelder löscht, die trotzdem noch in der Klassendefinition der Form vorkommen und so der Compiler keinen Fehler anzeigt, die Felder aber eigentlich nicht mehr sichtbar sind und nicht als VCL-Komponente im Formular auftauchen. Wenn du dich da nich so auskennst empfehle ich einfach nen neues Projekt mit Formular zu erstellen und die Funktion nochmals mit neuen Komponenenten sauber ausführen

Bye tom

Fakultät

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

"KinX" schrieb:

Quellcode

Teilen

Benutzer online 1

Tags