Yuk bantu teman kamu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2010 - Komputer , Nomor 21

21

Berikut ini ada dua potong algoritma pseupascal.

// pertama 
readln(x); 
repeat 
  writeln(x); 
  x := x + 1; 
Until x > 10; 
//kedua 
readln(x); 
while x <= 10 do 
begin 
  writeln(x); 
  x := x + 1; 
end; 

Apakah kedua potong algoritma itu berperilaku sama? Jika jawaban anda tidak, maka apa yang harus diharus dilakukan? Jawablah dengan memilih salah satu dari pilihan berikut dan menuliskan huruf pilihannya di lembar jawaban:

(A) sama, tidak perlu diapa-apakan lagi.

(B) tidak, pindahkan “readln(x)” ke dalam loop-while (sebelum “writeln(x)”).

(C) tidak, tambahkan “writeln(x)” setelah “readln(x)” dan sebelum loop-while.

(D) tidak, tambahkan “if x > 10 then writeln(x);” setelah “readln(x)”

(E) tidak, tambahkan “if x >= 10 then writeln(x);” setelah “readln(x)”

(F) ttidak, tapi tidak ada yang bisa dilakukan karena memang loop-repeat tidak bisa digantikan loop-while