Hallo DP,

ich wollte mal fragen wie folgendes in Delphi zu realisieren ist...

ich hab zum Beispiel die Zahl 7 und möchte nun alle Zahlen die kleiner sind als 7 also von 1 (einschließlich 1 ) hinzuzählen daraus ergibt sich :

1+2+3+4+5+6+7

LG


GericasS

Zwei ansätze: Iterativ:

markieren

Delphi-Quellcode:

function Summ(a: integer): Integer;
var i: integer;
begin
  result:=0;
  for i := 1 to a do
    result:=result+i;
end;

Rekursiv:

markieren

Delphi-Quellcode:

function Summ(a: Integer): Integer;
begin
  if a <=1 then
  begin
    result:=a;
    exit;
  end;
  result:=Summ(a-1)+a;
end;

Ungetestet

Habt ihr in der Schule grad Einführung in Rekursionen?

Zitat von sirius:

Habt ihr in der Schule grad Einführung in Rekursionen?

Nein ich will in Delphi ein Beispiel für digitale Abschreibung erstellen

Zitat von inherited:

Zwei ansätze: Iterativ:

markieren

Delphi-Quellcode:

function Summ(a: integer): Integer;
var i: integer;
begin
  result:=0;
  for i := 1 to a do
    result:=result+i;
end;

Rekursiv:

markieren

Delphi-Quellcode:

function Summ(a: Integer): Integer;
begin
  if a <=1 then
  begin
    result:=a;
    exit;
  end;
  result:=Summ(a-1)+a;
end;

Ungetestet

danke werds gleich mal versuchen

Und wo bleibt der Resourcenschonende Ansatz? (Green IT und so...)

markieren

Delphi-Quellcode:

function Summ(n: integer): Integer;
begin
result = n*(n+1)/2.0;
end;

so ist das Rechenergebnis eine Fließkommazahl und kein Integer:
also müßte man es noch umwandeln
[add]ohhh und Vergleich statt Zuweisung ... kein ":" [/add]

markieren

Delphi-Quellcode:

function Summ(n: integer): Integer;
begin
  result := Round(n * (n + 1) / 2.0);
end;

oder besser glich bei Integer bleiben:

markieren

Delphi-Quellcode:

function Summ(n: integer): Integer;
begin
  result = n * (n + 1) div 2;
end;

aber ich hab noch'n paar Löungen mit Schleifchen

markieren

Delphi-Quellcode:

// Result=0 wenn n negativ
function Summ(n: integer): Integer;
begin
  Result := 0;
  while n >= 1 do
  begin
    Inc(Result, n); //Result := Result + n;
    Dec(n);
  end;
end;

markieren

Delphi-Quellcode:

// Result=n wenn n negativ
function Summ(n: integer): Integer;
begin
  Result := 0;
  repeat
    Inc(Result, n); //Result := Result + n;
    Dec(n);
  until n < 1;
end;

Zitat von Nikolas:

Und wo bleibt der Resourcenschonende Ansatz? (Green IT und so...)

Womit bewiesen wäre, dass Gauss ein Grüner war.

Zitat:

[add]ohhh und Vergleich statt Zuweisung ... kein ":"[/add]

Seit dem ich an meinem schönen weißen iBook arbeite, sind meine Syntaxkenntnisse etwas eingeschlafen...
Python ist so eine schöne Sprache und da sinds eben die ==-Vergleiche.

Zitat von Nikolas:

Und wo bleibt der Resourcenschonende Ansatz? (Green IT und so...)

markieren

Delphi-Quellcode:

function Summ(n: integer): Integer;
begin
result = n*(n+1)/2.0;
end;

bist du selbst auf diese Formel gekommen oder ist die schon iwo festgelegt ?