Program Sederhana Biodata,Ganjil Genap pada Pascal

Maulana Yusuf Iskandar

Ahmad Nasher

Universitas gunadarma

Membuat Program menu sederhan dengan menggunkan Aplikasi “Turbo Pascal” yg di dalamnya berisikan Menu “Biodata,Ganjil dan Genap,Penilaian”.

Ø  Pada Codingan pertama di tuliskan “Program Menu” itu berfungsi sebagai Nama pada Menu yang akan di buat dan di akhiri dengan ikon “ ; “ untuk mengakhiri dan agar bias di jalankan programnya.

Ø  Setelahnya kita menggunkan uses Crt untuk memanggil Library pada Program tersebut agar dapat di jalankan.

Ø  Var itu sebagai Nilai Variable

Ø  “Pilihan : Byte;” Byte berfungsi di saat kita memilih program menu  tidak keluar dari program menu tersebut,Contohnya Jika kita memilih Program Menu pertama.Pada program menu pertama tentang Biodata,Jika kita mengsikan Biodata dan menuliskan nama dan setelahnya kita menuliskan kelas kita tidak akan keluar dari program dan kembai lagi ke codingan karena kita sudah menggunakan fungsi Byte

Ø  A,Uts,Uas : Integer : berartikan pada barisan ini termasuk golongan integer (0 s/d 25)

Ø  Total : real: (type data real) codingan masuknya ke program menu  yang ketiga,Agar kita dapat mentotalkan Hasilnya

Ø  Begin untuk menjalankan Program

Ø  Repeat untuk mengulang program (loop).

Ø  Clrscr; untuk membersihkan layar pada Program.

Ø  Writeln (‘| -------------------------------|’); Fungsinya sama dengan Byte agar di saat kita menjalankan Program,Program tersebut tidak keluar dengan sendirinya.

Ø  Writeln(‘Masukan Pilihan : ‘); Code ini akan keluar pertama kali dan dia meminta kita untuk memilih Program mana yang akan kita isi/gunakan,Contonya seperti gambar di bawah ini.

Ø  1: dan Begin code ini untuk menjalankan Program menu pertama.

Ø  Writeln(‘Masukan Nama : ‘); readln(nama); s/d Kelas Code ini berfungsi untuk memrintahkan kita untuk memasukan nama,npm dan kelas pada program 1 dan readln (nama,npm,kelas) untuk membaca nama,npm dan kelas,pada program disaaat kita menjalankan program tesebut.

Ø  Writeln; dan end;  untuk mengakhiri program pertama dan jika di running dan di isikan makan programnya akan seperti di bawah ini.

Ø  2: + Begin untuk menjalankan Program kedua pada Program menu.

Ø  Clrscr; untuk menbersihkan layar.

Ø  Write(‘Masukan Bilangan’);readln(a);if a mod 2 = 0 yg artinya Jika kita memasukan Bilangan A maka A adalah 2,then writeln(‘Bilangan ‘a’ Adalah Genap’) else if a mod 2=1 then writeln(‘Bilangan ‘ ,a, ‘adalah Ganjil’); > maka Bilangan a dalah Genap atau jika a adalah 1 maka a adalah ganjil.

Ø  Writeln; dan end; untuk mengakhiri program kedua,Contohnya seperti gambar di bawa ini.

Ø  3 + Begin untuk menjalankan Program menu Ketiga yaitu Program menu penilaian.

Ø  Write(‘Masukan Nilai Uts : ‘);readln(uts); dan write(‘Masukan  Nilai UAS : ‘) > Masukan Nilai utuk Nilai uts dan nilai uas yg akan kita input dan readln untuk membaca nilai tersebut.

Ø  Total := ((uts * 0.7) + (uas * 0.3)); 0.7 dan 0.3 adalah rumus jika nilai uts kita 90 dan nilai uas kita 80 maka kedua nilai tersebut akan di jumlahkan menggunakan rumus tersebut.

Ø  If total >= 80 (>= adalah lebih besar samadengan) then grade := ‘A’ Jika nilai kita mendapatkan 80 maka grade yg kita dapat adalah A

Ø  Else if total >= 70 then grade := ‘B’ Jika nilai kita 70 maka Grade kita adalah B,else if total >=60 grade := ‘C’ Jika nilai kita adalah 60 maka Grade yg kita dapatkan adalah C dan Jika nilai kita di bawah 60 maka nilai yg akan kita dapatkan adalah D.

Ø  Writeln(‘Grade yg didapatkan adalah’) Code ini akan menunjukan Grade yg kita dapat,Jika Nilai kita 80 maka code ini akan menampilkan Grade A dan seterusnya sperti penjelasan di atas.

Ø  Writeln; dan end; untuk mengakhiri/memberhentikan program ketiga,contoh programnya seperti di bawah ini.

Ø  4 + Begin untuk menjalankan Program keempat yaitu program untuk mengakhiri program menu.

Ø  Writeln(‘Terima Kasih’); Code ini untuk akhir dari program jikalau kita sudah berhenti menjalakan program keepat ini,Maka akan muncul tulisan “Terima Kasih”.

Ø  End; >mengapa pada bagian akhir endnya di ketikan sebanyak 3 kali? Karena end tersebut berfungsi sebagai pengakhir dari ketiga program di atas,yaitu program pertama,kedua dan ketiga,kenapa di tambahkan end lagi ? padahal deprogram sebelumnya sudah di tambahkan end ? ya,agar program sebelumnya ketika sudah di running dapat di akhiri.

Ø  Until(pilihan = 4);

Ø  End.untuk mengakhiri program.