Bruchrechenprogramm mit Selbsteingabe

[DeddyH]

Definiere die beiden Zahlen als Felder Deines Formulars und stelle sie in der Aufgabe dar. Bei der Lösung errechenst Du das Ergebnis und vergleichst mit der Eingabe... fertig.

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
  private
    Zahl1, Zahl2: integer;
  ...
  end;

procedure TDeinForm.NeueAufgabe;
begin
  Zahl1 := Random(...);
  Zahl2 := Random(...);
  EditZahl1.Text := IntToStr(Zahl1);
  EditZahl2.Text := IntToStr(Zahl2);
end;

procedure TDeinForm.ButtonLoesungClick(Sender: TObject);
var
  Ergebnis: integer;
begin
  Ergebnis := Berechnung_mit_Zahl1_und_Zahl2;
  if IntToStr(Ergebnis) = EditLoesung.Text then
    Applaus;
end;