Bismillah...
Tahukah
anda? di dalam Turbo Pascal terdapat
suatu rahasia yang belum diketahui oleh semua orang (hanya beberapa orang saja yang tahu), salah satunya adalah
kode-kode rahasia yang tersusun dari tanda pagar(#) dan angka.
Apabila tanda
pagar(#) dan angka ini di susun maka terbentuklah suatu simbol baru yang unik,
dan simbol ini juga sering digunakan sebagai susunan tabel pada program pascal.
Gambar
dibawah ini adalah kode-kode dan hasil eksekusinya:
Keterangan kode yang tidak tercantum:
{
7 = tidak bisa}
{
10 = ke arah bawah}
{
8 = ke arah kiri}
{
13 = menuju paling kiri}
{
0,32,255,256 = spasi/ ke arah kanan}
{ 256,257,258 ...dan seterusnya = 0,1,2
...dan seterusnya}
Nah... anda
sudah tahu macam-macam kodenya, sekarang saya akan jelaskan cara pembuatan/
cara menjalankan kode tersebut.
Tulislah
program seperti gambar dibawah:
Maka hasil
eksekusinya:
CARA MENJALANKAN KODE RAHASIA(#)
LEBIH DARI SATU SIMBOL
Cara
membuatnya tidak jauh beda dengan panduan diatas, bentuk umumnya sebagai
berikut:
Satu simbol lebih
dari satu simbol
atau
Keterangan:
n = kode selanjutnya
WRITE(#1#2#3#n); = antara kode satu
dengan yang lain tidak boleh diberi spasi.
Untuk lebih
jelasnya dapat kita lihat program dibawah ini:
atau
Dua program diatas hasil eksekusinya
sama, yaitu:
Selain kode
rahasia simbol dari tanda pagar(#), ada juga simbol dari tanda ini(^). Klikdisini untuk melihat.
Disarankan sebelum mencoba, harap
berdo’a dahulu...^_^
Selamat mencoba...
kalo pake dev pascal sama gx
ReplyDeleteSama kang, coba buatlah program macam seperti diatas.
Delete------------------------------------------------------
program coba_kode_rahasia;
uses crt;
begin
clrscr;
WRITE( #26#1#0#3#0#2#27 );
readln;
end.
Gan kalo pake free pascal bagaimana?
ReplyDeleteSorry blum pernah coba jon, lagi ada tugas,, coba aja sendiri ya... :D
Delete