admin
|
|
« : Styczeń 30, 2012, 09:22:33 » |
|
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.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #1 : Styczeń 30, 2012, 09:29:14 » |
|
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.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #2 : Styczeń 30, 2012, 09:43:38 » |
|
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.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #3 : Luty 20, 2012, 09:24:19 » |
|
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.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #4 : Luty 20, 2012, 10:36:40 » |
|
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.
|
|
|
Zapisane
|
|
|
|
|