Einzelnen Beitrag anzeigen

PomBär

Registriert seit: 28. Sep 2003
Ort: MV
57 Beiträge
 
Delphi 6 Professional
 
#1

von 1 bis 10 zählen und ergbnis anzeigen lassen

  Alt 8. Dez 2003, 15:38
hallo leute
ich würde gerne schleifen üben hab mir so gedacht, dass ich mal von 1 bis 10 zähle und die zwischenergebnisse addiere(1+2+3+4+5+6+7+8+9+10=ergebnis).
ich hab mir auch schon einen lösungsansatz überlegt aber irgendwie funzt das net.
könnt ihr mir helfen?
Delphi-Quellcode:
var i,a:integer;
begin
i:=1; a:=0;
while i<10 do
a:=a+i;
i:=i+1;
end;
begin
label1.caption:=''(i);
er sagt mir, dass der auf a zugewiesene wert niemals benutzt wird.
  Mit Zitat antworten Zitat