Einzelnen Beitrag anzeigen

xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#4

AW: fußballsation mathematik

  Alt 9. Dez 2010, 13:53
Delphi-Quellcode:
var s,i,o:integer;
begin
  S:=1010;
  i:=0;
  O:=79041;

while s<O do
begin
  if i=0 then
  begin
    s:=1010 ;
    i:=i+1;
  end
  else
    begin
      s:=s+(20*i)+1010 ;
      i:=i+1;
    end;
end;

label1.caption:=inttostr(i);
end;
Ich habe alles nochmal überdacht und bin mit diesem queltext zu folgendem ergebnis gekommen: 53.
Nah dran aber nicht perfekt ich könnte i natürlich einfach um 1 vermindern bevor ich es ausgebe aber mein Queltext erscheint mir doch als logisch.
wenn ich jedoch S ausgeben will dann müsste ja normalerweisse 79040 ausgegebn werden aber das tut er nicht.

Geändert von xxsasch4xx ( 9. Dez 2010 um 13:56 Uhr)
  Mit Zitat antworten Zitat