Pętla repeat until

[admin]

Podstawową cechą pętli repeat ..until jest to, że przynajmniej raz musi zostać wykonania. W porównaniu z pętlą for... należy zadeklarować warunek wyjścia z pętli.

Przykład deklaracji pętli repeat ... until..... Wyrażenie stojące za słowem until decyduje o wyjściu z pętli. Jeżeli wyrażenie to jest spełnione program opuszcza pętlę.



program rurka;
uses crt,dos;
var x,y,a,c:integer;
begin
x:=0; clrscr;
repeat
x:=x+1; writeln(x);
until x>=10;
readkey;
end.

Program powinien wyświetlić liczby od 1 do 10;

[admin]

Przykład 2. Napisać program który korzystając z pętli Repeat...until wyświetli pięć razy  literę B.

program adam;
uses crt,dos;
var x: integer;
begin
clrscr;
x:=0;
repeat
x:=x+1;
writeln('B');
until x>=5;
readkey;
end.

[admin]

Przykład 3. Napisać program który poprosi o podanie liczby, następnie wyświetli napis RYSIO tyle razy jaką liczbę wprowadzono. Wykorzystać pętelę repeat until.

program adam;
uses crt,dos;
var x,y: integer;
begin
clrscr;
x:=0;
write('Podaj ile razy mam wyswietlic napis Rysio ');readln(y);
repeat
x:=x+1;
writeln('Rysio');
until x>=y;
readkey;
end.

[admin]

Przykład 4. Proszę napisać program który wyświetla kolejne napisy Treme-Morele tak długo dopóki nie zostanie wciśnięty jakiś klawisz.(Korzystać z pętli repeat until).

program adam;
uses crt,dos;
var x,y: integer;
begin
clrscr;
repeat
x:=x+1;
write('Trelemorele '); delay(10);
until keypressed;
readkey;

end.

Polecenie keypressed - system czeka na naciśniecie dowolnego klawisza.

[admin]

Przykład 5. Proszę napisać program który prosi o podanie litery. Pytanie jest powtarzane tak długo dopóki nie zostanie wprowadzona litera "A".


program adam;
uses crt,dos;
var x: char;
begin
clrscr;
repeat
write('POdaj litere: '); readln(x);
until x='A';
end.

[admin]

Przykład 6. Napisać program który prosi o podanie numeru PIN. Po trzykrotnym błednym podaniu numeru PIN, program zawiesza się wyświetlając komunikat "BLOKADA".

program Max;
uses crt, dos;
var x,y:integer;
begin
clrscr;
x:=0;
repeat
if(x=3)then repeat begin gotoxy(10,10); write('BLOKADA!!!!');end;until 1=2;
write('Podaj kod kod PIN: ');readln(y);
x:=x+1;
until y=1234;
end.

[admin]

Przykład 7 Proszę napisać program proszący o podanie trzech liczb całkowitych. Następnie wyświetlający wszystkie liczby z przedziału <a..b> podzielne przez liczbę c.

program Viola;
uses crt,dos;
var a,b,c:integer;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(a);
 write('Podaj pierwsza liczbe: ');readln(b);
 write('Podaj pierwsza liczbe: ');readln(c);

 repeat
 if((a mod c)=0) then write(a);
 a:=a+1;
 until a=b+1;
 readkey;
 end.