Bruchrechenprogramm mit Selbsteingabe

[timmy19]

Zitat von Klaus01:

ggT(c,d, gggT) ; ist eine Funktion oder Prozedur?

Grüße
Klaus

Eine "private" Prozedur zum Teiler ausrechnen, die dadurch aufgerufen werden soll.

[DeddyH]

If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then ggT heißt Deine Prozedur, gggT der damit ermittelte Wert, daher musst Du Letzteres übergeben.

[timmy19]

Zitat von DeddyH:

If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then ggT heißt Deine Prozedur, gggT der damit ermittelte Wert, daher musst Du Letzteres übergeben.

Trotzdem zeigt er mir noch den "Anweisung erforderlich, aber "Integer" gefunden" -Fehler an.

Und der "Operator oder Semikolon fehlt"-Fehler bei "ggTeiler(c,d,gggT)" auch.

[Bummi]

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


procedure TForm1.ggT(c,d:integer; var ggTeiler: integer);

[timmy19]

Zitat von Bummi:

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


procedure TForm1.ggT(c,d:integer; var ggTeiler: integer);

Sollte das die Probleme lösen? Hat es aber nicht.
Beide Probleme weiterhin da.

[Bummi]

das ist zumindest eines der Problem die Du zu lösen hast ....

[timmy19]

Zitat von Bummi:

das ist zumindest eines der Problem die Du zu lösen hast ....

Ich bekomms aber nicht hin...

[DeddyH]

Wie sieht denn der aktuelle Quälcode aus?

[timmy19]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

randomize;

Zahl1:= random(10)   ;
Zahl2:= random(10)    ;
Zahl3:=random(6)       ;
Zahl4:=random(6)        ;

EditZahl1.Text:= IntToStr(Zahl1) ;
EditZahl2.Text:= IntToStr(Zahl2) ;
EditZahl3.Text:= IntToStr(Zahl3)  ;
EditZahl4.Text:= IntToStr(Zahl4)   ;

end;

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

Ergebnis:= Zahl1 + Zahl2 ;

ggT(c,d, gggT) ;

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


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.

So sieht er aus. Bei "ggT(c,d,gggT)"zeigt er mir noch die zwei schon bekannten Fehler an!
Also:
-Operator oder Semikolon fehlt
-Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden

Kann mir da jemand helfen?

[Klaus01]

wenn es nicht schon gesagt wurde..
Du solltest keine Variable und Methode in einem Gültigkeitsbereich gleich benennen.

Grüße
Klaus