🚀 go-pugleaf

Sebastian Szwarc wrote:
> Czy ktos zna strone gdzie dałoby sie znalezc ciekawe przykłady na
> rozne sposoby przekazywania parametrów w procedurach i funkcjach, tak
> by uczniowie technikum byli je w stanie zrozumiec...:)
> Szukalem co nieco ale niewiele znalazłem a bez przykładów trudno to
> tłumaczyć.


A niech strace przeklepanie dokumentacji ;).

Żeby to było totalnie "przykładowe" wystarczy dopisać
WriteLn(zmienna) w miejscach komentarzy.

Przez wartość:
procedure foo(someParam:integer);
zmiany dokonane w ciele procedury na parametrze będa widoczne
tylko w ciele procedury.

<snip>
procedure foo(someParam:integer);
begin
  Inc(someParam); // po tym someParam wynosi 2, ale bar wynosi
                  // nadal 1
end;

var
  bar : integer;
begin
  bar := 1;
  // tutaj bar = 1
  foo(bar);
  // tutaj bar dalej = 1
end.
</snip>

---

Przez referencje:
procedure foo(var par:integer);
zmiany na parametrze w ciele będą widoczne na zewnątrz wywołania.

procedure foo(var par:integer);
begin
  Inc(par); // po tym, par = 2, i bar = 2
end;

var
  bar : integer;
begin
  bar := 1;
  foo(bar);
  // i tutaj bar = 2
end.

---

Object Pascal'owy out, omówiony przez "nas" tutaj:
http://tiny.pl/s7hm

---

Do tego przekazanie z ObjectPascala, które pozwala
przekazać w wygodny sposób liste parametrów
róznych typów[jeżeli można to potraktować jako
'typ przekazania']:

procedure foo(bar:array of const);
begin
end;
// w to jak to sie obrabia odsyłam do dokumentacji
// fpc - www.freepascal.org

begin
  foo(['12123', 45, '2', 2.4]);
end.

p.s. "ciekawe przykłady"? Przykłady nie służa do
bycia ciekawymi, tylko do minimalistycznego przedstawienia
zagadnienia.

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/