Program Perpustakaan Pascal Final Version

Published by scodeid Tuesday, April 25, 2017

Program Perpustakaan Pascal Versi 3

Final Version Releasemenambahkan / menggabungkan beberapa code :

• Searching Sequential and Binary
• Choose Program
• Smart and Simple Design

Spoiler Searchingnya

Programs ini merupakan gabungan dari program searching sequential dan binary dengan pilihan menu procedure . Source code ini saya buat saat masih bersekolah , dan hanya saya saja yang buat program ini hahaha , 1 kelas tidak ada yang mengerjakan , munkin pada sibuk . ok lanjut gan ..
berikut items requiretment saya tambahkan lagi , supaya terhubung ( tidak membingungkan )

• Install ini gan DOSBox  
• Kalau sudah lanjut kebawah
• Agar sobat tidak bingung saya jelaskan secara singkat tentang tutorial ini
  Pertama saya buat program pilihan dengan nama save as PILIHAN.PAS
  Kedua saya buat program searching dengan nama save as SEARCH.PAS
  Ketiga saya buat program gabungan dari program di atas tersebut gan save as PERPUS.PAS
• Untuk tutorial kali ini kita bahas yang ketiga
• Di akhir kalimat ada [UPDATE POST]  dan Pastebin to raw embed etc .
  update post dimaksudkan lanjutan dari post sebelumnya
• sebelum memulai usahakan rileks wkwkwkws code nya panjang gan ...

Ingat sob saat mengikuti harap pahami alur nya , fungsinya , jadi bukan hanya menyalin saja , tapi kita dapat memahaminya dengan mudah . jangan lupa setelah paham dibuat sendiri tanpa selalu melihat terus ..

Program Perpustakaan Pascal Final Version http://bit.ly/2pQP8sL

A post shared by Yogi Arif Widodo (@aw.yogi) on May 6, 2017 at 3:37am PDT

lets play . . .

1. Open DOSBox nya
2. Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
3. Ketik " c: "
4. Ketik " cd BIN "
5. Ketik " TURBO.EXE "
6. Setelah itu write code nya
7. Compile code nya (alt + f9)
8. Run (ctrl+f9)
   
Jangan lupa nih ... gan , jangan langsung copy paste source code tersebut . Carilah referensi mengenai alur dan maksud dari masing-masing script agar kita paham . Mungkin di lain waktu akan saya bahas untuk penjelasan atas script yang di inputkan :)

pertama buat nama program dan variablenya

 

Program buku_perpus; uses crt; Var T,GT,P:real; x: array [1..10] of integer; syogi:string[50]; yogi_bIackhat: string[2]; yogiback,yogi:char; yog,yogi25,pill:integer; { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *}

kemudian program pilihanya

 

procedure yogi1; begin      writeln('l===========================================================================l');      writeln('l        PROGRAM BUKU PERPUSTAKAAN YOGITHESYMBIAN.BLOGSPOT.COM              I');      writeln('l===========================================================================l');      writeln;      writeln;      writeln;      writeln;      writeln; end; procedure yogi_blackhat; begin      textcolor(10);      writeln('                        :---LIST OF INDEX/PERPUSTAKAAN---:  ');      writeln('                        : [1] BUKU PAKET                 :  ');      writeln('                        : [2] BUKU UMUM                  :  ');      writeln('                        : [3] SEARCH BUKU                :  ');      writeln('                        : [0] EXIT                       :  ');      writeln('                        :--------------------------------:  ');      writeln;      writeln;      writeln;      writeln('l===========================================================================l');      writeln('l                     SCRIPT (C) 2016 BY YOGI ARIF WIDODO                   I');      writeln('l===========================================================================l'); end; 

setelah itu procedure isinya

 

