- Negatif jika nilai nya kurang dari nol
- Positif jika nilainya lebih dari nol
- Nol jika nilai nya sama dengan nol
program PengomentarBilangan ;
uses wincrt ;
var
x : integer ;
begin
write ( 'Masukkan sebuah bilangan : ' ) ; readln (x) ;
if x = 0 then
write ( 'Bilangan Tersebut adalah Nol' )
else
if x > 0 then
write ( 'Bilangan Tersebut adalah Positif')
else
write ( 'Bilangan Tersebut adalah Negatif' ) ;
(* endif *)
(* endif *)
end.
0 Komentar:
Posting Komentar
Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^