28 Desember 2010

Pascal : Program Pengomentar Bilangan

Buatlah sebuah program yang meminta agar sebuah bilangan dimasukkan dari keyboard dan kemudian program dapat mengomentari bilangan tersebut :
  • 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.

    Share on Facebook
    Share on Twitter
    Share on Google+

    Related : Pascal : Program Pengomentar Bilangan

    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 ^_^