Doskonalenie pĂŞtli

[admin]

Zadanie 1. ProszĂŞ napisaĂŚ program ktĂłry wyÂświetli gwiazdkĂŞ biegajÂącÂą  dookoÂła ekranu. WykorzystaĂŚ pĂŞtlĂŞ Repeat until.

program piotr;
uses crt,dos;
var x,y,a,b:integer;

begin
 x:=1; y:=1;a:=1;b:=0;
repeat
gotoxy(x,y);write('*'); delay(20);clrscr;
x:=x+a;y:=y+b;
if(x=70) and (y=1) then begin a:=0; b:=1;end;   {prawa gora -ma smigac w dol}
if(x=70) and (y=20) then begin a:=-1; b:=0;end; {prawy dol - ma smigac w lewo}
if(x=1) and (y=20) then begin a:=0; b:=-1;end; {lewy dol - ma smigac do gory}
if(x=1) and (y=1) then begin a:=1; b:=0;end; {lewa gora - ma smigac w prawo}


until keypressed;


end.

[admin]

Zadanie 2. ProszĂŞ napisaĂŚ program ktĂłry wyÂświetli ramkĂŞ  dookoÂła ekranu skÂładajÂącÂą siĂŞ z gwiazdek. WykorzystaĂŚ pĂŞtlĂŞ Repeat until.

program piotr;
uses crt,dos;
var x,y,a,b,z:integer;

begin
 x:=1; y:=1;a:=1;b:=0; randomize;
repeat

gotoxy(x,y);write('*'); delay(20);
x:=x+a;y:=y+b;
if(x=70) and (y=1) then begin a:=0; b:=1;end;   {prawa gora -ma smigac w dol}
if(x=70) and (y=20) then begin a:=-1; b:=0;end; {prawy dol - ma smigac w lewo}
if(x=1) and (y=20) then begin a:=0; b:=-1;end; {lewy dol - ma smigac do gory}
if(x=1) and (y=1) then begin a:=1; b:=0; z:=random(15); textcolor(z); end; {lewa gora - ma smigac w prawo}


until keypressed;


end.

[admin]

Polecenie length(x).
Polecenie length(x) oblicza z ilu znakĂłw skÂłada siĂŞ sÂłowo x.
Polecenie a:=length(x) pozwala wpisaĂŚ do zmiennej a liczbĂŞ odpowiadajÂąca dÂługoÂści sÂłowa x.


JeÂżeli x bĂŞdzie zmiennÂą typu string. To moÂżna bĂŞdzie wyÂświetliĂŚ kolejne znaki tego sÂłowa. Aby wyÂświetliĂŚ 2 znak sÂłowa x wystarczy wpisaĂŚ polecenie write(x[2]);

program piotr;
uses crt,dos;
var x:integer;
 s:string;
 begin

 repeat

 clrscr; write('Podaj imie: ');readln(s);
 x:=length(s);
 writeln('Wprowadzone imie sklada sie z ',x,' znakow');
  readkey;

until x=10;

[admin]

Zadanie 3. WyÂświetlanie imienia litera po literze.

program piotr;
uses crt,dos;
var x,y:integer;
 s:string;
 begin

 clrscr; write('Podaj imie: ');readln(s);
 x:=length(s);
 writeln('Wprowadzone imie sklada sie z ',x,' znakow');
 for y:=1 to x do
 begin write(s[y]);delay(1000);end;

 readkey;
end.

[admin]

program piotr;
uses crt,dos;
var x,y:integer;
 s:string;
 begin

 clrscr; write('Podaj nazwe: ');readln(s);
 x:=length(s);
  for y:=1 to x do begin
  gotoxy(10+y,10); textcolor(y);
write(s[y]);delay(1000);

  end;

 readkey;
end.

[admin]

Zadanie 5. NarysowaĂŚ 5 krzyÂżykĂłw losowo rozmieszczonych na ekranie monitora. WykorzystaĂŚ pĂŞtlĂŞ repeat until.

program lipa;
uses crt,dos;
var x,y,x1,y1,ile:integer;
begin
x:=0;clrscr;textcolor(green); randomize; ile:=0;
  repeat
  ile:=ile+1;
  x1:=1+random(50); y1:=1+random(10);
  y:=0;
 repeat
  x:=0;
 repeat
   gotoxy(x1+x,y1+y);
   if(x=5) or (y=5) then begin textcolor(yellow); write(chr(178));end;
   x:=x+1;
  until x=11;
  y:=y+1;
 until y=11;
 until ile=5;
readkey;
end.