Contoh Program Pascal Berbentuk Tabel

haloo ...
Berikut merupakan contoh program pascal berbentuk tabel yang sudah saya sediakan untuk anda dapat gunakan ataupun anda pahami dan pelajari .

Berikut adalah contoh penampakan dari program tabel tersebut :

Tabel 1

Tabel 2

Program ini sangat panjang dan untuk itu saya telah menyediakan link download dari program tersebut yang hanya memiliki ukuran beberapa kb saja, anda bisa mendownloadnya pada link berikut ini :



Lalu untuk menggunakannya anda bisa menggunakan Free Pascal dan Membuka file tersebut , lalu menjalankannya dengan tombol CTRL + F9.

Untuk programnya sebagai berikut :
Tabel 1 :

PROGRAM tabel_1 ;
USES  CRT;
CONST g = #206;
      s = #205;
      a = #204;
      t = #203;
      v = #202;
      q = #201;
      z = #200;
      m = #188;
      p = #187;
      i = #186;
      l = #185;
      o = #0;
VAR   X,Y : INTEGER;
BEGIN
  CLRSCR;
  textcolor(lightcyan);
  WRITE  (q,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,p);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (z,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,m);
  textcolor(white);
  GOTOXY(13,2);    WRITE('Menu Makanan');
  GOTOXY(43,2);    WRITE('Harga');


  GOTOXY(10,4);     WRITE('Sate')  ;
  GOTOXY(43,4);     WRITE('10.000')       ;


  GOTOXY(10,6) ;    WRITE('Tongseng')  ;
  GOTOXY(43,6)  ;   WRITE('8000')         ;


  GOTOXY(10,8)   ;  WRITE('Rames')      ;
  GOTOXY(43,8)    ; WRITE('5.000')           ;


  GOTOXY(10,10)    ; WRITE('Bakso')       ;
  GOTOXY(43,10)     ;WRITE('6.000')            ;

  GOTOXY(10,10)    ; WRITE('Ketoprak')       ;
  GOTOXY(43,10)     ;WRITE('8.000')            ;

  READLN;
END.

Tabel 2 :

PROGRAM Tabel_2 ;
USES  CRT;
CONST g = #206;
      s = #205;
      a = #204;
      t = #203;
      v = #202;
      q = #201;
      z = #200;
      m = #188;
      p = #187;
      i = #186;
      l = #185;
      o = #0;
VAR   X,Y : INTEGER;
BEGIN
  CLRSCR;
  textcolor(lightgreen);
  WRITE  (q,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,p);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,i);
  WRITE  (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  WRITE  (z,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,m);
  textcolor(white);
  GOTOXY(13,2);    WRITE('Nama');
  GOTOXY(43,2);    WRITE('Gaji');


  GOTOXY(10,4);     WRITE('Nining Karina')  ;
  GOTOXY(43,4);     WRITE('1000.000')       ;


  GOTOXY(10,6) ;    WRITE('Timbul Harapan')  ;
  GOTOXY(43,6)  ;   WRITE('2000.000')         ;


  GOTOXY(10,8)   ;  WRITE('Setyoningsih')      ;
  GOTOXY(43,8)    ; WRITE('1.500.000')           ;


  GOTOXY(10,10)    ; WRITE('Rendy Alvaro')       ;
  GOTOXY(43,10)     ;WRITE('2000.000')            ;

  GOTOXY(10,10)    ; WRITE('Riski')       ;
  GOTOXY(43,10)     ;WRITE('10.000.000')            ;

  READLN;
END.

Demikianlah contoh dari program tabel yang dapat saya berikan , semoga bermanfaat ...
terima kasih sudah berkunjung ..
Buka Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel

!