Program Bilangan Ganjil Genap Array Pascal

Program Bilangan Ganjil Genap Array Pascal


Program Bilangan Ganjil Genap Array Pascal - membuat program untuk memilah angka bilangan ganjil genap cukup mudah, tentunya jangan sampai lupa dasarnya, yaitu penggunaan beberapa operasi pada pemrograman pascal seperti penggunaan if, if else, for, dan yang lainnya. 


Pemrograman pascal dalam menentukan bilangan ganjil atau bilangan genap menggunakan type data array sehingga maksimum bilangan yang bisa kita input di consol pascal sebanyak maksimal 100 angka. 

Dimana untuk mendeklarasikan array tersebut dapat di lihat pada bagian code berikut: 

angka:array[1..100] of integer;

Artinya pascal diperintahkan untuk membentuk sebuah type media penyimpanan data bernama angka dengan type data array sebanyak maksimal 100.

Pada code berikutnya: 

b,i,jlhgen,jlhgan,ganjil,genap:integer;

Arti code ini kita mengeset atau memerintahkan pascal untuk membuat media penyimpanan juga berupa variable b,i, jlhgen, jlhganjil, ganjil, genap dengan type integer:

Variabel-variable tersebut digunakan untuk menyimpan banyaknya data yang diinput, kemudian jumlah angka ganjil, jumlah angka genap, angka ganjil dan genap yang dipisahkan. 

Code pascal selanjunya 

write('Masukkan Banyak data yg diinput: ');readln(b);

Fungsi code ini untuk membuat berapa kali/ berapa banyak inputan, yang inputan tersebut akan di simpan pada variable b, kemudian di olah sedemikian pada code berikut dalam bentuk perulangan:

for i:=1 to b do
  begin
  writeln('Angka ke-',i,' adalah: ',angka[i]);
  if angka[i] mod 2=0 then
    begin
      jlhgen:=jlhgen+angka[i];
      genap:=genap+1;
     
    end
   else
     begin
       jlhgan:=jlhgan+angka[i];
       ganjil:=ganjil+1;
      
     end;

Pada dasarnya inti dari pemrograman pascal menentukan bilangan ganjil genap dan jumlah atau banyaknya bilangan ganjil dan genap ada pada code ini. Yang akan di lakukan perulangan dimana i diberi nilai satu sampai ke b (banyaknya/kali angka yang diinput pada baris sebelumnya). 

Kemudian di minta inputan angka pertama dan seterusnya yang akan disimpan di array[sebanyakperulangan]; 

Angka yang di inputkan di bagi dengan 2 jika sisanya adalah nol maka angka tersebut adalah angka genap, sedangkan sebaliknya angka tersebut adalah angka ganjil. 

Pada kode berikutnya 

writeln('banyak angka genap: ',genap);
  writeln('Hasil Jumlah angka Genap: ',jlhgen);
  writeln('Hasil Jumlah angka Ganjil: ',jlhgan);
  writeln('banyak angka ganjil: ',ganjil);
  writeln('Hasil jumlah semua angka adalah: ',jlhgan+jlhgen);
  writeln('Banyak Angka yg di Input adalah: ',b);

Bagian ini tidak telalu penting sebenarnya didalam logika dan belajar pemrograman, karena beris-baris tersebut hanya berfungsi untuk mencetak atau membuat hasil keluaran dari proses code sebelumnya. Sehingga kita bisa melihat berapa banyak angka ganjil dan berapa banyak angka genap dilayar komputer.

Berikut code bilangan ganjil genap dengan pascal. 

program input_array;
uses crt;
var
angka:array[1..100] of integer;
b,i,jlhgen,jlhgan,ganjil,genap:integer;

begin
clrscr;
  write('Masukkan Banyak data yg diinput: ');readln(b);
  for i:=1 to b do
  begin
  write('Angka ke-',i,' adalah: ');readln(angka[i]);
  end;
  writeln('-------------------------------------------');
  writeln(' ');
 
  for i:=1 to b do
  begin
  writeln('Angka ke-',i,' adalah: ',angka[i]);
  if angka[i] mod 2=0 then
    begin
      jlhgen:=jlhgen+angka[i];
      genap:=genap+1;
     
    end
   else
     begin
       jlhgan:=jlhgan+angka[i];
       ganjil:=ganjil+1;
      
     end;
  end;
  writeln('banyak angka genap: ',genap);
  writeln('Hasil Jumlah angka Genap: ',jlhgen);
  writeln('Hasil Jumlah angka Ganjil: ',jlhgan);
  writeln('banyak angka ganjil: ',ganjil);
  writeln('Hasil jumlah semua angka adalah: ',jlhgan+jlhgen);
  writeln('Banyak Angka yg di Input adalah: ',b);
 
 
  readln;
end.

Program Bilangan Ganjil Genap Array Pascal - Menentukan bilangan ganjil atau bilangan genap dengan bahasa pemrograman pascal - mencari ganjil genap.


Tidak ada komentar:

Posting Komentar