Program Menghitung Jumlah dan Rata-Rata Bilangan Ganjil Genap Pascal

-

Program dalam bahasa Pascal untuk menghitung jumlah dan rata-rata bilangan ganjil genap. Coding untuk meghitung jumlah dan rata-rata bilangan ganjil dan genap. Programnya dapat dilihat dibawah ini:

program hitung_genap_ganjil;
uses crt;
var
   N,i,a, ganjil,genap : integer;
   jumlahganjil, jumlahgenap : integer;
   rataganjil, ratagenap : real;

 begin
   clrscr;
   jumlahganjil:= 0;
   jumlahgenap:= 0;
   genap:= 0;
   ganjil:= 0;
   write('masukan jumlah data: ');
   readln(N);
   for i:= 1 to N do
   begin
      write('masukan data ke-',i,': ');
      readln(a);
      if a mod 2 = 0 then
      begin
         genap:= genap + 1;
         jumlahgenap:= jumlahgenap + a;
      end
      else
      begin
         ganjil:= ganjil + 1;
         jumlahganjil:= jumlahganjil + a;
      end;
   end;

    ratagenap:= jumlahgenap/genap;
   rataganjil:= jumlahganjil/ganjil;
   writeln;
   writeln('jumlah bilangan genap: ',genap);
   writeln('jumlah bilangan ganjil: ',ganjil);
   writeln;
   writeln('hasil tambah bil genap: ',jumlahgenap);
   writeln('hasil tambah bil ganjil: ',jumlahganjil);
   writeln;
   writeln('rerata genap: ',ratagenap:2:2);
   writeln('rerata ganjil: ',rataganjil:2:2);
   readln;
end.

Hasil dari program diatas yaitu:


SO: Coding pascal, coding menghitung jumlah kemunculan ganjil genap, menghitung jumlah bilangan ganjil, menghitung bilangan genap, rata-rata bilangan ganjil  genap, program pascal sederhana. Codepamulang.

Komentar

Posting Komentar

Postingan populer dari blog ini

Alasan Mengapa Kelvin Dijadikan Satuan Suhu Internasional

-
Gambar
Dok. Pribadi Sejak tahun 1960 dunia mulai menggunakan Sistem Satuan Internasional yang disingkat SI, yang dalam bahasa Inggris disebut International System of Unit atau dalam bahasa Perancis le System International d’unites. Sistem ini merupakan hasil kesepakatan dari CGPM (Conference General des Poids et Measures) di Paris, Perancis. Dan pada CGPM 13 Tahun 1967 memuat perjanjian yang salah satu dari kesepakatan tersebut yaitu penggunaan Kelvin sebagai satuan suhu internasional. Dalam penerapan kesepakatan penggunaan Kelvin tersebut berdasarkan beberapa alasan, berikut beberapa alasan mengapa Kelvin lebih dipilih dibandingkan dengan satuan lainnya:   Titik Terendah dalam Kelvin adalah 0 K dan pada suhu tersebut energi atom berada pada level paling rendah (minimum). Tidak ada lagi kuantum energi yang lebih rendah yang bisa dimiliki oleh sebuah atom selain level energi tersebut. Oleh karena itu pada Kelvin tidak harus menggunakan tanda minus, dengan kata lain lebih efisien d...
Baca selengkapnya

Procedure Parameter Luaran Menghitung Rata-Rata Pascal (coding)

-
Gambar
Codepamulang. Program Pascal tentang penggunaan Prosedur/Procedure dengan parameter Luaran untuk menghitung rata-rata N buah bilangan. Programnya dapata dilihat dibawah ini: program menghitung_rerata; uses crt; var    N : integer;    rerata : real; procedure hitung(N: integer; var u: real);    var       a,b : integer;       jumlah: real;    begin       for a:= 1 to N do       begin          write('Masukan nilai ke-',a,' = ');          readln(b);          jumlah:= jumlah+b;       end;       u:= jumlah/N;    end; begin    clrscr;    writeln('-----Menghitung Rerata Nilai-----');    writeln();    write('Masukan jumlah data inputan = ');    readln(N);    hitung(N, rerata);    writ...
Baca selengkapnya