Ta pętla wykona się b - a razy i jej efektem będzie linijka zawierająca kolejne liczby od a do b odzielone spacjami:
"a a+1 a+2 a+3 ... b-3 b-2 b-1 b "
na początku i = a, po każdym wykonaniu pętli jest zwiększane o 1 po raz ostatni pętla wykonuje się dla i = b
jeżeli zamiast "to" w definijci pętli będzie "downto" to i zamiast zwiększać o 1 za każdym razem będzie się zmniejszać
while do
konstrukcja:
readln (odp);
while odp <> 't' {przykładowy warunek} do
begin
------{tutaj są komendy}
------readln (odp); {przykładowa komenda}
end;
Ta pętla wykona się nieokreśloną liczbę razy w zależności co napiszemy na klawiaturze. Jeżeli wpiszemy literę t to przestanie się wykonywać (warunek zacznie być spełniony).
repeat until
konstrukcja:
readln (odp);
repeat
------{tutaj są komendy}
------readln (odp); {przykładowa komenda}
until odp <> 't' {przykładowy warunek};
until odp <> 't' {przykładowy warunek}
Ta pętla wykona się nieokreśloną liczbę razy w zależności co napiszemy na klawiaturze. Jeżeli wpiszey literę t to przestanie się wykonywać (warunek zacznie być spełniony). Od pętli while różni się tym że warunek jest spełniany na końcu nie początku i pętla w przeciwień stwie do while wykona się conajmbniej jeden raz.
No to zaczynając od pierwszej pętli: for ... to ... do:
Budowa:
for i:=1 to X do begin
instrukcje;
end;
Pierwsze słowo "for" oznacza rozpoczęcia pętli, po niej następuje zadeklarowanie zmiennej biorącej udział w pętli, w moim przypadku zmienna "i" zadeklarowana
jako integer. W tym też miejscu deklarujemy wartość początkową tej zmiennej, w tym wypadku wartość początkowa to 1. Następnie widzimy słowo "to", po tym
słowie deklarujemy wartość końcową pętli, w tym przykładzie jest to 10. Jak widać ta pętla wykona coś 10 razy przy czym zmienna sterująca pętlą będzie
zwiększana o 1 przy każdym jej obrocie.
Praktyka:
program petla;
uses crt;
var i:integer;
begin
for i:=1 to 3 do
begin
Writeln('Zmienna i ma wartość ',i);
end;
end.
Wynikiem końcowym takiego działania będzie wyświetlenie na ekranie:
Zmienna i ma wartość 1 {pierwszy obrót pętli}
Zmienna i ma wartość 2 {2gi obrót}
Zmienna i ma wartość 3 {trzeci i ostatni obrót pętli}
Kolejna z pętli to pętla repeat ... until
Budowa:
repeat
instrukcje;
until warunek;
Jest to pętla wykonująca daną instrukcję tak długo, aż nie zostanie spełniony warunek. Pierwsze słowo "repeat" oznacza rozpoczęcie pętli, po niej następuje
wpisanie instrukcji sterujących które będą się powtarzać przy każdym obrocie pętli, gdy wpiszemy już wszystkie instrukcje pojawia nam się kolejne słowo
kluczowe jakim jest "until", po tej komendzie wpisujemy warunek, jaki musi zostać spełniony aby program mógł "wyjść" z pętli i pracować dalej.
Praktyka:
program Przyklad;
uses CRT;
var i:byte;
begin
clrscr;
repeat
writeln('Zmienna i ma teraz wartość ',i);
i:=i+1;
until i>3;
readln;
end.
Wynik końcowy będzie taki:
Zmienna i ma teraz wartość 1 {i ma wartość 1, więc warunek i = 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 2 {i ma wartość 2, więc warunek i = 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 3 {i ma wartość 3, więc warunek i = 3 został spełniony i pętla kończy tutaj swoje działanie}
Trzecia i ostatnia pętla to pętla while ... do
while warunek do begin
instrukcje;
end;
Pętla bardzo podobna do poprzedniej, wykonuje ona instrukcje znajdujące się po słowie "do" tak długo, aż warunek znajdujący się pomiędzy słowami "while" a
"do" nie zostanie spełniony.
Praktyka:
program Przyklad;
uses CRT;
var i:byte;
begin
i := 1;
clrscr;
while i<=3 do begin
writeln('Zmienna i ma teraz wartość ',i);
i:=i+1;
end;
readln;
end.
Zmienna i ma teraz wartość 1 {i ma wartość 1, więc warunek i <= 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 2 {i ma wartość 2, więc warunek i <= 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 3 {i ma wartość 3, więc warunek i <= 3 został spełniony i pętla kończy tutaj swoje działanie}
for
konstrukcja:
for i := a to b do
begin
------{tutaj są komendy}
------write (i, ' '); {przykładowa komenda}
end;
Ta pętla wykona się b - a razy i jej efektem będzie linijka zawierająca kolejne liczby od a do b odzielone spacjami:
"a a+1 a+2 a+3 ... b-3 b-2 b-1 b "
na początku i = a, po każdym wykonaniu pętli jest zwiększane o 1 po raz ostatni pętla wykonuje się dla i = b
jeżeli zamiast "to" w definijci pętli będzie "downto" to i zamiast zwiększać o 1 za każdym razem będzie się zmniejszać
while do
konstrukcja:
readln (odp);
while odp <> 't' {przykładowy warunek} do
begin
------{tutaj są komendy}
------readln (odp); {przykładowa komenda}
end;
Ta pętla wykona się nieokreśloną liczbę razy w zależności co napiszemy na klawiaturze. Jeżeli wpiszemy literę t to przestanie się wykonywać (warunek zacznie być spełniony).
repeat until
konstrukcja:
readln (odp);
repeat
------{tutaj są komendy}
------readln (odp); {przykładowa komenda}
until odp <> 't' {przykładowy warunek};
until odp <> 't' {przykładowy warunek}
Ta pętla wykona się nieokreśloną liczbę razy w zależności co napiszemy na klawiaturze. Jeżeli wpiszey literę t to przestanie się wykonywać (warunek zacznie być spełniony). Od pętli while różni się tym że warunek jest spełniany na końcu nie początku i pętla w przeciwień stwie do while wykona się conajmbniej jeden raz.
jak masz pytania to pisz na pw
No to zaczynając od pierwszej pętli: for ... to ... do:
Budowa:
for i:=1 to X do begin
instrukcje;
end;
Pierwsze słowo "for" oznacza rozpoczęcia pętli, po niej następuje zadeklarowanie zmiennej biorącej udział w pętli, w moim przypadku zmienna "i" zadeklarowana
jako integer. W tym też miejscu deklarujemy wartość początkową tej zmiennej, w tym wypadku wartość początkowa to 1. Następnie widzimy słowo "to", po tym
słowie deklarujemy wartość końcową pętli, w tym przykładzie jest to 10. Jak widać ta pętla wykona coś 10 razy przy czym zmienna sterująca pętlą będzie
zwiększana o 1 przy każdym jej obrocie.
Praktyka:
program petla;
uses crt;
var i:integer;
begin
for i:=1 to 3 do
begin
Writeln('Zmienna i ma wartość ',i);
end;
end.
Wynikiem końcowym takiego działania będzie wyświetlenie na ekranie:
Zmienna i ma wartość 1 {pierwszy obrót pętli}
Zmienna i ma wartość 2 {2gi obrót}
Zmienna i ma wartość 3 {trzeci i ostatni obrót pętli}
Kolejna z pętli to pętla repeat ... until
Budowa:
repeat
instrukcje;
until warunek;
Jest to pętla wykonująca daną instrukcję tak długo, aż nie zostanie spełniony warunek. Pierwsze słowo "repeat" oznacza rozpoczęcie pętli, po niej następuje
wpisanie instrukcji sterujących które będą się powtarzać przy każdym obrocie pętli, gdy wpiszemy już wszystkie instrukcje pojawia nam się kolejne słowo
kluczowe jakim jest "until", po tej komendzie wpisujemy warunek, jaki musi zostać spełniony aby program mógł "wyjść" z pętli i pracować dalej.
Praktyka:
program Przyklad;
uses CRT;
var i:byte;
begin
clrscr;
repeat
writeln('Zmienna i ma teraz wartość ',i);
i:=i+1;
until i>3;
readln;
end.
Wynik końcowy będzie taki:
Zmienna i ma teraz wartość 1 {i ma wartość 1, więc warunek i = 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 2 {i ma wartość 2, więc warunek i = 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 3 {i ma wartość 3, więc warunek i = 3 został spełniony i pętla kończy tutaj swoje działanie}
Trzecia i ostatnia pętla to pętla while ... do
while warunek do begin
instrukcje;
end;
Pętla bardzo podobna do poprzedniej, wykonuje ona instrukcje znajdujące się po słowie "do" tak długo, aż warunek znajdujący się pomiędzy słowami "while" a
"do" nie zostanie spełniony.
Praktyka:
program Przyklad;
uses CRT;
var i:byte;
begin
i := 1;
clrscr;
while i<=3 do begin
writeln('Zmienna i ma teraz wartość ',i);
i:=i+1;
end;
readln;
end.
Zmienna i ma teraz wartość 1 {i ma wartość 1, więc warunek i <= 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 2 {i ma wartość 2, więc warunek i <= 3 nie został spełniony, pętla wykonuje kolejny obrót}
Zmienna i ma teraz wartość 3 {i ma wartość 3, więc warunek i <= 3 został spełniony i pętla kończy tutaj swoje działanie}
W razie jakiś pytań pisz Pw, napewno Ci pomogę.