Ĺadny brzuch
Witam
Mam taki kodzik na pętle:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i :=1 to 10 do begin if jakiskod=true then tutajok else powtorzjeszcze raz petle; end; end;
I jak zrobić, że jeśli wyskoczy else, to ma powtórzyć jeszcze raz pętle? Np. pętle robimy 10 razy i za 4 razem wyskoczy błąd. I teraz chcę ten 4 raz powtórzyć (czyli w sumie będzie 11 razy pętla, jeśli nigdzie indziej nie wyskoczył błąd :P). Próbowałem zrobić taki prymitywny kod w else: i:=i-1; ale wyskakuje błąd Assignment to FOR-Loop variable 'i'. Czy jest możliwość powtórzenia pętli?
repeat, while.. pętle nie ograniczają się do for'a i można je zagnieżdżać..:)
http://pl.wikipedia....wiki/Rekurencja ;)
rekurencja? chyba nie zrozumiałem tematu?
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i :=1 to 10 do begin repeat ... until jakiskod=true; end; end;
instukcja goto
instukcja goto
niezalecana.
rekurencja? chyba nie zrozumiałem tematu?
Mój błąd - nie doczytałem i myślałem, że chodzi o wywołanie pętli w pętli.
:oops:
przecież to się banalnie jedną pętlą robi...
var i: Integer; begin i := 0; while i <= 10 do begin if jakis_kod = true then inc(i); end; end;
Użytkownik Misiekd edytował ten post 24 marzec 2009, 15:56
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taki kodzik na pętle:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i :=1 to 10 do begin if jakiskod=true then tutajok else powtorzjeszcze raz petle; end; end;
I jak zrobić, że jeśli wyskoczy else, to ma powtórzyć jeszcze raz pętle? Np. pętle robimy 10 razy i za 4 razem wyskoczy błąd. I teraz chcę ten 4 raz powtórzyć (czyli w sumie będzie 11 razy pętla, jeśli nigdzie indziej nie wyskoczył błąd :P). Próbowałem zrobić taki prymitywny kod w else: i:=i-1; ale wyskakuje błąd Assignment to FOR-Loop variable 'i'. Czy jest możliwość powtórzenia pętli?
repeat, while.. pętle nie ograniczają się do for'a i można je zagnieżdżać..:)
http://pl.wikipedia....wiki/Rekurencja ;)
rekurencja? chyba nie zrozumiałem tematu?
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i :=1 to 10 do begin repeat ... until jakiskod=true; end; end;
instukcja goto
instukcja goto
niezalecana.
rekurencja? chyba nie zrozumiałem tematu?
Mój błąd - nie doczytałem i myślałem, że chodzi o wywołanie pętli w pętli.
:oops:
przecież to się banalnie jedną pętlą robi...
var i: Integer; begin i := 0; while i <= 10 do begin if jakis_kod = true then inc(i); end; end;
Użytkownik Misiekd edytował ten post 24 marzec 2009, 15:56