Pemakaian Gotoxy Pada Program Pascal

Minggu, 24 Februari 2013 | 11:43 WIB | Dibaca : 3711 kali | Kategori : Prog PASCAL
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.

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?

Tag : Pemakaian Gotoxy Pada Program Pascal, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman pascal, tempat download program


Bila berita ini bermanfaat silahkan share Pemakaian Gotoxy Pada Program Pascal ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Pemakaian Gotoxy Pada Program Pascal

Anda berada di halaman Pemakaian Gotoxy Pada Program Pascal, dan telah membaca artikel Pemakaian Gotoxy Pada Program Pascal. Artikel Pemakaian Gotoxy Pada Program Pascal bisa anda peroleh pada halaman http://www.mesran.web.id/berita-570-pemakaian-gotoxy-pada-program-pascal.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Pemakaian Gotoxy Pada Program Pascal sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id