Funkcje w Turbo Pascalu.doc

Funkcje w Turbo Pascalu

Funkcje. Są bardzo przydatnymi podprogramami, które mogą nas wybawić od wklepywania wielokrotnie w różnych miejscach naszego programu tego samego kodu źródłowego. Są to programiki, które mogą zrobić wszystko co zechcemy. Poniżej podaję, parę przykładów.

Funkcje to nic innego jak rozszerzone procedury. Funkcje w przeciwieństwie do procedur zwracają wartości, wyjście z funkcji QWQ odbywa się poprzez podstawienie w jej kodzie QWQ:=zwraca_wartosc;

function QWQ (A, B : Integer; C: Real) : Integer;

a jej wywołanie wygląda następująco:

wynik:=QWQ(A,B,C);

Program do obliczania największego wspólnego dzielnika:

program NWD;

var

  A, B : Integer;

function NWD (A, B : Integer) : Integer;

{ Funkcja oblicza najwiekszy wspolny podzielnik liczb }

{ A i B.                                              }

var

  Pom : Integer;

begin

  while (A<>B) do

  begin

    if A < B then

    begin

      Pom := A; A := B; B := Pom;

    end;

    A := A - B;

  end;

  NWD := A;

end;  {-------------------------- NWD -}

begin

  write ('Podaj A: '); readln (A);

  write ('Podaj B: '); readln (B);

  write ('NWD (', A, ', ',', B, ') ')= ')=', NWD (A, B));

  readln;

end.

Następnym przykładem nich będzie sposób obliczania potęgi(naturalnej) liczby całkowitej:

program potega_rekurencja;

var

  A : Integer;

  N : Byte;

function PotegaCalkowita (A: Integer; N : Byte) : Integer;

{ Funkcja oblicza N-ta potege liczby A, dla calkowitego A }

{ i naturalnego N.                                        }

begin

  if N=0 then

    PotegaCalkowita := 1

  else

    if (N mod 2 = 0) then

      PotegaCalkowita := Sqr (PotegaCalkowita (A, N div 2))

    else

      PotegaCalkowita := A * Sqr (PotegaCalkowita (A, N div 2))

end; {----------------------------------- PotegaCalowita -}

begin

  write ('Podaj liczbe: '); readln (A);

  write ('Podaj wykladnik: '); readln (N);

  writeln (A, '^', N, ' = ', PotegaCalkowita (A, N));

  readln;

end.

Standardowe Funkcje

3