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:
Post Comments (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...
-
ini pertama kali aku buat blog loh, gampang2 susah sih tapi menyenangkan kok bisa ningkatin kreatifitas buat jadi penulis.. em sebenernya si...
-
Sekian lama bingung mau nulis apa,, Akhirnya dapat inspirasi juga dari matkul yang baru diajarkan,, :) Pos terbaru dibulan Oktober ini meng...
-
SELECT – mengambil data DELETE – menghapus data INSERT – menyisipkan data UPDATE – mengubah data # TIPE KARAKTER : CHAR: Teks deng...
Archives
Followers
Blogger news
kompak
About
Blogger templates
Powered by Blogger.
No comments:
Post a Comment