Program Penilaian Mahasiswa

Apr 15, 2009 4 Comments by Sahabat

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
komang.tf@gmail.com

Kata Kunci

program pascal nilai mahasiswa, program pascal array nilai mahasiswa, koding turbo pascal tgs uts uas persentase, contoh program free pascal ujian tengah semseter, contoh program array record data nilai akhir mahasiswa, program pascal menghitung ratarata nilai uas uts, buatlah flawchart dan orogram pascal utk mengitung sebuah nilai mahasiswa no bp bama nilai uts nilai, program pascal menghitung nilai rata-rata mahasiswa, buatlah flowchart program dan program pascal untuk menghitung sebuah nilai mahasiswa : No BP, algoritma menghitung rata2 nilai mahasiswa menggunakan while do.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

4 Responses to “Program Penilaian Mahasiswa”

  1. Hendra says:

    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…

  2. Shinobi Aizer says:

    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

  3. Shinobi Aizer says:

    ya min singkat amat jawabnya -_-

Leave a Reply

You must be logged in to post a comment.