News Update :

Mencari Nilai Rata-rata Dengan Pascal

Kamis, 26 Januari 2012

Jumpa lagi dengan saya para sobatblogger, kali ini saya akan berbagi ilmu yang saya dapat dari pelajaran di kampus masih di bidang program, nah pada pertemuan ini saya akan berbagi ilmu tentang bagaimana mencari nilai rata-rata baik rata-rata positif maupun negatif serta tambahan mencari jumlah bilangan posotif dan negatif, oke gak usah panjang lebar langsung saja kita simak.

uses wincrt;
var cn,cn,jp,jn,i,n,bil: integer;
rata:real;

begin
    write('Banyak Bilangan : '); readln(n);
     writeln('');
     for i := 1 to n do
         begin
              Write('Bilangan ',i,' : '); readln(bil);
              if bil > 0 then
              begin
                   jp := jp+bil;
                   cp := cp+1;
              end
              else
              begin
                   jn := jn+bil;
                   jn := cn+1;
              end
         end;
         writeln('');
         writeln('Jumlah Bilangan Positif :',jp);
         writeln('Rata-rata Bilangan Positif :',jp/cp:0:2);
         writeln('Jumlah Bilangan Negatif :',jn);
         writeln('Rata-rata Bilangan Negatif :',jn/cn:0:2);
         readln;
end.
Share this Article on :

0 comments:

Poskan Komentar

 

© Copyright Lesehan ilmu 2010 -2011 | Design by FHP DesignerCorp | Published by FHP Corp | All Rights Reserved