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.

Używamy cookies i podobnych technologii m.in. w celach: świadczenia usług, reklamy, statystyk. Korzystanie z witryny bez zmiany ustawień Twojej przeglądarki oznacza, że będą one umieszczane w Twoim urządzeniu końcowym. Pamiętaj, że zawsze możesz zmienić te ustawienia. To find out more about the cookies we use and how to delete them, see our privacy policy.

I accept cookies from this site.

EU Cookie Directive Module Information