Pascal Funkcje i procedury
- Szczegóły
- Kategoria: Pascal
- Opublikowano: poniedziałek, 29, sierpień 2011 16:41
- ber3333
- Odsłony: 66853
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.
