hi all,

bin ein newbie in sachen programmierung. ich versuche mich gerade im visual studio 2005. habe eine aufgabe bekommen, zahlen zu addieren. d.h wenn ich z.b. 5 ins eingabe feld schreibe, rechnet das programm 1+2+3+4+5 und gibt mir 15 als resultat aus.

jetzt kommts, der zweite schritt ist, dass nur gerade zahlen gezählt werden. d.h. wenn ich 8 eintippe -> 2+4+6+8, wenn ich 5 eintippe -> 2+4

kann mir da jemand weiterhelfen? dürfte wür erfahrene programmerier wohl kaum schwierig sein

thx

code schnipsel...

Ich hab zwar weder Ahnung von coden, noch von VB, aber du kannst ja ne Funktion bauen, die schaut, ob die Zahlen durch 2 teilbar sind ohne Rest. Wenn ja, dann gerade, wenn nicht, dann ungerade.

Der Befehl Mod gibt dir den Rest einer Division zurück. Somit kannst Du immer wenn die Bedingung (x mod 2 = 0) wahr ist, x zu deiner Zwischensumme addieren.

Hier ein Beispiel in Delphi (Pascal)

<blockquote><pre><font face="verdana,arial,helvetica"size="1"class="sf">C ode</font><hr><font face="verdana,arial,helvetica"size="1"class="sf">f unction TForm1.SumMod(value: integer): string;
var dummy: integer;
begin
dummy:= 0;
while value > 0 do
begin
if(value mod 2 = 0) then
dummy:= dummy + value;
dec(value);
end;
result:= intToStr(dummy);
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(key = 13) then
begin
key:= 0;
Edit2.Text:= SumMod(StrToInt(Edit1.Text));
end;
end;
<hr></font></pre></blockquote>

grz zer00

Hier mal die Mod funktion..in VB

Try

Me.Cursor = Cursors.WaitCursor
Dim i As Integer
Dim sErgebnis As String = "Ganzzahliger Teiler:1"
For i = 2 To intZahl

If intZahl Mod i = 0 Then

sErgebnis = sErgebnis + ", " + i.ToString

End If
Next
Me.Cursor = Cursors.Default
Return sErgebnis


Catch ex As Exception
MessageBox.Show(ex.ToString)

End Try

Hier noch die EXE.

grz zer00

Manchmal muss man auch ein Problem analysieren können, bevor man anfängt Lösungen zu suchen!

Als Mathematiker sage ich hier nur:

Gerade Summe bis zum Summanden n

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x = (n+2) * n / 4

Bei Eingabe von z.B. 8 liefert diese Formel automatisch 20

Edit:
@zer00: dein zip ist eigentlich ein rar und mit meiner Formel mache ich das sogar in Excel!

Wir sind alle stolz auf dich und auf dein mathematisches Können. Gratuliere. [/ironie]

bye, pantheros

Huch, ja da hast Du recht.
Ich werde das noch ändern.

grz zer00

Der Vollständigkeit halber noch die komplette Lösung der Aufgabe auch für ungerade n in einer expliziten Formel:

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x = (n+2) * n / 4 - (n mod 2) * (2n + 1) / 4

Der zweite Term wird automatisch nur bei ungeradem n subtrahiert und korrigiert somit die Summe.

[schwelg]
Ich liebe es einfach, mal wieder meine "alten" Mathestudien hervorzukramen.
[/schwelg]

@remix:

Einfach Genial, gibst noch mehr von denen?

wow.... da sind ja jede menge antworten hinzugekommen. werde mich heute abend gleich mal versuchen, das ding hinzukriegen....

@remix: also in mathe bin ich nicht so der hammer, aber die Formel is genial ;-)

@all: DANKE!

greez

@Garfield:

Wenn Du tatsächlich die Lösung alternativ auch mit meiner Formel darstellen willst, kannnst Du noch mehr brillieren, indem Du erklärst, dass das eine abgewandelte Form der Gauss'schen Lösung sei.

Die Anekdote dazu

Der kleine Gauss kriegt in der Primarschule die Aufgabe alle Zahlen von 1 bis 100 zusammenzuzählen. Der Lehrer denkt sich, dass er so eine lange Zeit Ruhe habe. Nach nicht mal einer Minute präsentiert der Kleine bereits zur Verblüffung des Lehrers die Lösung! Was hat er gemacht? Er hat einfach alle Zahlen von 1 bis 100 (symbolisch) aufgeschrieben und darunter nochmals, diesmal allerdings von 100 bis 1 rückwärts. Zählt man zwei übereinanderliegende Zahlenpaare zusammen, erhält man immer 101. Das ganze wiederholt sich 100 mal, also ergibt das 10100. Jetzt hat man aber die Summe von beiden Zahlenreihen also dividiert man nochmals durch 2 und erhält als Lösung 5050. Kurz ausgeschrieben:
die Summe der ersten n natürlichen Zahlen ist n * (n + 1) / 2
Dies war der Geschichte nach die Geburtsstunde des berühmten Mathematikers Carl Friedrich Gauss.

die kürzeste vb.net Variante, die ich hingekriegt habe lautet...

somit ist nur die Eingabe gerader Zahlen erlaubt, andernfalls folgt wird eine Fehlermeldung ausgegeben.

@remix: wie gesagt ich bin ein newbie in programmieren, werde mich aber mal in meiner Freizeit dazu bemühen, deine Fromel in skript einzubauen

Wieso überprüfst du bei jedem Schleifendurchgang ob es sich um eine Geradezahl handelt in der Inputbox?

bye, pantheros

@pantheros: weil ich wie schon erwähnt... neu in diesem Gebiet bin

hier wird nicht jedesmal geprüft ob es eine gerade Zahl ist...