Tytuł: Procedury - wprowadzanie zmiennych Wiadomość wysłana przez: 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. Tytuł: Odp: Procedury - wprowadzanie zmiennych Wiadomość wysłana przez: admin 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. Tytuł: Odp: Procedury - wprowadzanie zmiennych Wiadomość wysłana przez: admin 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. Tytuł: Odp: Procedury - wprowadzanie zmiennych Wiadomość wysłana przez: admin 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. Tytuł: Odp: Procedury - wprowadzanie zmiennych Wiadomość wysłana przez: admin 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. |