Sekian lama bingung mau nulis apa,, Akhirnya dapat inspirasi juga dari matkul yang baru diajarkan,, :)
Pos terbaru dibulan Oktober ini mengenai Program Matakuliah pada Bahasa Pemrograman Pascal.
semoga bisa bermanfaat untuk anda yang membutuhkan :D
Tahap-tahap yang dilakukan sbb:
{created by ochie}
Program MataKuliah;
uses wincrt;
var
NIM, Nama , Matkul, Nilai_Huruf, Predikat , Ket: String;
Nilai_TS, Nilai_AS, Nilai_Tgs, Nilai_HadIr, Nilai_Akhir:real;
Begin
{Input}
Write('Masukkan NIM:'); readln(NIM);
Write('Masukkan Nama:'); readln(Nama);
Write('Masukkan Nama Mata Kuliah:'); readln(Matkul);
Write('Masukkan Nilai UTS :'); readln(Nilai_TS);
Write('Masukkan Nilai UAS :'); readln(Nilai_AS);
Write('Masukkan Nilai Tugas :') ; readln(Nilai_Tgs);
Write('Masukkan Nilai Hadir :'); readln(Nilai_Hadir);
{PROSES}
Nilai_Akhir:= (0.35*Nilai_TS)+ (0.35*Nilai_AS)+
(0.2*Nilai_Tgs)+ (0.35*Nilai_Hadir);
If Nilai_Akhir <=45 Then
begin
Nilai_Huruf:='E';
Predikat:='Alamak';
End
else
If Nilai_Akhir <=55 Then
begin
Nilai_Huruf:='D';
Predikat:='Belajar Lagi';
End
else
If Nilai_Akhir <=67 Then
begin
Nilai_Huruf:='C';
Predikat:='Cukupan';
End
else
If Nilai_Akhir <=84 Then
begin
Nilai_Huruf:='B';
Predikat:='baik';
End
else
If Nilai_Akhir <=100 Then
begin
Nilai_Huruf:='A';
Predikat:='Apik Tenan';
End ;
If (((Nilai_Huruf='A') or (Nilai_Huruf='B') or (Nilai_Huruf='C')) and (Nilai_Hadir>=60)) or
(((Nilai_Huruf='A') OR (Nilai_Huruf='B') or (Nilai_Huruf='C') or (Nilai_Huruf='D')) and (Nilai_Hadir>=80)) then
Ket:='Lulus'
else
Ket:='Tidak Lulus';
clrscr;
{Output Data}
writeln('NIM : ',NIM);
writeln('Nama : ',Nama);
writeln('Mata Kuliah : ',Matkul);
writeln('Nilai Akhir : ',Nilai_Akhir:4:1);
writeln('Nilai Huruf : ',Nilai_Huruf);
writeln('Predikat : ',Predikat);
writeln('Keterangan : ',Ket);
End.
Tuesday, October 16, 2012
Membuat Program Matakuliah pada Bahasa Pemrograman Pascal
Subscribe to:
Posts (Atom)
About Me
Total Pageviews
Popular posts
-
Kali ini aq membahas mengenai Sql tingkat lanjutan,, Bagi pemula soal2 ini akan membingungkan bagi Xan,, Sql itu emang susah2 g...
-
SELECT – mengambil data DELETE – menghapus data INSERT – menyisipkan data UPDATE – mengubah data # TIPE KARAKTER : CHAR: Teks deng...
-
Sekian lama bingung mau nulis apa,, Akhirnya dapat inspirasi juga dari matkul yang baru diajarkan,, :) Pos terbaru dibulan Oktober ini meng...
-
ini pertama kali aku buat blog loh, gampang2 susah sih tapi menyenangkan kok bisa ningkatin kreatifitas buat jadi penulis.. em sebenernya si...
Archives
Followers
Blogger news
kompak
About
Blogger templates
Powered by Blogger.