Rest einer Division durch Rekursion

[Die absoulte Beginnerin]

Hallo,

wir sollten in unserer letzten Informatikstunde eine rekursive Funktion machen, durch die bei einer Division der Restbetrag angegeben wird.

also zum beispiel bei 25:4 die zahl 1 da 25:4=6 rest1

mein ansatz ist jetzt so:

Delphi-Quellcode:

 function reku_div(divident,divisor:integer):integer;
var ergebnis: integer;
begin
 if divident>=divisor
 then reku_div(divident-divisor,divident)
 else ergebnis:=divident;
end;

procedure TForm1.Button1Click(Sender: TObject);
var divident,divisor:integer;
begin
divident:=StrToInt(edit1.text);
divisor:=StrToInt(edit2.Text);
edit3.Text:=IntToStr(reku_div(divident,divisor));
end;

das klappt dann aber leider irgendwie nicht...

kann mir hier vielleicht einer weiterhelfen???

VIELEN DANK!


achso und noch eine frage: woher weiß ich welche programmiersprache ich benutze? also ich arbeite mit delphi sieben aber bei der programmiersprache bin ich mir nicht ganz sicher....

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]