Contoh Program Pascal

Program Menentukan Bilangan Ganjil dan Genap pada Bahasa Pascal

Assalamu’alaikum, Selamat datang di matericoding.com. Pada kesempatan kali ini, saya akan menjelaskan tentang program menentukan bilangan ganjil dan genap pada bahasa pascal. Untuk langkah langkahnya sebagai berikut.

Menentukan Alur Programnya

Untuk program yang kita buat nanti, jika dijalankan dan seumpama kita memasukkan angka 1 setelah dienter akan muncul tulisan “Bilangan Ganjil”. Begitu pun jika kita memasukkan angka 4 maka setelah dienter akan muncul tulisan “Bilangan Genap”.

Fungsi yang Dipakai dalam Pembuatan Program Menentukan Bilangan Ganjil dan Genap

Fungsi yang dipakai dalam program nanti yaitu fungsi if dan ditambahkan fungsi mod.  Mod Berfungsi mencari sisa bagi. Kenapa kita menambahkan fungsi mod..? Karena ciri dari bilangan genap adalah bilangan yang habis di bagi 2. Jadi Bilangan yang jika dibagi 2 tidak ada sisanya atau nol(0), maka merupakan bilangan genap. Jika sebaliknya atau ada sisanya, maka itu merupakan bilangan ganjil. Contoh Angka 8. Jika dibagi 2 hasilnya adalah 4. dan gak ada sisanya, maka angka 8 adalah bilangan genap. Contoh lain angka 7. jika dibagi 2, maka hasilnya 3 dan masih ada sisanya yaitu 1. maka angka 7 adalah bilangan ganjil.

Variabel dan Tipe Data yang Digunakan dalam Pembuatan Program Menentukan Bilangan Ganjil dan Genap

Untuk variabel dan tipe data yang dipakai dalam pembuatan program menentukan bilangan ganjil dan genap pada pascal adalah sebagai berikut:

NoNama VariabelTipe DataKeterangan
1bilIntegerUntuk menyimpan data Bilangan yang diinputkan

Untuk nama variabel yang dipakai hanya satu, yang nantinya berfungsi menyimpan data bilangan yang akan kita inputkan ke program. Sekali lagi untuk penamaan bebas ya.

Source Code Program Menentukan Bilangan Ganjil dan Genap pada Bahasa Pascal

Berikut ini adalah Source Code Program Menentukan Bilangan Ganjil dan Genap pada Bahasa Pascal. Untuk compiler yang saya pakai adalah dev pascal.

PROGRAM JENIS_BILANGAN;{matericoding.com}
USES wincrt;
Var bil: integer; {Variabel dan tipe data yang digunakan}
Begin
writeln('MENENTUKAN JENIS BILANGAN');
writeln('**************************');
{Input data}
write('Masukkan Angka: ');readln(bil);
{Proses dan output}
    if bil mod 2 = 0 then
    writeln('Bilangan genap')  {jika mod 2 = 0}
    else
    writeln('Bilangan ganjil');{Jika mod 2 bukan angka 0}
    Readln;
End.

Jika di run, Maka hasilnya sebagai berikut:

hasil run Program Menentukan Bilangan Ganjil dan Genap pada Bahasa Pascal 1
Hasil Bilangan Ganjil
Hasil Bilangan Genap

Silahkan diinputkan jika hasilnya seperti diatas berarti program yang temen-temen buat sudah benar. Jika masih eror atau hasilnya tidak bisa seperti di atas silahkan beri komentar dibawah.

Demikian tadi program menentukan bilangan ganjil dan genap pada pascal. Silahkan dipelajari lagi dan apabila ada pertanyaan bisa ditanyakan lewat kolom komentar. Jika ingin request program juga bisa loo. Bisa kirim lewat kolom komentar di bawah.

Sekian dan Terimakasih

Wassalamu’alaikum Wr Wb

salam Materi Coding

Leave a Comment