Darmowe Forum

W programach bardzo czêsto pojawia siê koniecznoœÌ powtarzania pewnej czêœci kodu. W Pascalu dostêpne s¹ trzy rodzaje pêtli. Jedn¹ z nich jest pêtla for.
SkÂładnia pĂŞtli for... wyglÂąda nastĂŞpujÂąco:
For (wartoœÌ pocz¹tkowa licznika) to (wartoœÌ koùcowa licznika) do (polecenie);

Uwaga: W tym przypadku wartoœÌ pocz¹tkowa musi byÌ mniejsza lub równa wartoœci koùcowej licznika. Licznik to liczba ca³kowita która zmienia swoj¹ wartoœÌ po ka¿dym obrocie pêtli. Pêtla dzia³a tak d³ugo jak d³ugo wartoœÌ licznika nie przekroczy wartoœci umieszczonej po s³owie to ( musi byÌ wiêksza!!!). Jak widaÌ przedstawiona powy¿ej sk³adnia dotyczy pêtli w której wartoœÌ licznika roœnie.
W pêtli for wartoœÌ licznika mo¿e byÌ równie¿ zmniejszana, sk³adnia takiej pêtli wygl¹da tak:
For (wartoœÌ poczÂątkowa licznika) downto (wartoœÌ koĂącowa licznika) do (polecenie); 

Uwaga: W tym przypadku wartoœÌ pocz¹tkowa licznika musi byÌ wiêksza od jej wartoœci koùcowej.

PrzykÂład pĂŞtli z licznikiem o rosnÂącej wartoÂści:
for x:=1 to 10 do writeln(x); pĂŞtla wyÂświetli liczby od 1 do 10 umieszczone jedna pod drugÂą.

PrzykÂład pĂŞtli o wartoÂści malejÂącej licznika:
for x:=10 downto 1 do writeln(x);  pĂŞtla wyÂświetli liczby od 10 do 1 umieszczone jedna pod drugÂą. 

Uwaga: jeÂżeli pomylisz wartoÂści licznika, pĂŞtla nie zadziaÂła!!!!!




 

program zad1_2;
uses crt,dos;
var x:integer;
begin
clrscr;
for x:=1 to 10 do writeln('Lubie programowac w Pascalu!!!');
readkey;
end.

program zad1_2;
uses crt,dos;
var x:integer;
begin
clrscr;
for x:=1 to 60 do
begin
clrscr;gotoxy(x,10);
writeln('Adam');delay(100);
end;
readkey;
end.

W programie wykorzystano instrukcjĂŞ grupujÂąca begin...end;
Polecenie gotoxy(x,y) sÂłuÂży do przemieszczania napisu, x zmienia siĂŞ w pĂŞtli wobec czego napis jest wyÂświetlany przesuniĂŞty coraz bardziej w prawo. Czyszczenie ekranu clrscr,wymazuje poprzedni napis, a polecenie delay(100) zatrzymuje program na 0.1 sekundy, dziĂŞki czemu ma siĂŞ wraÂżenie ruchu napisu. Polecenie delay(x) opisane jest w materiaÂłach dostarczonych PaĂąstwu. SprĂłbujcie zastÂąpiĂŚ wartoœÌ 100 innymi wartoÂściami np.1000 uzyskujÂąc spowolnienie ruchu napisu. 

program zad1_3;
uses crt,dos;
var x:integer;
begin
clrscr;
for x:=1 to 60 do
begin
clrscr;gotoxy(x,10);
write('Adam');
gotoxy(61-x,11);
write('Ewa');
delay(100);
end;
readkey;
end.

Zadanie 4. NapisaÌ program który bêdzie pionowo (góra-dó³) przemieszcza³ napis: ADAM.

Program nr 7
Program prosi o podanie liczby od ktĂłrej ma wyÂświetlaĂŚ i liczby do ktĂłrej ma wyÂświetlaĂŚ. NastĂŞpnie wyÂświetla je na ekranie.

program a;
uses crt, dos;
var x,y,z:integer;
begin
clrscr;
write('Podaj od jakiej liczby wyswietlic: ');readln(y);
write('Podaj do ktorej liczby wyswietlic: ');readln(z);
for x:=y to z do
begin
writeln(x);sound(1000); delay(100);nosound;
 end;

readkey;
end.

Zadanie 8. NapisaĂŚ program ktĂłry wyÂświetli imiĂŞ tyle razy ile wynosi wiek wprowadzajÂącego.



program milus;
uses crt,dos;
var x:string;
y,z:byte;
begin
clrscr;
write('Podaj swoje imie : ');readln(x);
write('Podaj swoj wiek: ');readln(y);
clrscr;
for z:=1 to y do
begin
writeln(z:5,' : ',x);
end;
readkey;
end.

program milus;
uses crt,dos;
var x:string;
y:byte;
begin
clrscr;
for y:=1 to 60 do
begin
clrscr; gotoxy(y,10);write('ADAM');delay(50);
textcolor(y);

end;

readkey;
end.

program rurka;
uses crt,dos;
var x,y:integer;
z: string;
begin
 clrscr;
 gotoxy(30,10);write('Podaj nazwe: ');readln(z);
clrscr; gotoxy(35,10);write(z);
delay(1000);
for x:=1 to 30 do
begin
clrscr;gotoxy(30+x,10);write(z);delay(200);
end;


end.

program rurka;
uses crt,dos;
var x,y:integer;
z: string;
begin
 clrscr;
z:='Adam';

for y:=1 to 10 do begin

for x:=1 to 60 do
begin
clrscr;gotoxy(x,10);write(z);gotoxy(60,1); write(y); delay(100);
end;
end;

end.

Wykorzystanie funkcji randomize;
Funkcja randomize losuje liczby z podanego zakresu. PrzykÂład wykorzystania tej funkcji podano poniÂżej

program rurka;
uses crt,dos;
var x,y,a:integer;
z: string;
begin
 randomize;
 clrscr;
 for a:=1 to 1000 do
 begin
 x:=random(75);
 y:=random(30);
 gotoxy(x+1,y+1);write('*');delay(10);

 end;

program rurka;
uses crt,dos;
var x,y,a,c:integer;
z: string;
begin
 randomize;
 clrscr;
 for x:=1 to 10 do
 begin
 for y:=1 to 10 do
 begin
 textcolor(green);
 gotoxy(x+30,y+5);write('*');
 end; end;
  readkey;
end.

Zadanie 10. Klasyczna choinka, korzystajÂąca z pĂŞtli for.....

program rurka;
uses crt,dos;
var x,y,a,c:integer;
z: string;
begin
 randomize;
 clrscr;
 for x:=1 to 10 do
 begin
 for y:=1 to x do
 begin
 textcolor(green);
 gotoxy(x+30,y+5);write('*');
 end; end;
 for y:=1 to 10 do
 begin
 for x:=1 to 10- y do
 begin
 textcolor(green);
 gotoxy(x+40,y+5);write('*');
 end; end;
  readkey;
end.