Page 12 - Microsoft Word - Modul pgds perulangan

Modul Pemrograman Dasar Kelas X

B. Asessment Diagnostik

1. Tulias program berikut :
program struktur_if_then;
uses crt;
var
angka: integer;
begin
clrscr;
angka := 10;
if (angka > 5) then
begin
writeln('Variabel "angka" lebih besar dari 5');
end;
readln;
end.

Bagaimana hasil running dari program tersebut ?
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………

2. Buatlah program percabangan if … then untuk memeriksa apakah sebuah angka
termasuk bilangan genap atau tidak dengan menggunakan mod (sisa bagi), jika
dibagi 2 (sisanya 0), artinya angka tersebut merupakan bilangan genap.
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

3. Buatlah program percabangan if … then untuk memeriksa apakah sebuah angka
termasuk bilangan positif atau tidak dengan menggunakan bilangan >0, jika
bilangan lebih dari 0, artinya angka tersebut merupakan bilangan positif.
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 6