Skrip program nilai akhir pada pascal

Berikut adalah skrip program menghitung penilaian mahasiswa pada pascal. Pada program ini memerlukan 2 proses yaitu yang pertama dengan penggunaan IF... Than... Else dan yang kedua menggunakan perintah Case .... of. Dimana penggunaan IF itu untuk mengonversikan nilai mahasiswa menjadi grade yg didapatkan kemudian diteruskan dengan penggunaan Case ... of untuk menampilkan keterangan grade yg di dapat mahasiswa.
Langsung saja di bawah ini contoh skripnya :


program nilaiakhir;
uses crt;
var
 npm,nm,fak,kls,prodi,mk,ket : string;
 grade, smt : char;
 nilaitgs,nilaiuts,nilaiuas,na : real;
begin
 clrscr;
 writeln('-------------------------------------');
 writeln('Nilai Akhir Semester Mahasiswa Uniska');
 writeln('-------------------------------------');
 write('NPM : ');
 readln(npm);
 write('Nama Mahasiswa : ');
 readln(nm);
 write('Fakultas : ');
 readln(fak);
 write('Program Studi : ');
 readln(prodi);
 write('Semester : ');
 readln(smt);
 write('Kelas : ');
 readln(kls);
 write('Mata Kuliah : ');
 readln(mk);
 write('Nilai Tugas : ');
 readln(nilaitgs);
 write('Nilai UTS : ');
 readln(nilaiuts);
 write('Nilai UAS : ');
 readln(nilaiuas);
 na:=(nilaitgs+nilaiuts+nilaiuas)/3;
 if ((na >= 80) and (na <=100)) then
 grade:='A'
 else if ((na >=70) and (na <=80)) then
 grade:='B'
 else if ((na >=55) and (na <=70)) then
 grade:='C'
 else if ((na >=40) and (na <=55)) then
 grade:='D'
 else
 grade:='E';
 case grade of
 'A':ket:='Lulus Sangat Memuaskan';
 'B':ket:='Lulus Dengan Baik';
 'C':ket:='Lulus Dengan Cukup';
 'D':ket:='Tidak Lulus';
 'E':ket:='Gagal!! Ke Laut Ajah..';
 end;
 writeln;
 writeln('---------------------------------------');
 writeln('Hasil Akhir Semester Mahasiswa');
 writeln('---------------------------------------');
 writeln('Mahasiswa yang bernama : ',nm);
 writeln('Dengan NPM : ',npm);
 writeln('Mendapatkan Nilai Akhir: ',na:0:0);
 writeln('Dan Gradenya Adalah : ',grade);
 writeln('Keterangan : ',ket);
 writeln('---------------------------------------');
 readkey;
end.

Silahkan coba dipascal sendiri yaa..
Semoga bermanfaat. Happy coding^_^

Read More [...]

Program Operator Aritmatika Pada Pascal

Berikut listing program :

 

Penjelasan :

Pada Case kode of kata kode disitu berfungsi untuk memanggil program sesuai dengan pilihan yang kita masukan pada write(‘pilihan anda = ‘); readln(kode); pada statement ini kita disuruh untuk menginputkan pilihan program yang akan digunakan yaitu pada angka (1) untuk penjumlahan, (2) untuk pengurangan, (3) untuk pembagian, (4) untuk perkalian. Saat kita menginputkan pilihan maka pilihan kita akan disimpan oleh kode dan saat ditekan enter maka program yang ditandai dengan angka tersebut akan muncul sebagai program yang anda pilih. Misal, saya akan memilih program nomor 3 dan kemudian saya tekan enter maka akan muncul adalah program 3:begin .

Penjelasannya mengapa ada angka 1, 2, 3 dan 4 di depan begin, itu karena angka 1, 2, 3 dan 4 disitu bisa kita sebut sebagai “kode program atau nomor program”, jika kita masukan pilihan pertama angka 1 maka program pertama yang akan muncul, bila kita masukan angka 2 maka program kedua yang akan muncul, bila kita masukan angka 3 maka program ketiga yang akan muncul, apabila kita masukan angka 4 maka program yang akan muncul adalah program keempat, dan bila kita masukan lebih dari angka 4 maka program tidak akan muncul atau tidak ada.

Dengan program case of ini kita bisa membuat berbagai macam program dan tentunya dalam jumlah program yang cukup banyak karena case of berfungsi untuk pemanggilan program sesuai dengan nomor program atau kode program seperti yang saya jelaskan diatas. Mohon maaf bila ada salah kata ataupun tulisan. semoga bermanfaat. Terimakasih.

Read More [...]

(Contoh) Program Menghitung Luas Persegi Panjang Pada Pascal

1.      Program menghitung luas persegi panjang

Program ini untuk menghitung nilai luas persegi panjang yang memiliki panjang dan lebar yang berbeda.

 

Coba jalankan program, maka akan diminta untuk memasukkan panjang dan lebar setelah itu akan keluar hasil dari luas persegi panjang tadi. Tipe data program ini adalah real jadi mendukung koma(,).

Demikianlah contoh program ini saya posting. semoga bermanfaat. Mohon maaf apabila ada salah kata/tulisan. Terimakasih.

Read More [...]