Procedury - wprowadzanie zmiennych

[admin]

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.

[admin]

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.

[admin]

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.

[admin]

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.

[admin]

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.