Contoh Program perhitungan nilai menggunakan rumus "gotoxy"

Uses wincrt;
Var
   nim       : string[10];
   nama    : string[40];
   Ket      : string[15];
   nil_hadir,nil_quis,n_tugas,n_uts,n_uas  :integer;
   rata      : real;
Begin
     clrscr;
     gotoxy(20,3);write('#===============================================#');
     gotoxy(20,4);write('#                                   NILAI MAHASISWA                                   #');
     gotoxy(20,5);write('#--------------------------------------------------------------------------------- #');
     gotoxy(20,6);write('#   NPM                        :                                                                        #');
     gotoxy(20,7);write('#   MAMA                   :                                                                       #');
     gotoxy(20,8);write('#   N. KEHADIRAN    :                                                                       #');
     gotoxy(20,9);write('#   N. QUIS                   :                                                                       #');
     gotoxy(20,10);write('#   N. TUGAS            :                                                                       #');
     gotoxy(20,11);write('#   N. UTS                  :                                                                       #');
     gotoxy(20,12);write('#   N. UAS                 :                                                                       #');
     gotoxy(20,13);write('#-------------------------------------------------------------------------------#');
     gotoxy(20,14);write('#   RATA-RATA      :                                                                      #');
     gotoxy(20,15);write('#   KETERANGAN   :                                                                      #');
     gotoxy(20,16);write('#=============================================#');
     gotoxy(39,6);readln(nim);
     gotoxy(39,7);readln(nama);
     gotoxy(39,8);readln(nil_hadir);
     gotoxy(39,9);readln(nil_quis);
     gotoxy(39,10);readln(n_tugas);
     gotoxy(39,11);readln(n_uts);
     gotoxy(39,12);readln(n_uas);
     rata :=(nil_hadir*0.1)+(nil_quis*0.1)+(n_tugas*0.15)+(n_uts*0.25)+(n_uas*0.4);
     if (rata>=60) then
        Ket:=('LULUS') else
        ket:=('TIDAK LULUS');
     gotoxy(39,14);write(rata:3:2);
     gotoxy(39,15);write(ket);
end.

Contoh Hasil Program