Menentukan bilangan positif dan negatif dengan PASCAL

Teringat dulu ketika mendapat tugas pemrograman. Pak dosen memberikan tugas yang cukup asing bagi saya. Menentukan sebuah bilangan termasuk bilangan positif atau negatif dengan bahasa pemrograman pascal. Sungguh bingung dan tak ada gambaran apapun untuk mengerjakan. Hingga akhirnya google jadi pelampiasan kejengkelanku dengan pak Dosen, hehe. 30 menit berlalu belum aku dapatkan refrensi yang aku cari. Google yang tidak menemukan atau aku yang tidak mengetahui apa yang aku cari, Sempat putus asa untuk mengerjakan. Namun teman membawa sebuah buku dengan tulisan Abdul Kodir. Dari buku itulah akhirnya aku menemukan jawaban. Untuk sobat yang lagi belajar PASCAL buku karangan Abdul Kodir aku sarankan untuk dipelajari. Berikut adalah souce code untuk sintaks menentukan bilangan positif atau negatif. Untuk copy sintaks klik view plain ya sobat. Semoga membantu ...

uses wincrt;

var jumlah_input, urutan_ke, bilangan_inputan, jumlah_inputan, n_positif, n_negatif : integer;



rata2 : real;

jumlah_positif, jumlah_negatif: integer;

rata2_positif, rata2_negatif: real;



                                     



begin

writeln ('=-----------------------------------------------------------------==');

writeln ('=                    PROGRAM UNTUK MENGHITUNG                      =');

writeln ('= JUMLAH DAN RATA-RATA BILANGAN POSTIF & NEGATIF DARI N INPUTAN    =');

writeln ('=------------------------------------------------------------------=');

writeln ('=------------------------------------------------------------------=');

writeln ('=                   Toto Raharjo 3105111326 TI E                   =');

writeln ('=------------------------------------------------------------------=');

writeln ('');



writeln ('N LEBIH BESAR ATAU SAMA DENGAN NOL ADALAH POSITIF SELAIN ITU NEGATIF');



writeln  ('');

write ('Berapakah bilangan yang akan anda inputkan ? ==>: ');

readln (jumlah_input);



{ LANGKAH 1 }

for urutan_ke:= 1 to jumlah_input do   {Perintah perulangan sampai jumlah bilangan yang diinputkan}





begin



{ LANGKAH 2 }

 writeln  ('');

 writeln ('====================================================');

 write ('bilangan ke ', urutan_ke, ': '); {Menentukan urutan bilangan yang diinputkan}

 readln (bilangan_inputan);                {Membaca bilangan yang diinputkan }





{ LANGKAH 3 }

{Menentukan bilangan yang diinputkan adalah POSITIF atau NEGATIF}

  if bilangan_inputan >=0 then writeln (bilangan_inputan, ' adalah bilangan POSITIF')

  else writeln (bilangan_inputan, ' adalah bilangan NEGATIF');





{ LANGKAH 4 }

{Menentukan banyaknya bilangan POSITIF dan NEGATIF dari bilangan yang dinputkan}

       if bilangan_inputan >=0 then n_positif:=n_positif+1

  else n_negatif:=n_negatif+1;





{ LANGKAH 5 }

{Rumus untuk menghitung jumlah dan rata-rata bilangan secara keseluruhan}                                   

jumlah_inputan:=jumlah_inputan+bilangan_inputan;

rata2:=jumlah_inputan/jumlah_input;





{ LANGKAH 6 }

{Rumus untuk menghitung jumlah bilangan positif saja dan negatif saja}

if bilangan_inputan >=0 then jumlah_positif:=jumlah_positif+bilangan_inputan;

if bilangan_inputan <0 then jumlah_negatif:=jumlah_negatif+bilangan_inputan;  end;    { LANGKAH 7 } begin        {Rumus untuk menghitung rata-rata bilangan positif saja dan negatif saja}  rata2_positif:=jumlah_positif/n_positif;  rata2_negatif:=jumlah_negatif/n_negatif;  end;      {Menampilkan hasil perhitungan dari rumus}      writeln ('');   writeln ('=====================================================');       writeln ('');    writeln ('*****************************************************');      writeln ('');      writeln ('Jumlah keseluruhan bilangan adalah  ======> ', jumlah_inputan);

 writeln ('Rata-rata keseluruhan bilangan adalah       = ', rata2:0:2);

  writeln ('');

   writeln ('Bilangan POSITIF yang diinputkan adalah ==> ', n_positif);

 writeln ('Jumlah dari bilangan POSITIF saja adalah    = ', jumlah_positif);

 writeln ('Rata-rata dari bilangan POSITIF saja adalah = ', rata2_positif:0:2);

   writeln ('');

    writeln ('Bilangan NEGATIF yang diinputkan adalah ==> ', n_negatif);

 writeln ('Jumlah dari bilangan NEGATIF saja adalah    = ', jumlah_negatif);

 writeln ('Rata-rata dari bilangan NEGATIF saja adalah = ',rata2_negatif:0:2);

 writeln ('');

  writeln ('               TERIMA KASIH ;-)                  ');

writeln ('*****************************************************');

end.

Tweet