|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: Allein auf weiter Flur
15. Nov 2007, 08:52
Mal eine bescheuerte Lösung, die dann aber auch die geforderten 2 Schleifen benutzt:
Delphi-Quellcode:
var i, j, Zahl: integer;
begin
Zahl := 0;
for i := 1 to 3 do
begin
for j := 1 to 11 do
begin
inc(Zahl);
Memo1.Lines.Add(inttostr(Zahl));
end;
end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|