Penilaian Mahasiswa dengan Turbo Pascal

Minggu lalu gratisan69 pernah membahas bagaimana cara membuat Data Mahasiswa Dengan Turbo Pascal, nah untuk sekarang gratisan69 memberikan bagaimana cara membuat Penilaian Mahasiswa dengan Turbo Pascal. Mari kita lihat bersama codingnya :

Untuk codingnya mudah saja, bisa kalian salin langsung ke programnya :
uses crt;
var
   Nama                   : array [1..30] of string;
   Tugas, uts, uas, absen : array [1..30] of integer;
   Rata                   : array [1..30] of real;
   x, jd                  : byte;
   i                      : integer;
   ket                    : string;
Begin
   Clrscr;
   write('Masukkan Jumlah Data :'); readln(jd);
   For x := 1 to jd do
   begin
        writeln('*****************************');
        writeln('PENILAIAN UJIAN MAHASISWA BSI');
        writeln('*****************************');
        write('Input Nama        : '); readln(nama[x]);
        write('Input Nilai Tugas : '); readln(tugas[x]);
        write('Input Nilai Absen : '); readln(absen[x]);
        write('Input Nilai UTS   : '); readln(uts[x]);
        write('Input Nilai UAS   : '); readln(uas[x]);
        Rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);
        if (rata[x]>=50) then ket :='Lulus' else ket :='Tidak Lulus';
   end;
   Clrscr;
   For i :=1 to jd do
   Begin
        writeln('*****************************');
        writeln('PENILAIAN UJIAN MAHASISWA BSI');
        writeln('*****************************');
        writeln('Nama          :',nama[i]);
        writeln('Nilai Tugas   :',tugas[i]);
        writeln('Nilai Absen   :',absen[i]);
        writeln('Nilai UTS     :',uts[i]);
        writeln('Nilai UAS     :',nama[i]);
        writeln('*****************************');
        writeln('Rata-rata :',rata[i]:1:0);
        writeln('keterangan:',ket);
        readln;
   end;
END.

Untuk yang tidak mau repot menulis coding diatas, bisa kalian download DISINI

Anda sedang membaca artikel tentang Penilaian Mahasiswa dengan Turbo Pascal dan Anda bisa menemukan artikel Penilaian Mahasiswa dengan Turbo Pascal ini dengan url http://gratisan69.blogspot.com/2012/02/penilaian-mahasiswa-dengan-turbo-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Penilaian Mahasiswa dengan Turbo Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait