Thema: Delphi funktionen

Einzelnen Beitrag anzeigen

xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#1

funktionen

  Alt 15. Mär 2010, 15:30
hallo habe in einer Woche eine theoretische Prüfung in der schule und es geht um Funktionen und Prozeduren
aber mir ist eine Zeile nicht ganz klar

also ich habe folgende Aufgabe:

Im edit feld 1 wird 6 eingetragen und im edit feld 2 wird eine 2 eingetragen. Welcher wert wird nach anklicken im labelfeld 1 ausgegeben?

Delphi-Quellcode:
button2.click

var a,b:integer;
begin
 a:=strtoint(edit1.text);
 b:=strtoint(edit2.text);
 if a>b then p (a,b); // true bei eingabe 6 und 2
 label1.caption:=inttostr(f2(a,b));

procedure p(var x,y:integer);
var h:integer;
begin
 h:=x;
 x:=y;
 y:=h;
end;
bis hierhin ist mir alles klar also bei der prozedure werden nun x und y vertauscht mit Hilfe von h

aber jetzt kommt meine Problem Zeile die ich nicht ganz verstehe im Fettdruck bei function 2

Delphi-Quellcode:
function f2(a,b:integer):integer;
begin
 if b=a then // nein 2 ist nicht gleich 6
 f2:=a
else
 f2:=f2(a,b-1)+b;
also a wird jetzt b -1 also dann 5 aber was hat es mit dem +b am ende noch aufsticht?
  Mit Zitat antworten Zitat