Perhatikan tahapan tahapan berikut misalkan ada dua

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: lah nilai "y" sebelumnya dikali dua Bila nilai awal "x" = 10 dan nilai awal "y" = 15, maka nilai akhir variable "hasil" adalah: (A) 0 (B) 25 (C) 240 (D) 150 (E) Salah semua 58. Perhatikan tahapan-tahapan berikut: Misalkan ada dua variable "x" dan "y", dan variable "hasil" yang nilai awalnya 0. Lakukan proses berikut selama nilai "x" lebih besar dari 0. 1. Jika nilai "x" ganjil maka nilai "hasil" := "hasil" + y. 2. nilai "x" selanjutnya adalah nilai "x" sebelumnya dibagi dua, bila ada hasil pecahan, maka pecahannya di buang. (contoh bila nilai "x" sebelumnya 1, maka nilai "x" selanjutnya 0.) 3. nilai "y" selanjutnya adalah nilai "y" sebelumnya dikali dua Manakah program pascal yang merupakan program dari tahapan-tahapan tersebut? (catatan: fungsi "mod" memberikan nilai sisa bagi, contoh: 13 mod 5 = 3 dan fungsi “div” membagi dan membulatkan ke bawah) (A) var x,y : integer x := 10; y := 15; hasil := 0; while x > 0 begin if (y mod 2 = 1) then begin hasil := hasil + y ; end; x := x * 2; y := y div 2; end (B) var x,y : integer x := 10; Team Olimpiade Komputer Indonesia (TOKI) 18 Olimpiade Sains Tingkat Kabupaten/Kotamadya y := 15; hasil := 0; while x > 0 begin if (x mod 2 = 1) then begin hasil := hasil + y ; end; x := x div 2; y := y * 2; end (C) var x,y : integer x := 10; y := 15; hasil := 0; while x > 0 begin if (x mod 2 = 1) then begin hasil := hasil + x ; end; x := x * 2; y := y div 2; end (D) var x,y : integer x := 10; y := 15; hasil := 0; while x > 0 begin if (x mod 2 = 1) then begin hasil := hasil + x ; end; x := x div 2; y := y * 2; end (E) var x,y : integer x := 10; y := 15; hasil := 0; while x > 0 begin if (y mod 2 = 1) then begin hasil := hasil + y ; end; x := x div 2; y := y * 2; end 59. Perhatikan program berikut: x := x + y ; y := x - y ; x := x - y ; Team Olimpiade Komputer Indonesia (TOKI) 19 Olimpiade Sains Tingkat Kabupaten/Kotamadya Bila nilai awal "x" = 7 dan nilai awal "y" = 8, berapakah nilai akhir kedua bilangan tersebut? (A) nilai "x" tetap 7, dan nilai "y" tetap 8 (B) nilai "x" = 8, dan nilai "y" = 7 (C) nilai "x" = 15, dan nilai "y" = 15 (D) nilai "x" = 15, dan nilai "y" = 15 (E) salah semua 60. Perhatikan program berikut type ari = array[1..5] of byte ; var x : ari ; var i : byte; ................... for i := 1 to 5 do x[i] := 10 div i ; for i := 4 downto 1 do x[5] := x[5] + x[i] ; writeln( x[5] ) ; Berapakah output yang dihasilkan program tersebut : (A) 22.8 (B) 5 (C) 20.8 (D) 20 (E) 22 Akhir dari berkas soal Team Olimpiade Komputer Indonesia (TOKI) 20...
View Full Document

Ask a homework question - tutors are online