Program Ganjil atau Genap dengan Bahasa Pascal

label
Secara garis besar, program ini bekerja melakukan pengecekan suatu bilangan yang diinput apakah merupakan bilangan ganjil atau genap. Bilangan Genap adalah adalah bilangan yang habis dibagi 2, sedangkan bilangan ganjil adalah sebaliknya, bilangan yang tidak habis apabila dibagi 2.
Dibawah ini adalah source code program ganjil genap yang telah berhasil di compile.
program ganjil_genap;
uses crt;
var
bil:integer;
begin
clrscr;
write('Input Bilangan : ');
readln(bil);
if (bil mod 2 = 0) then
writeln(bil,' adalah bilangan genap')
else
writeln(bil,' adalah bilangan ganjil');
readkey;
end.
Program diatas apabila kita run akan menampilkan output seperti dibawah ini :

Read more »
Share This :



sentiment_satisfied Emoticon