Pascal Funkcje i procedury

 Sposób wykorzystania procedury:

program procedury_w_Pascalu;
uses
crt;
 
procedure pytaj;
var
a,b: byte;
begin
clrscr;
writeln('Podaj pierwszą liczbę ');
readln(a);
writeln('Podaj drugą liczbę ');
readln(b);
end;
 
begin
pytaj;
readln;
end.

    teraz spróbujmy napisać funkcje

program funkcje_w_Pascalu;
uses
crt;
var
a,b: byte;
function suma(a,b: byte): integer;
begin
clrscr;
suma:=a+b;
end;
 
begin
clrscr;
writeln('Podaj pierwszą liczbę ');
readln(a);
writeln('Podaj drugą liczbę ');
readln(b);
writeln('Suma liczb wynosi ',suma(a,b));
readln;
end.

• « poprz.
• nast. »