Darmowe Forum

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;

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.

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.

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.

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.

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.

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.