repeat-until schleife

[Grubi90]

ich hoff mir kann jemand helfen ich muss für die schule ein Vortrag über Schleifen mit Austrittsbedingung machen, hab aber ehrlich gesagt nicht viel Plan davon. dazu gehört ein Struktogramm und ein grafisches programm. ich hab zwar angefangen aber weiß nicht wie ich die Grafik verwirklichen soll???

Delphi-Quellcode:

var
Form1: TForm1;

implementation

{$R *.dfm}
var
i:Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
repeat
......{Hier weiß ich nicht wie ich das formulieren soll}

i:=I+1;

until i>5;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

end.

bitte helft mir!!!!!!!

[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten Mal bitte selber setzen. Mfg, Luckie[/edit]

[DeddyH]

Hallo und willkommen in der DP .
Was genau ist denn nun Dein Problem? Das Struktogramm?

[Die Muhkuh]

Die Schleife an sich ist ja soweit richtig.

Was Du da einfügen sollst? Was soll das Programm den machen? Und das kommt dann dort rein.

Zitat:

ein Vortrag über Schleifen mit Austrittsbedingung machen

Ohne Austrittsbedingung hättest Du eine Endlosschleife, das wäre nicht so toll.

[Klaus01]

Guten Abend,

da gibt es fussgesteuerte Schleifen (repeat until)
und kopgesteuerte Schleifen (while do).

Fussgesteuert deswegen weil die Abbruchbedingung am Ende des Schleifendurchlaufs stattfindet.
Der Schleifenkörper wird also mindestens einmal durchlaufen.
Bei kopfgesteuerten Schleifen wird diese Prüfung zu beginn des Schleifendurchlaufs durchgeführt.
Es kann hier also sein, dass der Schleifenkörper nicht durchlaufen wird.

Was in der Schleife steht nennt man Schleifenkörper.

Bei Struktogrammeditoren sind diese Schleifen eigentlich immer dabei.

Grüße
Klaus

[Grubi90]

naja mein problem ist, dass ich nicht weiß wie ich dasmit der Grafik in meinen Quelltext rein bekomm. Ich dachte an ein Programm das quadrate oder do was zeichnet bis eine bestimmte größe erreicht ist!

[DeddyH]

Schau Dir mal das Freeware-Programm Strukted an, da gibt es auch Symbole für Kopf- und Fußschleifen

[Grubi90]

das struktogramm is ja nich so wichtig. Mir gehts hauptsächlich um das Programm und das dies mit einer repeat-until-schleife eine grafik zeichnet. am besten ein quadrat oder sowas das immer größer wird.Ich hab ja auch schon angefangen, nur ich weiß nich wie ich das in Delphi7 umsetzen soll. trotzdem schon mal vielen dank für die zahlreichen und hilfreichen Tipps!!

[mkinzler]

Was willst du genau umsetzen?

[Fussball-Robby]

Die Repeat-Until-Schleife sieht ja schonmal nicht schlecht aus. Wenn du ein Rechteck zeichnen willst, schau dir mal Canvas.Rectangle() an.

Mfg

[Grubi90]

ich wollte genau wissen was zwischen repeat und until geschrieben werden muss, damit ein paar Quadrate oder so gezeichnet werden. das mit rectangle wusst ich ja bloß funktionierte nicht wahrscheinlich wegen eingabefehlern von mir!