Einzelnen Beitrag anzeigen

Grubi90

Registriert seit: 14. Mär 2008
Ort: Schwarzbach
9 Beiträge
 
#1

repeat-until schleife

  Alt 27. Mär 2008, 17:15
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]
  Mit Zitat antworten Zitat