Program Menentukan Bilangan Ganjil Atau Genap

OVERDIV - Contoh Program Menentukan Bilangan Bulat Ganjil atau Genap menggunakan Turbo Pascal for Windows 1.5 (TPW 1.5)

Bagi yang belum punya TPW 1.5, silahkan download aplikasinya disini >>

BERIKUT CODING PROGRAMNYA :

Program GenapGanjil;
Uses wincrt;
Var
x : integer ;
ulang : string ;
function Genap (n : integer ) : Boolean ;

Begin
Genap :=(n mod 2 =0 );
End;

Begin

Repeat
Write ('Masukkan Sembarang Bilangan Bulat : '); readln (x);
If Genap (x) then
Writeln ('Genap')

Else
Writeln ('Ganjil');
writeln;
writeln ( 'Coba lagi? Ketik [Y / T], Kemudian [ENTER] ');readln (ulang);
writeln;
clrscr;

Until (ulang = 'T') OR (ulang = 't');
writeln;
readln;

End.



SCREENSHOT :

SEMOGA BERMANFAAT :)

Tweet