Rest einer Division durch Rekursion

[Sir Rufo]

Willkommen in der DP.

Zitat von 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

Also die kleinste funktionierende Function in Delphi ist die hier:

Delphi-Quellcode:

function Test : integer;
begin
  Result := 1;
end;

Eine function soll ja auch einen Wert zurückliefern und das hattest du nicht gemacht.

Delphi-Quellcode:

function reku_div( divident, divisor : integer ) : integer;
//var ergebnis: integer;  <-- unnötig
begin
 if divident >= divisor
 then 
   Result := reku_div( divident - divisor, divisor )  // edit - thanx to Uwe Raabe ;-)
 else 
   Result := 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;

Wenn ich dein Beispiel jetzt aufnehme, dann wird ja durch die Rekursion das wie folgt aufgerufen:

Delphi-Quellcode:

function( 25, 4) =
  function( 21, 4 ) =
    function( 17, 4 ) =
      function( 13, 4 ) =
        function( 9, 4 ) =
          function( 5, 4 ) =
            function( 1, 4 ) = 1

Zitat von Die absoulte Beginnerin:

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....

vielleicht Delphi?

cu

Oliver