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, pemrograman lulus rata-rata>50 (b indonesia>50 dan pancasila>50 turbo pascal, contoh program free pascal program nilai akhir, contoh program free pascal case hasil ujian, cara menghitung nilai kelulusan mahasiswa dengan rumus while do dan repaid until, cara menghitung nilai dan cara menghitung nilai grade atau nilai akhir di pascal, cara mencari nilai rata tugas pada pemrograman pascal, cara mencari nilai rata dari tiga tugas pada pemrograman pascal, cara mencari nilai rata dan presentasi tugas pada pemrograman pascal, cara mencari nilai akhir dan nilai rata rata menggunakan pascal.

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