Addition von Zahlen !!!

[mkinzler]

Nur das (absichtliche) Einbauen von Fehlern hilft ihm ja nicht wirklich; im Gegenteil :(

[Wolfgang Mix]

Okay, kann ich als Argument akzeptzieren, aber vlt. weiss der TE
jetzt, wonach er suchen muss.

[alzaimar]

Was ist der Unterschied zwischen einem pädagogischen Konzept und einem Schusseligkeitsfehler? :mrgreen:

Richtig:
Das pädagogische Konzept wird *vorher* angekündigt,
der Schusseligkeitsfehler *hinterher* bemerkt.

:cheers:

[Ilay]

also mit dem gegebenden link konnte ich etwas anfangen, ich hoffe auf so einen quelltextauszug wie mir bis 1x angeboten wurde.

Das Prinzip,die verwendung von schleifen,variablen etc weiß ich ja, meine frage ist halt wie ich das als befehl in delphi schreiben/umsetzen muss?

Hoffe auf Hilfe :roll:

[Amateurprofi]

Zitat:

Zitat von Ilay

1. Es soll die Summe aller ungeraden Zahlen von 1 bis zu einem einzugebenden Höchstwert n berechnet und ausgegeben werden!

Delphi-Quellcode:

// Summe der ungeraden Zahlen im Bereich 1 bis n
// Funktioniert bis n=46340, bei höheren Werten Integer-Overflow
FUNCTION SumOfOdd(n:integer):integer;
begin
   result:=Sqr(n - 1 or 1 + 1) div 4
end;

Zitat:

Zitat von Ilay

2. Wieviel gerade zahlen (der erste Summand ist 2) sind zu addieren, damit eine einzugebende Summe s erreicht oder überschritten wird?

Delphi-Quellcode:

// Anzahl der geraden Zahlen ab 2, die als Summe n erreicht (oder überschreitet)
// Funktioniert bis n=536870911, bei höheren Werten Integer-Overflow
FUNCTION CountOfEven(n:integer):integer;
begin
   result:=Ceil((Ceil(Sqrt(4 * n + 1)) or 1 - 1) / 2)
end;

[himitsu]

hmmmmm :gruebel:

Zitat:

Delphi-Quellcode:

result:=Ceil((Ceil(Sqrt(4 * n + 1)) or 1 - 1) / 2)

Delphi-Quellcode:

result := Ceil((Ceil(Sqrt(4 * n + 1)) or 1 - 1 ) / 2);
result := Ceil((Ceil(Sqrt(4 * n + 1)) and not 1) / 2);
result :=     ((Ceil(Sqrt(4 * n + 1)) and not 1) + 1) div 2;
result :=     ((Ceil(Sqrt(4 * n + 1)) and not 1) + 1) shr 1;

Aber wie war das nochmal mit den Lösungen für Hausaufgaben?

Zitat:

Zitat von Luckie

Jetzt wäre ich gerne dabei, wenn er die Lösung seinem Lehrer präsentiert und sie erklären muss.

Ich auch. :twisted:
Wann müssen wir denn wo sein, um zugucken zu können?

[Luckie]

Jetzt wäre ich gerne dabei, wenn er die Lösung seinem Lehrer präsentiert und sie erklären muss.

[Ilay]

ich bedanke mich :)

[Ilay]

Wer weitere, möglicherweise leichtere lösungvorschläge geben kann bitte trotzdem posten.

Meiner Meinung nach gibt es eine einfachere Lösung ungerade Zahlen zu ermitteln.
1. Möglichkeit: 2n -1
2. Möglichkeit: ungerade Zahl (Bsp 1) + 2 (somit kommt man ebenfalls immer auf ungerade)


Wie würde das in einem Quelltext aussehen?

[Klaus01]

.. for Schleife durchlaufen und mit odd(i)
prüfen ob die Zahl ungerade ist, wenn das der Fall ist die Zahl adieren.

Grüße
Klaus