Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan pascal

Posted by Unknown Wednesday, December 14, 2011 at 8:30 AM

Saya akan menujukan cara membuat Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt;
var hp,hm,jp,jn,i,n,bil: integer;
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;
                   hp := hp+1;
              end
              else
              begin
                   jn := jn+bil;
                   hm := hm+1
              end
         end;
         writeln('');
         writeln('Jumlah Bilangan Positif :',jp);
         writeln('Rata-rata Bilangan Positif :',jp/hp:0:2);
         writeln('Jumlah Bilangan Negatif :',jn);
         writeln('Rata-rata Bilangan Negatif :',jn/hm:0:2);
         readln;
 writeln(' ');
 writeln('---------------------------------------------');
 writeln('************** Nama    : Heri Widyantoro  ************');
 writeln('##############  NIM    : 3105111352       ############');
 writeln('************** Prodi   : T.informatika/E  ************');
 writeln('---------------------------------------------');
end.

Tampilanya :

5 comments:

Unknown on April 30, 2013 at 2:48 PM said...: thankz :)
Unknown on February 17, 2014 at 10:58 PM said...: mas, mohon penjelasan nya dong tentang program diatas, pleaseee.. :)
dwiwulandari on May 28, 2016 at 7:02 AM said...: erornya sampe 26 mas, bantu coding yang lengkap dong
Unknown on March 18, 2017 at 2:43 PM said...: sangat membantu gan, codingannya sukses
lailaquattrochi on February 28, 2022 at 3:43 PM said...: How To Play: Casino & Gambling Sites | Pogo Nigeria
Casino & 세븐 포커 족보 Sports Betting — Live Casino (Roulette: 100% Welcome Bonus of up 메이플 슬롯 강화 to 1,000 벤 델핀 Free Spins) is 돈포차 the popular gambling 1xbet 주소