Analisis Struktur Data pada Pascal

1.         function P(x, y: integer):integer;

begin

if (x = 0) then

P := y

else

begin

P := P(x-1, y+1);

end;

Berapakah nilai writeln(P(5,10), ‘ dan ‘,

P(2010,2011)); ?

Hasilnya :

2.   function F1(a, b : integer) : integer;

begin

if (a < b) then

     begin

     F1 := F2(a, b) + 1;

     end

     else if (a < 2 * b) then

     begin

     F1 := F1(b, a) + 1;

     end

     else

     F1 := 0;

     end;

end;

function F2(b, a : integer) : integer;

begin

     F2 := F1(2 * a, b) + 1;

     while (a < b) do

       begin

       F2 := F1(a, b);

       a := 2 * a;

       end;

end;

a. Berapakah hasil dari F2(1, 1)?

b. Berapakah hasil dari F1(3, 2)?

Hasilnya :