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.

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