Page 26 - Microsoft Word - Modul pgds perulangan

Modul Pemrograman Dasar Kelas X

C. Assesment Diagnostik

C. Tulias program berikut :
program struktur_if_then_else_nested;
uses crt;
var
angka:integer;
begin
clrscr;
write('Masukkan sebuah angka: '); readln(angka);
if (angka > 0) then
begin
write('Angka yang anda masukkan merupakan bilangan positif ');
if (angka > 10) then
begin
writeln('dan besar dari 10');
end;
end
else
begin
write('Angka yang anda masukkan merupakan bilangan negatif ');
end;
end.
Bagaimana hasil running dari program tersebut ?
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………

D. Buatlah program percabangan if…else bercabang untuk memeriksa apakah
sebuah angka termasuk bilangan genap atau ganjil dengan mod (sisa bagi) dan
memeriksa apakah bilangan tersebut lebih dari sepuluh atau kurang dari sepuluh
dengan tanda (> , <).
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

E. Buatlah program percabangan if…else bercabang untuk memeriksa apakah
sebuah angka termasuk bilangan positif atau negatif dengan menggunakan
bilangan >0, dan memeriksa apakah bilangan tersebut merupakan bilangan genap
atau ganjil dengan menggunkan mod ( sisa bagi )
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 20