Program Menghitung Nilai rata-rata Mahasiswa dengan Pascal

dandriabas       Comment   

Quis Algoritma Pemrograman II Menghitung Nilai Rata-rata Mahasiswa

Ketikan kode pascal berikut ini :

 
Program NilaiMahasiswa;
Uses Crt;
Var
   nama, nim, jurusan : string;
   algo, agama, tugas, mid, uas, akhir : integer;
   rata : real;

   Begin
   Clrscr;
   Gotoxy(10,4); Write('Masukan Nama/Nim        : '); readln(nama);
   Gotoxy(47,4); Write('/'); readln(nim);
   Gotoxy(10,5); Write('Masukan Jurusan         : '); readln(jurusan);
   Gotoxy(10,6); Write('Masukan Nilai Algoritma : '); readln(algo);
   Gotoxy(10,7); Write('Masukan Nilai Agama     : '); readln(agama);
   Gotoxy(10,8); Write('Masukan Nilai Tugas     : '); readln(tugas);
   Gotoxy(10,9); Write('Masukan Nilai Mid       : '); readln(mid);
   Gotoxy(10,10); Write('Masukan Nilai Uas       : '); readln(uas);

   Gotoxy(10,11); Write('=========================================');

   akhir := algo + agama + tugas + mid + uas;
   rata  := akhir / 5;

   Gotoxy(10,12); Writeln('Nama Mahasiswa       : ' , nama);
   Gotoxy(10,13); Writeln('Nim                  : ' , nim);
   Gotoxy(10,14); Writeln('Jurusan              : ' , jurusan);
   Gotoxy(10,15); Writeln('Nilai Akhir          : ' , akhir);
   Gotoxy(10,16); Writeln('Nilai Rata-rata      : ' , rata:2:2);
   End.

Dan hasilnya akan seperti dibawah ini :