MODUL LATIHAN PEMOGRAMAN PASCAL PROGRAM MENCARI NILAI AKHIR MAHASISWA DENGAN MENGGUNAKAN PROGRAMAN PASCAL
UNTUK KALANGAN SENDIRI
DISUSUN OLEH KUSUMA WIJAYA STMIK BUMIGORA MATARAM Created by Che_Bhe (chus baracuda) Studio 2007
PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA Dalam kasus ini kita akan membuat sebuah program yang akan menghitung nilai akhir mahasiswa dengan grade atau nilai yang didapatkan dari nilai akhir tersebut. Program ini akan memberikan kemudahan bagi kita untuk menghitung nilai akhir 100 mahasiswa, dengan menggunakan array dan beberapa perintah lainnya. ANALISA PROGRAM INPUT dari program ini adalah Nim Mahasiswa Nama Mahasiswa Semester Mahasiswa Jurusan Mahasiswa Tugas Mahasiswa Mid Mahasiswa Uas Mahasiswa PROSES dari program ini adalah kita akan menghitung : Total Tugas akan kita dapat dari Nilai Tugas dikalikan dengan 20 % (HTugas = Tugas * 20%) dimana nilai Tugas ini telah mencakup tugas, quis, dan kehadiran mahasiswa.
Total Mid akan kita peroleh dari Nilai MID dikalikan dengan 30 % (HMid = MID * 30 %) dimana Nilai MID ini diperoleh dari hasil evaluasi Middle yang telah dilakukan oleh mahasiswa.
Total Uas akan kita peroleh dari Nilai UAS dikalikan dengan 50 % (HUas = UAS * 50 %) dimana Nilai UAS ini diperoleh dari hasil evaluasi Ujian Akhir Semester yang telah dilakukan oleh mahasiswa. Nilai Akhir akan kita peroleh dari penambahan Total Tugas, Total Mid, serta Total Uas (HAkhir = HTugas + HMid + HUas). Jika Nilai Akhir >= 90, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘A’ Jika Nilai Akhir >= 80, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘B+’ Jika Nilai Akhir >= 70, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘B’ Jika Nilai Akhir >= 61, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘C+’ Created by Che_Bhe (chus baracuda) Studio 2007
Jika Nilai Akhir >= 50, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘C’ Jika Nilai Akhir >= 30, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘D’ Jika Nilai Akhir <30, maka Grade yang diperoleh oleh mahasiswa itu adalah ‘E’ OUTPUT dari program ini adalah : Nim dari mahasiswa Nama dari mahasiswa Semester dari mahasiswa Jurusan dari mahasiswa Nilai Tugas dari mahasiswa Nilai MID dari mahasiswa Nilai UAS dari mahasiswa Nilai Akhir dari mahasiswa Grade yang diraih dari mahasiswa.
Created by Che_Bhe (chus baracuda) Studio 2007
FLOWCHART PROGRAM NILAI AKHIR MAHASISWA
Created by Che_Bhe (chus baracuda) Studio 2007
STAR T
D IM (No [jum ], N IM [ ju m], NAMA [jum ] , SEMESTER [jum] , JU R [jum ], TU GAS [ jum] , H Tugas [jum ], M ID [ju m], Hm id [ jum] , UAS [jum ] , HUas [ jum] , HAk hir [ ju m] , ket [ ju m]
Inpu t jum
For i = 1 to jum
Input N IM [ i], NAM A [i], SEM ESTER [i], JU R [i], T UGAS [i], MI D [ i], UAS [ i],
N ex t i
For i = 1 to jum
H Tugas [i] = TUG AS[ i] *0, 2 HMid [i] = MID[i] *0. 3 HUas [i] = Uas [i] *0.5 H Akhir [i] = HTugas [i] + HMid [i] , + H Uas [i]
IF HAk hir [i] >= 90
YES k et [ i] = 'A'
NO
IF HAk hir [i] >= 80
YES ket [i] = 'B+'
NO
IF HAk hir [i] >= 70
YES k et [ i] = 'B'
NO
IF HAk hir [i] >= 61
C
A
Created by Che_Bhe (chus baracuda) Studio 2007
YES ket [i] = 'C+'
B
C
A
C
NO
IF HAk hir [i] >= 50
YES k et [ i] = 'C'
NO
IF HAk hir [i] >= 30
YES k et [ i] = 'D'
NO
k et [ i] = 'E'
N ex t i
For i = 1 to jum
Print No[ i] , NI M [i], NAM A [i], SEMES TER [i], JUR [ i], TU GAS [i], MID [i], UAS [ i], N Akhir [i] , Ket [i]
N ex t i
EN D
Created by Che_Bhe (chus baracuda) Studio 2007
SOURCE CODE DALAM BENTUK PASCAL program Menghitung_Nilai_Akhir; uses WinCrt; type nm=string[30]; type smstr=string[5]; type jr=string[20]; var jum,i,j : integer; No, NIM : array[1..100] of integer; NAMA : array[1..100] of nm; SEMESTER : array[1..100] of smstr; JUR : array[1..100] of jr; TUGAS,HTugas : array[1..100] of real; {PENDEFINISIAN VARIABEL} MID, HMid : array[1..100] of real; UAS, HUas : array[1..100] of real; HAkhir : array[1..100] of real; ket : array[1..100] of string [2]; procedure masukan; begin clrscr; gotoxy(20,1); Writeln('<<< PENGINPUTAN DATA MAHASISWA >>>');writeln;writeln; writeln('========================================================================= =='); writeln('No Nim NAMA SMSTR JRSAN TUGAS MID UAS '); for i := 1 to jum do begin gotoxy(01,5+i); writeln(i); gotoxy(05,5+i); readln(NIM[i]); gotoxy(13,5+i); readln(NAMA[i]); gotoxy(27,5+i); readln(SEMESTER[i]); {PROSES PENGINPUTAN DATA} gotoxy(41,5+i); readln(JUR[i]); gotoxy(54,5+i); readln(TUGAS[i]); gotoxy(63,5+i); readln(MID[i]); gotoxy(72,5+i); readln(UAS[i]); end; for i := 1 to jum do begin HTugas[i] := TUGAS[i]*0.2; HMid[i] := MID[i]*0.3; {PROSES DATA} HUas[i] := UAS[i]*0.5; HAkhir[i] := HTugas[i]+HMid[i]+HUas[i]; end; end; procedure tampil_hasil; begin clrscr; gotoxy(23,1); Writeln('<<< NILAI AKHIR MAHASISWA >>>');writeln;writeln; writeln('========================================================================= =='); writeln('No Nim NAMA SMSTR JRSAN TUGAS MID UAS NAkhir Grade '); for i := 1 to jum do begin gotoxy(01,5+i); write(i);
Created by Che_Bhe (chus baracuda) Studio 2007
gotoxy(04,5+i); write(NIM[i]); {PROSES PENAMPILAN HASIL} gotoxy(11,5+i); write(NAMA[i]); gotoxy(27,5+i); write(SEMESTER[i]); gotoxy(34,5+i); write(JUR[i]); gotoxy(43,5+i); write(TUGAS[i]:2:0); {PROSES PENAMPILAN HASIL} gotoxy(49,5+i); write(MID[i]:2:0); gotoxy(54,5+i); write(UAS[i]:2:0); gotoxy(58,5+i); write(HAkhir[i]:10:2); if HAkhir[i]>=90 then ket[i]:='A' else if HAkhir[i]>=80 then ket[i]:='B+' else if HAkhir[i]>=70 then ket[i]:='B' else if HAkhir[i]>=61 then {PROSES KONDISI} ket[i]:='C+' else if HAkhir[i]>=50 then ket[i]:='C' else if HAkhir[i]>=30 then ket[i]:='D' else ket[i]:='E'; gotoxy(74,5+i); writeln(ket[i]); end; writeln('========================================================================= =='); gotoxy(6,12);writeln('<<< KETERANGAN !!!!>>>'); gotoxy(1,14);Writeln('<<< NILAI AKHIR DI DAPAT DARI >>> '); gotoxy(1,15);Writeln('<<< 20 % Dari Nilai TUGAS >>> '); gotoxy(1,16);Writeln('<<< 30 % Dari Nilai MID >>> '); gotoxy(1,17);Writeln('<<< 50 % Dari Nilai UAS >>> '); writeln;writeln;writeln;writeln;writeln; writeln(' Kusuma Wijaya (che_bhe studio)'); end; begin gotoxy(15,1);writeln('##########################################################'); gotoxy(15,2);writeln('##<<< PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA >>>##'); gotoxy(15,3);writeln('########################################################'##); gotoxy(1,6);Write('Masukkan Jumlah Mahasiswa = '); readln(jum); masukan; tampil_hasil; end.
Created by Che_Bhe (chus baracuda) Studio 2007
HASIL PROGRAM SETELAH DICOMPILE Pada Proses Penginputan Data Dimana pada proses ini akan diinputkan data mahasiswa sebanyak 3 mahasiswa yang akan dihitung nilainya sebagai berikut:
Setelah data tersebut dimasukkan sebanyak 3 dari keyboard, setelah itu tekan ENTER R, maka akan langsung masuk kedalam proses penginputan data, sebagai berikut ini:
Created by Che_Bhe (chus baracuda) Studio 2007
Setelah data dimasukkan dengan nim, nama, semester, jurusan, tugas, mid, dan uas kepada 3 data mahasiswa yang ingin dicari nilai akhir dari data mahasiswa tersebut, setelah itu untuk melihat hasil dari data yang diinputkan maka kita tekan ENTER R lagi sehingga akan dapat data sebagai berikut: HASIL PROGRAM YANG TELAH DIJALANKAN
Created by Che_Bhe (chus baracuda) Studio 2007