Thema
:
Probleme mit FOR-Schleife
Einzelnen Beitrag anzeigen
timmy19
Registriert seit: 18. Nov 2011
28 Beiträge
#
23
AW: Probleme mit FOR-Schleife
19. Nov 2011, 15:33
Zitat von
Sir Rufo
:
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button3Click(Sender: TObject);
var
m,n : integer;
// <- als Integer deklarieren
Wamn: extended;
i: Integer;
Begin
// ERST die Werte für m und n holen
m:= StrToInt(Edit1.Text );
n:= StrToInt(Edit2.Text );
// und DANN können wir durch die Schleife laufen
For
i := n
to
m
do
begin
Wamn := sqrt(i);
ListBox1.Items.Add(IntToStr(i) +'
:
' + FloatToStr(Wamn));
end
;
end
;
end
.
Danke- funzt!
Zitat
timmy19
Öffentliches Profil ansehen
Mehr Beiträge von timmy19 finden