Jakie są różnice pomiędzy pętlami?

1. Pętla FOR to DO:
Zmienna sterująca musi być w przypadku pętli for zadeklarowana na− poziomie jej wywołania, a jej wartość po wyjściu z pętli nie jest określona. Jednocześnie przy pętli for kompilator automatycznie sprawdzi, czy wartości początek i koniec są w zakresie typu zmiennej, tzn. czy może je przyjąć - musi mieć ona typ całkowity.
− Zmienna sterująca może sterować tylko o 1 w przód lub o 1 wstecz.
− Stosujemy ją kiedy wiemy ile razy ma być ona wykonana (wart. pocz. i końcowa.).
− Pętla wystartuje co najmniej jeden raz, po czym zakończy działanie np. z powodu błędu wartości początkowej i końcowej.


2. Pętla WHILE - DO:
− Nie posiada zmiennej sterującej pętlą jak pętla For to Do.
− Warunek zostaje sprawdzony na początku, przeciwnie do pętli Repeat - Until.
− Pętla ta działa dopóki warunek w niej zawarty jest spełniany.
Jeśli warunek nie jest spełniony to nie wystartuje ona w ogóle− inaczej niż w przypadkach pozostałych pętli For to Do i Repeat - Until.
− Instrukcje do wykonania (po słowie Do) rozpoczynamy od słowa begin, kończąc je słowem end; (ze średnikiem).
− Stosujemy ją kiedy nie wiemy ile przejść ma ona wykonać.


3. Pętla REPEAT - UNTIL:
− Nie posiada zmiennej sterującej pętlą jak pętla For to Do.
− Warunek zostaje sprawdzony na końcu, przeciwnie do pętli While - Do.
Pętla działa dopóki warunek w niej zawarty nie jest spełniony, po− jego spełnieniu przestaje działać, czyli dokładnie na odwrót do pętli While - Do.
− Pętla wystartuje co najmniej jeden raz tak jak pętla For to Do.
− W pętli tej nie ma konieczności użycia begin...end; czyli inst. grupującej.
− Może mieć wiele instrukcji złożonych sekwencyjnie w jedną całość.
− Stosujemy ją kiedy nie wiemy ile przejść ma ona wykonać.
4. Przykłady:


program suma; 1
uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(\'suma=\',s:8:2);
readln;
end.




program suma; 2
uses crt;
var i,s:real;
begin
clrscr;
s:=0;
i:=1;
repeat
s:=s+i;
i:=i+1;
until i>100;
writeln(\'suma=\',s:6:2);
readln;
end.


program suma; 3
uses crt;
var i,s:real;
begin
clrscr;
s:=0;
i:=1;
while i<=100 do
begin
s:=s+i;
i:=i+1;
end;
writeln(\'suma=\',s:6:2);
readln;
end.

---