Salam hangat buat semuanya. Sekarang kami akan mencoba memberi scrip " mengkomentari " suatu bilangan pada program PASCAL. langsung saja ke TKP ^_
program ini bekerja sesuai perintah yang kita masukkan pada program itu sendiri. kami memberi perintah seperti ini :
1. Negatif jika nilai nya kurang dari nol
2. Positif jika nilainya lebih dari nol
3. Nol jika nilai nya sama dengan nol
program PengomentarBilangan ;
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.
jika mengalami DEBUG coba cek kembali scrip anda ^_^
0 komentar