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.
