Bruchrechenprogramm mit Selbsteingabe

[DeddyH]

Ich habe lange gebraucht, um das zu sehen, aber Du hast eine Variable namens ggT deklariert, die Du gar nicht benutzt. Außerdem werden c und d nicht initialisiert, daher kannst Du auch auf sie verzichten und gleich Zahl1 und Zahl2 übergeben.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Ergebnis, gggT:integer ;
begin

  Ergebnis:= Zahl1 + Zahl2 ;

  ggT(Zahl1, Zahl2, gggT) ;

  If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then
    Showmessage('Sehr gut gemacht, weiter so!!!') ;


end;

[timmy19]

Jetzt läuft das Programm zwar, aber es wird mir nicht die Rückmeldung gegeben ob das Ergebnis richtig war. Was ist da jetzt wieder falsch?

Und wie stellt man Randomize so ein, das es z.B. nur die Zahlen 2-10 ausgibt?

[DeddyH]

Du meinst, die beiden Vergleiche getrennt auswerten?
[edit]

Delphi-Quellcode:

if Bedingung1 then
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else if Bedingung2 then
  //nur Bedingung2 trifft zu
else
  //komplett falsch;

Und zum Randomize: nimm doch Random(9) und addiere 2 dazu [/edit]

[timmy19]

Zitat von DeddyH:

Du meinst, die beiden Vergleiche getrennt auswerten?

Nein, ich will eine auch Showmessage ausgeben, wenn das Ergebnis falsch ist.
Zudem gibt er mir nicht gerade gar keine Showmessage aus auch wenn das Ergebnis richtig ist...

[DeddyH]

Siehe mein Edit im letzten Post.

[timmy19]

Zitat von DeddyH:

Delphi-Quellcode:

if Bedingung1 then
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else if Bedingung2 then
  //nur Bedingung2 trifft zu
else
  //komplett falsch;

Das kapier ich jetzt grad gar nicht, kannst dus mir genauer erklären? Tut mir echt leid...

[Bummi]

Für die Basics:

http://www.christian-stelzmann.de/artikel/crashkurs.htm

[DeddyH]

Und nochmal anders formatiert:

Delphi-Quellcode:

if Bedingung1 then
  //Bedingung1 trifft schonmal zu
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else
  //Bedingung1 triff nicht zu
  begin
    if Bedingung2 then
      //nur Bedingung2 trifft zu
    else
      //komplett falsch;
  end;

[timmy19]

Zitat von DeddyH:

Und nochmal anders formatiert:

Delphi-Quellcode:

if Bedingung1 then
  //Bedingung1 trifft schonmal zu
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else
  //Bedingung1 triff nicht zu
  begin
    if Bedingung2 then
      //nur Bedingung2 trifft zu
    else
      //komplett falsch;
  end;

Ok, jetzt gibt er mir wenigstens Showmessages aus. Aber teilweise auch 2 Stück, wie kann man das lösen?

[DeddyH]

Woher soll ich das wissen, ich weiß doch nicht, was Du geschrieben hast?