Pascal Pętla while i Repeat
- Details
- Category: Pascal
- Published on Monday, 29 August 2011 16:19
- Written by ber3333
- Hits: 105666
Pętla while i Repeat
Istotną różnicą między dwoma pętlami jest to że każda działa w inny sposób.
Pętla while do działania na początku potrzebuje warunku po którym przechodzi do dalszej części, a repeat korzysta z warunku na końcu.
Graf przedstawia działanie pętli while.
Graf przedstawia działanie pętli repeat.
Już wiesz jakie są różnice pomiędzy dwiema pętlami. Teraz praktyczna część wykorzystania pętli.
Zacznijmy od pętli While.
program petla_while;
uses
crt;
var
a,b: byte;
begin
clrscr;
writeln('Podaj zakres liczb w Pętli while');
writeln('Podaj Pierwszą liczbę ');
readln(a);
writeln('Podaj drugą liczbę ');
readln(b);
while a<=b do
begin
a:a+1;
writeln('Pętla while wykonała się poraz',a);
end;
readln;
end.
A tutaj pętla repeat :
program petla_repeat;
uses
crt;
var
a: byte;
begin
clrscr;
writeln('Podaj prawidłową liczbę OD 1 DO 10');
repeat
writeln;
writeln('Podaj prawidłową liczbę');
readln(a);
until a=10;
writeln('To ta liczba kończy pętle repeat ');
readln;
end.
ok
