Fakultät Programm

T

Trekkii

Gast

• 22. Februar 2018

• #1

Hallo zusammen,

ich habe das folgende Programm zur Berechnung der Fakultät in Pascal geschrieben. Wenn ich als einzulesende Zahl die 8 eingebe, wird die Berechnung nicht richtig ausgeführt. Hat jemand eine Idee, woran das liegen könnte?

Danke und Grüße

[\code]
program Fakultaet (input, output);
{ berechnet die Fakultaet einer einzulesenden
* natuerlichen Zahl }

type
tNatZahl = 0..maxint;

var
i : tNatZahl; { Laufvariable }
Zahl, { einzulesende Zahl }
Ergebnis : integer;

begin
write ('Fuer welche Zahl soll die Fakultaet ',
'berechnet werden? ');
readln (Zahl);
if Zahl < 0 then
writeln ('Fuer negative Zahlen ist die ',
'Fakultaet nicht definiert.')
else
begin
Ergebnis := 1; { Initialisierung }
for i := 1 to Zahl do
Ergebnis := Ergebnis * i;
writeln ('Die Fakultaet von ', Zahl, ' lautet ',
Ergebnis, '.')
end
end. { Fakultaet }

Code:

 

Zuletzt bearbeitet: 22. Februar 2018

P

Plutos

Gast

• 22. Februar 2018

• #2

Für 8! weiß ich es nicht, aber deine Methode kann auch für 0! kein korrektes Ergebnis liefern.

 

T

Trekkii

Gast

• 22. Februar 2018

• #3

@Plutos

Moin,

also für 0! bis 7! werden bei mir die korrekten Werte ausgegeben. Ab 8! macht das Programm alles, aber keine Fakultät Berechnung

 

powerfx

Admiral

Registriert

Apr. 2009

Beiträge

9.351

• 22. Februar 2018

• #4

8! ist größer als 32767. Das passt wohl nicht mehr in den Datentyp.

 

Z

Zerstoerer

Lieutenant

Registriert

Okt. 2010

Beiträge

685

• 22. Februar 2018

• #5

Vielleicht beginnst du erstmal den Code richtig als Code zu markieren, damit man das mal etwas besser lesen kann...

 

Valeria

Admiral

Registriert

Nov. 2013

Beiträge

7.478

• 22. Februar 2018

• #6

Müsst doch funktionieren außer ich verschau mich?
Hab das mal in etwa nachgecoded in C#:

Code:

int n = Convert.ToInt32(Console.ReadLine());
int erg = 1;

for (int i = 1; i <= n; i++)
{
   erg = erg * i;
}

Console.WriteLine("Ergebnis: " + erg.ToString());
Console.ReadKey();

P.S.: Lol 16bit Integer? Kann natürlich sein.

 

Zuletzt bearbeitet: 22. Februar 2018

T

Trekkii

Gast

• 22. Februar 2018

• #7

@Powerfx: Das müsste die Lösung sein, stimmt!

@Zerstoerer jo stimmt

@Theobald93: Glaub der Fehler lag in der Bereichsüberschreitung von integer, wie Powerfx angemerkt hatte.

 

powerfx

Admiral

Registriert

Apr. 2009

Beiträge

9.351

• 22. Februar 2018

• #8

Theobald93 schrieb:

Hab das mal in etwa nachgecoded in C#:

Zum Vergrößern anklicken....

Funktioniert nur bis 12!

 

Valeria

Admiral

Registriert

Nov. 2013

Beiträge

7.478

• 22. Februar 2018

• #9

Da ich nie so Mathe-Funktionen brauche, ist das völlig ausreichend xD
Und wenn dann halt Int64

 

T

Trekkii

Gast

• 22. Februar 2018

• #10

Danke euch

 

E

Egon82

Lt. Junior Grade

Registriert

Okt. 2010

Beiträge

448

• 22. Februar 2018

• #11

Jup Int64 statt Integer für Ergebnis löst das Problem. Vorerst.

 

P

Plutos

Gast

• 22. Februar 2018

• #12

Trekkii schrieb:

@Plutos

Moin,

also für 0! bis 7! werden bei mir die korrekten Werte ausgegeben. Ab 8! macht das Programm alles, aber keine Fakultät Berechnung

Zum Vergrößern anklicken....

Wirklich? Dieser Code liefert bei Eingabe "0" also für 0! den Wert 1? Ich hätte eher entweder einen Fehler bei der Schleife [for i=1 to 0 do...] oder das Ergebnis 0 erwartet.
edit: okay, bei 0 wird die Schleife wahrscheinlich gar nicht erst durchlaufen. Das Ergebnis scheint mir dann aber mehr zufällig richtig zu sein.

 

Zuletzt bearbeitet von einem Moderator: 22. Februar 2018

powerfx

Admiral

Registriert

Apr. 2009

Beiträge

9.351

• 22. Februar 2018

• #13

Ist doch richtig. 0! = 1
Damit geht er gar nicht in die Schleife und es bleibt bei der Initialisierung.