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]