Page 15 - Microsoft Word - Modul pgds perulangan
P. 15
Modul Pemrograman Dasar Kelas X
Contoh program :
program struktur_if_then_else;
uses crt;
var
angka: integer;
begin
clrscr;
writeln (‘Masukkan angka : ‘); readln(angka);
if (angka > 5) then
begin
writeln('Variabel "angka" lebih besar dari 5');
end
else
begin
writeln('Variabel "angka" lebih kecil dari 5');
end;
readln;
end.
Hasil running program :
Pada kode program di atas kita diminta untuk memasukkan sebuah angka. Kemudian
program memeriksa sebuah kondisi if (angka > 5), jika hasilnya TRUE yang artinya isi
variabel angka lebih besar dari 5, jalankan writeln (‘Variabel “angka” lebih besar dari 5’).
Tapi jika kondisi if (angka > 5) menghasilkan nilai FALSE yang artinya angka tidak lebih
besar dari lima, maka yang akan dijalankan adalah writeln (‘Variabel “angka” lebih kecil
dari 5’).
SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 9
