Kleinere Zahlen hinzuzählen

[GericasS]

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 :D ) hinzuzählen daraus ergibt sich :

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

LG


GericasS :?:

[inherited]

Zwei ansätze: Iterativ:

Delphi-Quellcode:

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

Rekursiv:

Delphi-Quellcode:

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

Ungetestet

[sirius]

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

[GericasS]

Zitat:

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 :D

Zitat:

Zitat von inherited

Zwei ansätze: Iterativ:

Delphi-Quellcode:

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

Rekursiv:

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 :D

[Nikolas]

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

Delphi-Quellcode:

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

[himitsu]

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

Delphi-Quellcode:

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

oder besser glich bei Integer bleiben:

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 :angel:

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;

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;

[sirius]

Zitat:

Zitat von Nikolas

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

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

[Nikolas]

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.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

[GericasS]

Zitat:

Zitat von Nikolas

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

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 ? :zwinker: