OSP 2013

  1. Perhatikan potongan program di bawah ini!
    var
        T:array[1..13] of integer = (32, 6, 12, 64, 68, 100, 214, 120, 30, 80, 24, 22, 88);
    
    function q(c,d:integer):integer;
    var
        e:integer;
    begin
        if (d=0) then q:=c else
        begin
            e:=c mod d;
            q:=q(d,e);
        end;
    end;
    
    function p(a,b:integer):integer;
    var 
        i:integer;
    begin
        p:=T[a];
        for i:=a to b do
        begin
            p:=q(p,T[i]);
        end
    end;
    
    begin
        writeln(p(1,13));
    end.
    
    Berapakah output dari program di atas?

    Fungsi q merupakan fungsi yang mencari FPB dari dua nilai dengan menggunakan algoritma euclid. Sedangkan fungsi p akan memanggil fungsi q untuk mencari FPB dari T[a] sampai T[b].

    Dengan demikian p(1,13) akan mencetak FPB dari semua nilai pada array, yaitu 2.

Share Now:

5 2 votes
Article Rating
Subscribe
Notify of
guest
0 Comments
Inline Feedbacks
View all comments
0
Would love your thoughts, please comment.x
()
x

Follow TikTok Kami @cahinfor

Pembahasan soal tahun 2023 sudah tersedia di TikTok Kami loh!