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 :
Belum ada tanggapan untuk "Analisis Struktur Data pada Pascal"
Posting Komentar