Hallo,
ich habe mal wieder ein Problem.
Ich möchte ein Bruchrechenprogramm mit Selbsteingabe schreiben.
Habe schon die Randomize-Ausgabe von Brüchen.
Nun möchte ich, das man die Lösung selbst eingeben kann und das Programm dann nur noch überprüft.
Zerbreche mir seit Tagen den Kopf darüber, wie das gehen soll.
Also wende ich mich an euch. Wie geht das?
Gruß und im Hoffen auf eine Antwort
timmy19
PS: Hier mal mein bisheriger Quelltext:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f, gggt : integer ;
begin
a:= IntEdit1.Value ;
b:= IntEdit2.Value ;
c:=IntEdit3.value ;
d:= IntEdit4.Value ;
e:= IntEdit5.Value ;
f:= IntEdit6.Value ;
randomize ;
a:=random(10) ;
IntEdit1.Value:= a ;
randomize;
b:= random(10) ;
IntEdit2.Value:= b ;
randomize;
c:= random(6) ;
IntEdit3.Value:= c ;
randomize;
d:= random(10) ;
IntEdit4.Value:= d ;
ggT(c,d, gggT) ;
IntEdit6.Value:= gggt ;
IntEdit5.Value := IntEdit1.Value + IntEdit2.Value;
end;
procedure TForm1.ggT(c,d:integer; var ggTeiler: integer) ;
var merk :integer;
begin
repeat
merk:= c mod d ;
c:= d ;
d:=merk
until d= 0 ;
ggTeiler:=c
end; {of ggT}
end.