Buat anda yang baru belajar bahasa pascal dan ingin mencari coding untuk mengetahui suatu bilangan yang di input dikatan genap atau ganjil menggunakan bahasa pascal dengan cara yang simple.
Coding Program :
uses crt;
var
x,y : integer ;
procedure GenapatauGanjil;
begin
clrscr;
write ('Masukkan Bilangan : '); readln (x);
y := x mod 2;
end;
begin
GenapatauGanjil;
if y=0 then
writeln (x, ‘ Adalah Bilangan Genap’)
else
writeln (x, ‘ Adalah Bilangan Ganjil’)
readln;
end.
Output :
Masukan bilangan :_ ( misal 4)
4 adalah bilangan genap
Masukan bilangan :_ (misal 7)
7 adalah bilangan ganjil
Masih banyak lagi cara untuk mendapatkan coding program untuk menentukan suatu bilangan dikatakan genap atau ganjil, tergantung dari logika anda. diatas adalah sebuah program simple yang menggunakan procedure.
0 comments:
Posting Komentar