Hallo,
ich bin mal wieder an einer einfachen Frage gescheitert. Ein kleines Programm soll meinen jüngsten Enkel in Mathematik motivieren. "Computer ist viel besser als Buch" (O-Ton).
Die Addition ist kein Hindernis, aber bei der Subtraktion komme ich nicht weiter. Da in der ersten Klasse negative Zahlen nicht bekannt sind muss der Fall Minuend < Subtrahend irgendwie ausgeschlossen werden.
Bisjetzt bin ich soweit:
Delphi-Quellcode:
procedure TForm1.btnSubtraktionClick(Sender: TObject);
begin
randomize; // Initialisierung von Random
edtMinuend.Caption := IntToStr(Random(10));
edtSubtrahend.Caption := IntToStr(Random(10));
edtDifferenz.Caption := '';
lblHinweis.color := clNone;
end;
procedure TForm1.btnPruefClick(Sender: TObject);
var
a, b, c: Integer;
begin
a := StrToInt(edtMinuend.Text);
b := StrToInt(edtSubtrahend.Text);
// hier sollte gprüft werden a< b ist
// und dann die procedure TForm1.btnSubtraktionClick(Sender: TObject)
// erneut ausgeführt wird, bis a >= b ist (repeat until?)
c := a - b;
if edtDifferenz.Caption = IntToStr(c)
then
begin
lblHinweis.Visible := True;
lblHinweis.Color := clLime;
end
else
begin
lblHinweis.Visible := True;
lblHinweis.Color := clRed;
end;
end;
Die Kommentare habe ich für mich eingefügt. Sicher gibt es da eine ganz simple Lösung.
Helft mir mal bitte auf die Sprünge!
vG
Ulrich