Frage zu Delphi Funktion

Benny1521994 · Hält's aus hier Beiträge: 2

Moin Leute

Hab gegooglet, nix brauchbares gefunden;)
Also, der Benutzer gibt 2 Zahlen vor
Sagen wir jetzt mal 10 und 15
Das Programm soll dann alle Zahlen dazwischen quadrieren und anschliessend addieren
Jedoch nicht bis 15, sondern bis 14, also eins unter dem Wert ( das krieg ich aber alleine hin

)
Also, wie mache ich es, dass der alle Zahlen dazwischen quadriert und daraus die Summe bildet?

lg

Georg08 · Verfasst: Mi 17.11.10 18:43

müsste das nicht irgendwie so aussehen?:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses
  [...], Math;

[...]

function NameDeinerFunktion(zahl1, zahl2: Integer);
  var
    i: Integer;
begin
  result := 0;
  for i := zahl1+1 to zahl2-1 do
    result := sqr(i)+result;  // wenn du Math nicht einbinden möchtest geht es bei Quadrat ja noch recht leicht:
    //result := i*i+result
end;

Kann sein dass fehler drin sind, ist nicht getestet

Jakob_Ullmann · Verfasst: Mi 17.11.10 20:13

Lässt sich aber effizienter rechnen:

markieren

Quelltext

1:
2:

(LaTeX)
\sum_{i = 1}^n i^2 = \frac{n (n + 1) (2 n + 1)}{6}

Wenn dir Performance wichtig ist und deine Werte größer werden.

(zwei Links: de.wikipedia.org/wiki/Faulhabersche_Formel, de.wikipedia.org/wik...lgebra#Potenzsummen)

jaenicke · Verfasst: Mi 17.11.10 20:19

Jakob_Ullmann hat folgendes geschrieben :

Wenn dir Performance wichtig ist und deine Werte größer werden.

Das ist bei einer (fast kompletten) zum C&P angebotenen (vermutlich) Hausaufgabe bestimmt der Fall. :mrgreen:

Benny1521994 · Hält's aus hier Beiträge: 2

Es Handelt sich um KEINE Hausaufgabe !

Freiwillige Basis, keine Sorge

Bin gerade nicht am "Delphi PC" und kann es nicht ausprobieren, werde das aber gleich nachholen
Eins von beiden wird schon funktionieren, also schonmal ein Großes Danke

In Excel hab ich es hingekriegt, doch das in Delphi war dann doch zu hoch für mich

Schönen Abend noch

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme