CARA MEMBUAT TABEL PADA TURBO PASCAL

   Sebenarnya tabel pada pascal itu terdiri dari rangkaian-rangkaian simbol yang saling dihubungkan, tetapi untuk membuat suatu simbol pada pascal anda perlu mengetahui kode-kode rahasia yang perlu digunakan.

   Supaya anda tidak kerepotan mencari kode-kode rahasia, maka disini sudah saya siapkan dalam bentuk tabel dibawah:
 

 TABEL GARIS GANDA      TABEL GARIS TUNGGAL     TABEL GARIS CAMPURAN

KODE	HASIL		KODE	HASIL		KODE	HASIL
#0	SPACE		#0	SPACE		#0	SPACE
#185			#179			#181
#186			#180			#182
#187			#191			#183
#188			#192			#184
#200			#193			#189
#201			#194			#190
#202			#195			#198
#203			#196			#199
#204			#197			#207
#205			#217			#208
#206			#218			#209
						#210
						#211
						#212
						#213
						#214
						#215
						#216

Sekarang anda sudah tahu kode-kode yang nanti akan digunakan untuk mambuat tabel, dan selanjutnya anda ikuti langkah-langkah sebagai berikut:

Contoh/ cara membuat tabel garis ganda:

 

1.Anda harus tahu terlebih dahulu cara menjalankan kode-kode tersebut.

Jika anda belum tahu caranya, klik disini.

2.Untuk memudahkan dan supaya tidak terlalu panjang menuliskan kode, maka saya menggunakan CONST.

Keterangan:

   q  untuk kode #201                     p  untuk kode #187

   z  untuk kode #200                     m untuk kode #188

   a  untuk kode #204                     l  untuk kode #185

   t  untuk kode #203                     v  untuk kode #202

   g  untuk kode #206                     s  untuk kode #205

   o  untuk kode #0                       i  untuk kode #186

Kalau bingung dengan keterangan diatas, lihat saja bentuk CONST pada contoh program dibawah.

3.Supaya penulisan pada program tidak terlalu panjang, maka satu baris tabel saya bagi manjadi dua baris panulisan program yang masing-masing berisi 40 karakter dan 39 karakter kode.

 dan hasilnya adalah:

4.  Untuk membuat tabel yang sebenarnya, tulislah program seperti dibawah ini:

PROGRAM PEMBUATAN_TABEL_GARIS_GANDA; 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; 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,t,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,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,g,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,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,g,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,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,g,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,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,g,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,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,g,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,i); 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,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s,m); GOTOXY(2,2); WRITE('NO.'); GOTOXY(13,2); WRITE('NAMA'); GOTOXY(43,2); WRITE('ALAMAT'); GOTOXY(66,2); WRITE('NO.TELPHONE'); READLN; END. 

Hasil eksekusi:

Terimakasih, selamat mencoba.... ^_^