procedure paket_yogi; procedure yogi_hat; begin clrscr; writeln('========================'); writeln('l Buku Yang Tersedia l'); writeln('========================'); writeln(' [] B [] '); writeln(' [] O [] ____________________'); writeln(' [] O [] '); writeln(' [] K [] script (c) 2016 '); writeln('________________________ coding by yogi a.w'); writeln(' ____________________'); writeln('l 1. Bhs Inggris l'); writeln('l______________________l'); writeln; writeln('l 2. Matematika l'); writeln('l______________________l'); writeln; writeln('l 3. Pemrograman l'); writeln('l______________________l'); writeln(''); writeln('NB : Masukan nomor buku yang ingin di lihat '); end; procedure yog1; begin clrscr; writeln('buku bhs inggris'); writeln('~~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas X SCRIPT'); writeln('2. Untuk kelas XI (C) '); writeln('3. Untuk kelas XII 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART ENGLISH STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] PRO GOING TO ENGLISH STUDY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -----Master Tools------ l'); writeln('] PREMIUM ENGLISH STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; procedure yog2; begin clrscr; writeln('buku matematika'); writeln('~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas X SCRIPT'); writeln('2. Untuk kelas XI (C) '); writeln('3. Untuk kelas XII 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART COUNT STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EXPERT TO COUNT STUDY VS EASY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GM TOOLS-------- l'); writeln('] PREMIUM MTK STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; procedure yog3; begin clrscr; writeln('buku pemrograman'); writeln('~~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas 1 SCRIPT'); writeln('2. Untuk kelas 2 (C) '); writeln('3. Untuk kelas 3 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART CODING STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EASY NORMAL HARD CODING BRAIN l'); writeln('] -------be cool------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------NEWBIE TOOL----- l'); writeln('] PREMIUM CODING BRAIN l'); writeln('] --------be cool-------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; begin clrscr; yogi1;writeln; yogi_hat;writeln; write('INPUT HERE : ');readln(yogi25); case yogi25 of 01:yog1; 02:yog2; 03:yog3; end;writeln;{ * yogithesymbian.blogspot.com www.yogi-aw.id *} end; procedure syogi_0; begin clrscr; writeln(' / --------------------------------'); writeln('=======================/ P r o g r a m __ S e a r c h /'); writeln(' /_________________________________/'); writeln; writeln; writeln(' How To use This Program ? follow this step'); writeln(' \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/'); writeln('=============\ please before using this program /'); writeln('============= \ make ur keyboard capslock mode ON / '); writeln(' \ /'); writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); writeln; writeln('FOLLOW THIS'); writeln('1. if ur keyboard already capslock mode ON'); writeln('2. make sure ur it mode ON '); writeln('3. if ur didnt follow my step u cant access this searching'); writeln('4. done ... INPUT YES OR NO to open this program '); writeln; writeln; writeln('Masukan YES or NO : '); gotoxy(21,20); readln(syogi); if syogi='YES' then begin clrscr; writeln(' ______________________________'); writeln; writeln(' List Of Index Searching By yogi '); writeln(' ________________________________________'); writeln('___'); writeln('(1) ENGLISH KELAS 1 OR 2 OR 3'); writeln('(2) MATEMATIKA KELAS 1 OR 2 OR 3'); writeln('(3) PEMGROGRAMAN KELAS 1 OR 2 OR 3 '); writeln(' + TKJ'); writeln('(4) ENSIKLOPEDIA ISLAM KELAS 1 OR 2 OR 3 (c)2016'); writeln('(5) ENSIKLOPEDIA EARTH KELAS 1 OR 2 OR 3 xcodex_yogi.a.w'); writeln('(6) ENSIKLOPEDIA GOOGLE KELAS 1 OR 2 OR 3 ________________________'); writeln; writeln(' _____________________________________________'); writeln; writeln(' / Example : ENGLISH KELAS 1 , kemudian enter \'); writeln(' / ____________________________________________________________ \'); writeln(' NB : if any notif menu utama or exit '); writeln(' that is no right word or index not found it'); writeln(' but if any show result but have notif it'); writeln(' that is so right / founded'); writeln(' \ ____________________________________________________/'); writeln; writeln('INPUT HERE : '); gotoxy(18,24); readln(syogi);

tambahkan if and else jika diperlukan

 

if syogi='ENSIKLOPEDIA ISLAM KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 7' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 10' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 7' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 10' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 7' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='ENSIKLOPEDIA EARTH KELAS 10' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 7' then begin { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='PEMROGRAMAN KELAS 10' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 7' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='MATEMATIKA KELAS 10' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 4' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 5' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 6' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 7' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 8' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 9' then begin clrscr; writeln('404 not found'); end; if syogi='ENGLISH KELAS 10' then begin clrscr; writeln('404 not found'); end;

langsung saja sampai selesai ke report nya

 

if syogi='ENGLISH KELAS 1' then begin clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART ENGLISH STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENGLISH KELAS 2' then begin clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] PRO GOING TO ENGLISH STUDY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENGLISH KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] BHS INGRISS l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -----Master Tools------ l'); writeln('] PREMIUM ENGLISH STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; if syogi='MATEMATIKA KELAS 1' then begin clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART COUNT STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='MATEMATIKA KELAS 2' then begin { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EXPERT TO COUNT STUDY VS EASY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='MATEMATIKA KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GM TOOLS-------- l'); writeln('] PREMIUM MTK STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='PEMROGRAMAN KELAS 1' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART CODING STUDY l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='PEMROGRAMAN KELAS 2' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EASY NORMAL HARD CODING BRAIN l'); writeln('] -------be cool------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='PEMROGRAMAN KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] PEMROGRAMAN l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------NEWBIE TOOL----- l'); writeln('] PREMIUM CODING BRAIN l'); writeln('] --------be cool-------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 1' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SHOHIH STUDY FINAL l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SHOHIH WORD GREATZ ALL MUSLIM l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA ISLAM KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -----UMAR BIN KHATAB--- l'); writeln('] SHOHIH l'); writeln('] ---------SHOHIH------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA EARTH KELAS 1' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA EARTH l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART KNOW EARTH l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA EARTH KELAS 2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA EARTH l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EXPERT TO COUNT STUDY VS EASY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA EARTH KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA EARTH l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GM TOOLS-------- l'); writeln('] PREMIUM EARTH STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 1' then begin { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] --------KAMUS--------- l'); writeln('] GOOGLE KAPAN AKU KERJA l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] GOOGLE BAGAIMANA DUNIA KERJA l'); writeln('] -----KAMUS GOOGLE---- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if syogi='ENSIKLOPEDIA GOOGLE KELAS 3' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GOOGLE TOOL----- l'); writeln('] GOOGLE APAKAH AKU BISA TANPAMU l'); writeln('] ------KAMUS GOOGLE----- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; procedure umum_yogi; procedure yogi_coder; begin clrscr; writeln('========================'); writeln('l Buku Yang Tersedia l'); writeln('========================'); writeln(' [] B [] '); writeln(' [] O [] ____________________'); writeln(' [] O [] '); writeln(' [] K [] script (c) 2016 '); writeln('________________________ coding by yogi a.w'); writeln(' ____________________'); writeln('l 1. Ensiklopedia Islam l'); writeln('l________________________l'); writeln; writeln('l 2. Ensiklopedia Earth l'); writeln('l________________________l'); writeln; writeln('l 3. Ensiklopedia Googlel'); writeln('l________________________l'); writeln(''); writeln('NB : Masukan nomor buku yang ingin di lihat '); end; procedure yog4; begin clrscr; writeln('buku Ensiklopedia Islam'); writeln('~~~~~~~~~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas X SCRIPT'); writeln('2. Untuk kelas XI (C) '); writeln('3. Untuk kelas XII 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SHOHIH STUDY FINAL l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SHOHIH WORD GREATZ ALL MUSLIM l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA ISLAM l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -----UMAR BIN KHATAB--- l'); writeln('] SHOHIH l'); writeln('] ---------SHOHIH------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; procedure yog5; begin clrscr; writeln('buku Ensiklopedia Earth'); writeln('~~~~~~~~~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas X SCRIPT'); writeln('2. Untuk kelas XI (C) '); writeln('3. Untuk kelas XII 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA EARTH l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] SMART KNOW EARTH l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA EARTH l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] EXPERT TO COUNT STUDY VS EASY l'); writeln('] -------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] MATEMATIKA l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GM TOOLS-------- l'); writeln('] PREMIUM MTK STUDY l'); writeln('] --------be smart------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; procedure yog6; { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} begin clrscr; writeln('buku Ensiklopedia Google'); writeln('~~~~~~~~~~~~~~~~~~~~~~~~'); writeln; writeln('1. Untuk kelas 1 SCRIPT'); writeln('2. Untuk kelas 2 (C) '); writeln('3. Untuk kelas 3 2016'); writeln('____________________________________________ BY YOGI A.W'); writeln; writeln('NB : Masukan nomor kelas di bawah lalu enter'); writeln('____________________________________________'); readln(yogi); if yogi='1' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] --------KAMUS--------- l'); writeln('] GOOGLE KAPAN AKU KERJA l'); writeln('] ---------------------- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l'); writeln('] \ / l'); writeln('] \/ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] / \ l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='2' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] ---------------------- l'); writeln('] GOOGLE BAGAIMANA DUNIA KERJA l'); writeln('] -----KAMUS GOOGLE---- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l'); writeln('] \ / l l'); writeln('] \/ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] / \ l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; if yogi='3' then begin clrscr; writeln(']=========================================================================['); writeln('] ENSIKLOPEDIA GOOGLE l'); writeln(']=========================================================================='); writeln('] l'); writeln('] l'); writeln('] -------GOOGLE TOOL----- l'); writeln('] GOOGLE APAKAH AKU BISA TANPAMU l'); writeln('] ------KAMUS GOOGLE----- l'); writeln('] (C) 2016 l'); writeln('] l'); writeln('] l'); writeln('] \ / l l l'); writeln('] \ / l l l'); writeln('] \/ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] / \ l l l'); writeln('] DITERBITKAN OLEH l'); writeln('] PT. BOOK OF FUTURE l'); writeln(']=========================================================================='); end; end; begin clrscr; yogi1;writeln; yogi_coder;writeln; write('INPUT HERE : ');readln(yogi25); case yogi25 of 01:yog4; 02:yog5; 03:yog6; end;writeln; end; { * https://yogithesymbian.blogspot.com https://www.yogi-aw.id *} begin yogiback:='y'; while (yogiback='y') do begin clrscr; yogi1;writeln; yogi_blackhat;writeln; write('Pilih Nomor Dari List of index for view it: '); readln(yogi25); case yogi25 of 1:paket_yogi; 2:umum_yogi; 3:syogi_0; end; writeln; writeln('_____________THANKS FOR USING MY SCRIPT_______________Y09!'); writeln; write ('PLEASE CAPSLOCK OFF ! masukan (y)-> menu utama ->(n) untuk EXIT : '); readln(yogiback); end; end.

Karena kami sedang memaintenance perpindahan post , untuk code bisa pakai yang di bawah ini, agar tidak terhambur. thanks for use...
Full code

[ UPDATE ] Post Program Pilihan click disini
[ UPDATE ] Post Program Search  click disini
[ UPDATE ] Post Program Gabunganya click disini

ok sekian sob

semoga bermanfaat