Pascal - Program Tampil Ganjil
Program Tampil Ganjil menggunakan bahasa Pascal
program tampil_ganjil;
{buatlah program membaca sebuah bilangan bulat, jika bilangan itu ganjil
maka tampilkan ke layar.}
{deklarasi}
var x:integer;
{algoritma}
begin
writeln('Program Tampil Ganjil');
write('Masukkan bilangan : ');
readln(x);
if (x mod 2 = 1) then
writeln(x,' ADALAH BILANGAN GANJIL')
end.
HASIL COMPILE :
program tampil_ganjil;
{buatlah program membaca sebuah bilangan bulat, jika bilangan itu ganjil
maka tampilkan ke layar.}
{deklarasi}
var x:integer;
{algoritma}
begin
writeln('Program Tampil Ganjil');
write('Masukkan bilangan : ');
readln(x);
if (x mod 2 = 1) then
writeln(x,' ADALAH BILANGAN GANJIL')
end.
HASIL COMPILE :
Comments
Post a Comment
-Berkomentarlah yang baik dan rapi.
-Menggunakan link aktif akan dihapus.