Projekt mit
1 €
unterstützen?
So geht das *:


Nr. 3 - Delphi - Fakultät!


Wir nehmen an, wir sind in der achten Klasse und können etwas Delphi. Wir werden nun vom Mathelehrer beauftragt ein Programm zu schreiben, welches uns einfach die Fakultät einer Zahl.

Bei den ersten Tests funktioniert alles. Damals wissen wir noch nichts von Planung und so kommt es, dass wir - schließlich haben unsere letzten Tests funktioniert - ganz unvorhergesehen von unseren Eltern gerufen werden, dass wir doch endlich den Abwasch machen!

Jeder der auf sich gestellt ist, weiß nun was passiert. Schnell ändert man noch etwas, was einem selbst aufgefallen ist, und dann verlässt man den PC.

Wir kommen zurück, in Erinnerung, dass ja alles funktioniert hat, schaun wir nochmal ob es compiliert... PRIMA! Werfen das Programm auf den USB-Stick für morgen und gehen an die übrigen Hausaufgaben.

Am Nächsten Tag, Beamer eingeschaltet, Schul-PC hochgefahren, wir starten das Programm Fakultaet.exe, doch egal welche Zahl wir eingeben, es kommt genau die Zahl wieder als Ergebnis.

Was ist hier passiert? Zuhause sitzen wir nun vor dem Source, ignorieren unsere Eltern, die uns zum Essen rufen, und suchen den Fehler...

procedure TfmHomework.BtnCalcFacClick( Sender: TObject);
var
  i, f, res : Integer;
begin
  f := StrToInt( edFAK.Text);
  res := 1;
  for i:=1 to f do;
  begin
    res := res*i;
  end;
  ShowMessage( 'Fakultät von ' + IntToStr( f) + ' = ' + IntToStr( res));
end;
Habt ihr den Fehler gefunden?

 

Ein Tipp anzeigen.

 

 

Die Lösung anzeigen.

 

 


Da das Kommentarmodul dieser Seite zur Zeit neu überarbeitet werden muss, sendet bitte alle Fragen, Anregungen oder Probleme mit Betreff zu welchem Thema es sich handelt an folgende Mailadresse:



www.marco-hetzel.de
www.delphi-lernen.de
www.lazarus-lernen.de

© 2006-2019 by Marco Hetzel , last modified 01.11.2018, 11:28

(* Unterstützung dient der Aufrechthaltung laufender Kosten für dieses Projekt.)