===== Jangan pernah meremehkan dirimu. Tuhan memberikanmu hidup bukan kerena kamu membutuhkannya, tapi karena seseorang membutuhkanmu ===== Bagi semua pengunjung, saya minta do'anya untuk dimudahkan dan dilancarkan skripsiku ===== Makasih =====

KODE-KODE RAHASIA PADA TURBO PASCAL

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



4 comments:

  1. Replies
    1. Sama kang, coba buatlah program macam seperti diatas.
      ------------------------------------------------------

      program coba_kode_rahasia;
      uses crt;
      begin
      clrscr;
      WRITE( #26#1#0#3#0#2#27 );
      readln;
      end.

      Delete
  2. Gan kalo pake free pascal bagaimana?

    ReplyDelete
    Replies
    1. Sorry blum pernah coba jon, lagi ada tugas,, coba aja sendiri ya... :D

      Delete
:) :( ;) :D ;;-) :-/ :x :P :-* =(( :-O X( :7 B-) :-S #:-S 7:) :(( :)) :| /:) =)) O:-) :-B =; :-c :)] ~X( :-h :-t 8-7 I-) 8-| L-) :-a :-$ [-( :O) 8-} 2:-P (:| =P~ #-o =D7 :-SS @-) :^o :-w 7:P 2):) X_X :!! \m/ :-q :-bd ^#(^ :ar!