Hallo,
ich hab da mal ein kleines Denkproblem. Ich hoffe mir
kann jemand auf die spränge helfen.
Ich hab eine Mathe Aufgabe die ich mit dem Pc lösen möchte.
Undzwar:
Zitat:
1+2-3+4-5+6-7 .... +99-100 =
So jetzt habe ich flogendes gemacht
Delphi-Quellcode:
var i,e: integer;
a: Array [1..100] of Integer;
begin
e := 0;
for i := 1 to 100 do begin
a[i] := i;
g := g + a[i] - a[i+1];
// ListBox1.Items.Add(IntToStr(a[i]));
end;
Caption := IntToStr(e);
end;
Das ganze klappt natürlich mal wieder nicht. Hat jemand ne Idee?