Page 98 - Pemrograman Dasar kelas X

94 Pemrograman Dasar SMK Kelas X Sem 2

Program KondisiAngka
Var a,b,c :integer

Begin
readln(a,b,c);
IF (a mod b=0) THEN

a:=b;
IF (b mod c=1) THEN

B:=c+1;
IF ((b mod 2=0) AND (c mod 2 =1) THEN
C:=20;

writeln(a,b,c);
readln;

END.

a. Tentukan output dari program di atas jika a=44, b=22, c =3

b. Tentukanlah satu contoh inputan sehingga nilai a,b, dan c tidak berubah, jika bisa.
3. Cari permasalahan yang ada di sekitarmu yang dapat diselesaikan ke dalam bentuk
percabangan 1 kondisi. Buatlah program dengan bahasa Pascal untuk menyelesaikannya.

3.1.5. Uji Kompetensi
A. Pilihan Ganda

1. Format penulisan struktur percabangan dengan 1 kondisi di dalam pascal adalah …
a. if (kondisi) then

Pernyataan;
b. if (kondisi) do
Pernyataan;

c. if (kondisi)
Pernyataan;

d. for(kondisi)then
Pernyataan;
e. for (kondisi) do

Pernyataan;
2. Perhatikan potongan kode program berikut.
diskon:=0;

if harga>500000 then
diskon := harga*0.05;
hargatotal:=harga-diskon;