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 ..