Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy.

Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat.

Berikut pemakaian gotoxy pada program pascal.

uses crt ;

type

    mahasiswa = record ;

    nim    : string[8] ;

    nama   : string[30] ;

    jenjang: string[2] ;

    prodi  : string[30] ;

    Nilai  : byte ;

    end;

var

   recMhs : array[1..30] of mahasiswa ;

   ket    : string[10];

   i      : byte ;

Begin

     for i:= 1 to 12 do

     begin

          Write('NIM       : '); readln(recMhs[i].nim) ;

          Write('Nama      : '); readln(recMhs[i].nama) ;

          Write('Jenjang   : '); readln(recMhs[i].jenjang) ;

          Write('Prodi     : '); readln(recMhs[i].prodi) ;

          Write('Nilai     : '); readln(recMhs[i].nilai) ;

     End;

     clrscr ;

     gotoxy(1,1) ; write('Informasi Mahasiswa') ;

     gotoxy(1,2) ; write('----------------------------------------------------------------------------') ;

     gotoxy(1,3) ; write('No NIM            Nama        Jenjang     Prodi          Nilai  Keterangan') ;

     gotoxy(1,4) ; write('----------------------------------------------------------------------------') ;

     for i := 1 to 12 do

     begin

        with recMhs[i] do

        begin

           if nilai>=50 then

              ket := 'Lulus'

           else

              ket := 'Gagal' ;

           gotoxy(1 ,4+i) ; write (i:2,' ',nim:8,' ', nama);

           gotoxy(33,4+i) ; write(jenjang,' ',prodi);

           gotoxy(59,4+i) ; write(nilai:3,' ',ket) ;

        end;

     end;

     gotoxy(1,5+i) ; write ('----------------------------------------------------------------------------') ;

     readln;

end.

Hasil Program:

Pemakaian gotoxy pada program pascal diatas hanya diperuntukkan pada bagian informasi saja. Namun hasil akhir akan terlihat rapi.

Demikianlah artikel pemakaian gotoxy pada program Pascal ini. Bagaimana anda suka belajar bahasa pemrograman?