Soal UTS Algoritma 08/09 No. 1 (function)

May 19, 2009 No Comments by Sahabat

uses wincrt;

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

begin

if a = 1 then

uji := a*3

else if b = 1 then

uji := b*3

else

uji := a*b + (uji(a-1,b) + uji (a,b-1));

end;

begin

write (uji (2,2));

end.

tampilan.

10

proses.

uji (2,2) yang ada di program utama = function uji (a,b)

jadi logikanya

a = 2 , b = 2

a=2

apakah a=1

2=1 tidak, maka

b=2

apakah b=1

2=1 tidak, maka

uji = a x b + (uji (a-1,b) + uji (a,b-1))

a=2,b=2,

uji (a-1,b)

a= a-1

a= 2-1

a= 1

b=2

a=1

apakah a=1 ya, maka

uji= a x 3

uji= 1 x 3

uji= 3

uji (a,b-1)

a=2

b=b-1

b=2-1

b=1

a=2

apakah a=1

2=1 tidak , maka

b=1

apakah b=1

1=1 ya, maka

uji=b x 3

uji=1 x 3

uji= 3

uji= a x b + (uji (a-1,b) + (a,b-1))

uji= 2 x 2 + (3 + 3)

uji= 4 + 6

uji= 10

Pascal, Programming Algorithms
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Soal UTS Algoritma 08/09 No. 1 (function)”

Leave a Reply

You must be logged in to post a comment.