Summen zwischen 2 Zahlen mit Repeat-Until

[Sherlock]

Zitat von Deep-Sea:

Ich weiß natürlich, dass die das in der Schule unbedingt mit Schleifen machen sollen. Aber allgemein geht es doch auch mit zwei gaußschen Summenformeln, oder? Und zwar in der Art:

Code:

Ergebnis := GaußscheSumme(b) - GaußscheSumme(a - 1);

Geil, in welcher Delphi-Unit steht denn diese GaußscheSumme zur Verfügung?



Sherlock

[Deep-Sea]

Zitat von Sherlock:

Geil, in welcher Delphi-Unit steht denn diese GaußscheSumme zur Verfügung?

Delphi-Quellcode:

unit SherlocksSpezialUnit;

interface

function GaussscheSumme(N: Integer): Int64;

implementation

function GaussscheSumme(N: Integer): Int64;
begin
  Result := (N * (N + 1)) div 2;
end;

end.

Na da, in SherlocksSpezialUnit

[Sherlock]

Wie konnte ich die nur übersehen

Genug OT...obwohl ja das Problem gelöst ist.

Sherlock