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