proc

Zdefiniuj procedurą, która będzie wyświetlała wartość sumy jej dwóch parametrów formalnych. Podaj przykład wywołania tej procedury.

Sposób rozwiązania

Zadeklarujemy zmienną lokalną c, której następnie przypiszemy wartość sumy parametrów formalnych procedury.

Rozwiązanie

Program procedury; var c. d: integer;

procedurę suma(a. b: integer); (początek definicji procedury}

var c: integer;    (deklaracja zmiennej lokalnej procedury}

begin

c;=a+b;

writelnt'Suma liczb wynosi ’,c); end:

begi n    (początekprogramu głównego}

writeCPodaj dwie liczby: '); readln(c.d);

suma(c, d);    (wywołanie procedury w programie głównym}

readln;

end.

Zmienne użyte w trakcie wywołania procedury, będące parametrami aktualnymi, mogą mieć zupełnie inne nazwy, lecz muszą być zgodne pod względem typów z parametrami formalnymi