T
Trekkii
Gast
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 }
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: