Program Penilaian Mahasiswa
Apr 15, 2009 4 Comments
Halo semua. Komang kirim ya. yang ini contoh program array, untuk menghitung nilai rata-rata nilainya selama 1 semester. source codenya seperti di bawah ini:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | program penilaian_MHS;{program ini untuk melihat hasil nilai mahasiswa selama 1 semester} uses wincrt; var nama : array[1..20] of string; tugas, uts, uas, presensi : array[1..20] of integer; rata : array[1..20] of real; a,jd : byte; begin clrscr; write('Masukkan Jumlah Data Nilai: '); readln(jd); for a := 1 to jd do; begin writeln('PENILAIAN UJIAN MAHASISWA'); write('Masukkan Nama : '); readln(nama[a]); write('Masukkan Nilai Tugas : '); readln(tugas[a]); write('Masukkan Nilai UTS : '); readln(uts[a]); write('Masukkan Nilai UAS : '); readln(uas[a]); write('Masukkan Presensi : '); readln(presensi[a]); Rata[a]:=(0.1*tugas[a])+(0.2*uts[a])+(0.3*uas[a])+(0.4*presensi[a]); end; clrscr; for a := 1 to jd do; begin writeln('PENILAIAN UJIAN MAHASISWA'); writeln('Nama : ',nama[a]); writeln('Nilai Tugas : ',tugas[a]); writeln('Nilai UTS : ',uts[a]); writeln('Nilai UAS : ',uas[a]); writeln('Presensi : ',presensi[a]); {untuk menampilkan semua data yang sudah dimasukkan di awal} writeln('Rata-rata : ',rata[a]:1:2);{untuk menampilkan rata-rata} end; end. |
Komang Sumertawan
[email protected]
Mas saya mau tanya tugas alg0ritma saya case 0f di pascal ?…
Tugasnya begini nilai akhir 40% n uts + ( 50% n uas + ( 10% praktik Ket : lulus jika grade = ABCD
tdk lulus = E
Tl0ng ya mas ditunggu ! Txs…
coba browsing di artikel lainya.. referensinya ada kok.. semoga membantu.
Min sebenarnya bisa gunakan statement for do/while do/repeat until ?
soalnya ane bingung dibagian situ
dan
misalnya diminta Nilai A : 90-100
B : 80-89
C : 70-79
D : 60 -69
E : < 59
itu gimana gimana ya min pseudcode/algoritmanya
mohon sarannya min
ya min singkat amat jawabnya -_-