Darmowe Forum

Operacje na zmiennych lokalnych i globalnych
Zmienna lokalna przesÂłania w procedurze zmienne globalne!!!!
PrzykÂład poniÂżej przedstawia zasÂłanianie zmiennej globalnej x ,zmiennÂą lokalnÂą x po wywoÂłaniu procedury piÂłka. Zmienna y jest zmiennÂą globalnÂą i nie ma odpowiednika w procedurze, dlatego nie jest niczym zasÂłaniana.

program proc_pilka;
uses crt,dos;
var x,y: byte;

procedure pilka;
var x,a:byte; {zmienne lokalne}
begin a:=1;x:=20;
repeat
x:=x+a; clrscr;
if (x>65) or (x<2) then a:=-a;
gotoxy(x,y);write('O'); gotoxy(60,1); write('x=',x);delay(100);
until keypressed;

end;
begin  x:=255; y:=15;
 pilka;
 write(x); readkey;readkey;
end.

Wprowadzanie wartoÂści do procedury.
Pozwala na wprowadzenie do procedury wartoÂści zmiennej z innej czĂŞÂści programu.

PrzykÂładem niech bĂŞdzie procedura o nazwie kwadrat, rysujÂąca kwadrat z '*'.
Przy nazwie procedury deklarowane sÂą zmienne ktĂłre bĂŞdÂą wprowadzane do procedury z programu g³ównego. JeÂżeli procedura rysuje kwadrat , to zmienne wprowadzone z programu g³ównego bĂŞdÂą wskazywaÂły poÂłoÂżenie tego kwadratu na ekranie. Procedury ktĂłre posiadajÂą zmienne wprowadzane z programu noszÂą  nazwĂŞ procedur parametrycznych.

program  magiel;
uses crt,dos;
var x,y:byte;
procedure kwadrat (a,b:byte);{deklaracja zmiennych wprowadzanych do procedury}
 var x,y:byte;
begin
for x:=1 to 5 do begin
for y:=1 to 5 do begin gotoxy(a+x,b+y);write('*');end;end;
end;
  procedure ruch;
  var x,y:byte;
  begin randomize;
  repeat
  x:=1+random(60); y:=1+random(15);kwadrat(x,y);delay(200);clrscr;
  until keypressed;

  end;

begin clrscr;
ruch;

end.

Przekazywanie parametrów przez nazwê lub wartoœÌ.
Parametr nie poprzedzony s³owem var jest przekazywany przez wartoœÌ. Oznacza to,¿e procedura otrzymuje kopie wartoœci parametru aktualnego, sporz¹dzon¹ w chwili wywo³ania.

W przypadku poprzedzenia parametru formalnego sÂłowem var w chwili wywoÂłania procedur otrzymuje nie jego kopie, a jego wskaÂźnik do oryginaÂłu odpowiedniej zmiennej.

Przekazywanie parametrów przez nazwê umo¿liwia komunikacje dwustronn¹, jednak je¿eli dany argument pe³ni wy³¹cznie role danej wejœciowej , wystarczy przekazaÌ przez wartoœÌ.

Program a;
uses crt;
Var znak:char;
i:integer;
procedure czytaj(var c:char);
begin
write(‘wpisz pojedyĂączy znak z klawiatury:  ‘);
readln (c);
i:=ord(c);
end;
Begin
repeat
czytaj(znak);
writeln(‘wprowadzono znak  ‘,znak);writeln(‘o kodzie  ‘,i)
until znak=(‘0’);
end.

Program wyÂświetlajÂący kwadracik z liter "A"

program fistaszek;
uses crt,dos;

procedure kw;
var x,y:byte;
begin clrscr;
for x:=1 to 5 do
begin
for y:=1 to 5 do
begin gotoxy(1+x,10+y);write('A');end;
end;readkey;
end;


begin
kw;
end.

Program obliczaj¹cy zawartoœÌ alkoholu we krwi.

program ile_krwi; {specjalnie dla Patrycji}
uses crt,dos;
var masa, ilosc_nap, procentowy_udz: real;
procedure face;
begin clrscr;
gotoxy(10,10);write('Podaj ile wypiles[l]: ');readln(ilosc_nap);
gotoxy(10,12);write('Podaj ile procent alkoholu bylo w napoju:' );readln(procentowy_udz);
gotoxy(10,14); write('Podaj swoj mase ciala: ');readln (masa);
end;
procedure licz;
var a, b, c :real;
begin
a:=ilosc_nap*procentowy_udz/100;
b:=0.08*masa;
c:=a/(b+a)*100;
gotoxy(10,16);write('zawartosc alkoholu we krwi= ',c:0:2,' promili alkoholu ');
readkey;

end;

begin
face;
licz;
end.