Diberdayakan oleh Blogger.
RSS

Membuat Page Pada LaTeX

\documentclass{article}
\usepackage{color}
\usepackage[bahasa]{babel}
\title{\textcolor{red}{Negri 5 Menara}}
\author{\textbf{Ahmad Fuadi}}
\date{\textbf{\today}}
\begin{document}
\maketitle
\newpage
\tableofcontents
\newpage
\section{\textbf{Bab I}}
\subsection{Pendahuluan}
\section{\textbf{Bab II}}
\subsection{Landasan Teori}
\section{\textbf{Bab III}}
\subsection{Kesimpulan dan saran}
\newpage
\begin{thebibliography}{4}
\bibitem{pustaka1}{Rowling,J.K.2008.\emph{Harry Potter and Sorcere's Stone}.vol I.Inggris:Bloomsbury}
\bibitem{pustaka1}{Fuadi,Ahmad.2009.\emph{Sang Pemimpi}. Jakarta:Benteng Pustaka}
\bibitem{pustaka1}{Hirata,Andrea.2006.\emph{Laskar Pelangi}.Jakarta:Benteng Pustaka}
\bibitem{pustaka1}{Ariadinata,Joni.2006.\emph{Aku Bisa Nulis Cerpen}.
Jakarta:Gema Insani}
\end{thebibliography}
\end{document}

Hasil Outputnya



Penjelasan:
Ø  Format Perintah
Perintah LaTeX diawali dengan tanda backslash (\). Tanda ini memberitahukan kepada LaTeX untuk melakukan hal tertentu pada bagian dokumen tersebut. Perintah- perintah dalam LaTeX biasanya sudah cukup menjelaskan apa yang akan dilakukan LaTeX pada dokumen kita.
Ø  Bahasa
LaTeX dapat mengatur tulisan mengikuti ejaan yang dimiliki beberapa bahasa tertentu. Kemampuan ini diatur oleh babel package yang dimiliki LaTeX. Hal tersebut berpengaruh pada pemenggalan kata, spasi setiap kata, indentasi, dan beberapa judul bagian dokumen yang digunakan dalam heading. Mengubah pengaturan bahasa dengan menggunakan babel akan secara otomatis mengubah nama-nama dari unit struktur dokumen menjadi terjemahannya.
Ø  Document class
Class file pada LaTeX menetukan layout halaman, jenis heading, dan berbagai perintah dan environment yang diperlukan untuk mengatur style dokumen. Cara untuk mendeklarasikan document class adalah memulai dokumen dengan:
Ada beberapa jenis document class yang bisa dipakai dalam sebuah dokumen yaitu:
1.      Report : kelas ini dapat digunakan untuk membuat laporan baik dalam bidang bisnis, teknik, hukum, akademis, atau ilmu pengetahuan.
2.      Article : kelas ini dapat digunakan untuk membuat paper, artikel sebuah jurnal atau majalah, review, dan catatan riset.
3.      Book : kelas ini digunakan untuk membuat buku dan thesis.
4.      Letter : kelas ini digunakan untuk membuat surat.
Ø  Document class options
Document class option maksudnya pilihan yang tersedia pada kelas dokumen yang bisa kita tentukan sendiri isinya. Opsi pada suatu kelas dokumen dituliskan seperti berikut:
Seperti terlihat diatas, kita dapat menentukan beberapa opsi sekaligus dalam tanda kurung dengan dibatasi tanda koma. Contohnya:
1.      Ukuran kertas : kita dapat menentukan sendiri ukuran kertasnya.
2.      Ukuran font :  kita dapat memilih ukuran 10pt, 11pt, atau 12pt. Setelah kita menentukan ukuran font yang dipakai, semua font dalam dokumen akan diatur sedemikian sehingga memiliki ukuran sesuai dengan yang kita tentukan. Font yang dipakai pada header, footer disesuaikan secara proporsional dengan ukuran font tersebut.
Ø  Penulisan judul
Judul > dalam sebuah dokumen LaTeX diletakkan pada awal document environment. Abstrak
Pada dokumen kelas article dan report umumnya memiliki abstrack/ringkasan, LaTeX memiliki cara khusus untuk menuliskan abstrak. Formatnya adalah sebagai berikut:
Ø  Sistematika isi dokumen
LaTeX memiliki kemampuan untuk membagi dokumen dalam suatu susunan struktural (bab, subbab, subsubbab, dst) samapa 7 tingkatan. Berikut ini adalah daftar struktur yang disediakan oleh LaTeX:
Struktur
Perintah
Bagian (part)
\part{...}
Bab (chapter)
\chapter{...}
Subbab (section)
\section{...}
Subsubbab (subsection)
\subsection{...}
Subsubsubbab( subsubsection)
\subsubsection{...}
Paragraf berjudul (titled paragraph)
\paragraph{...}
Anak paragraf berjudul (titled subparagraph)
\subparagraph{...}
Ø  Daftar isi
Untuk menampilkan daftar isi digunakan perintah:
\tableofcontents
Perintah ini diletakkan pada bagian dimana daftar isi tersebut akan ditempatkan. Biasanya daftar isi ditempatkan tepat setelah abstrak/kata pengantar.
Ø  Daftar pustaka
Untuk menampilkan daftar pustaka atau bibliografi pada akhir sebuah dokumen LaTeX digunakan format perintah seperti berikut ini:
\begin {thebibliography}{4}
\bibitem{label untuk referensi}{keterangan pustaka yang digunakan}
........................
........................
\end{thebibliography}
Beberapa hal yang perlu diketahui dari perintah di atas antara lain:
1.      Angka 4 memberitahu bahwa penomoran maksimal daftar pustaka adalah 4
2.      Label untuk referensi diisikan keyword yang akan digunakan saat membuat rujukan ke pustaka yang bersangkutan.
3.      Keterangan pustaka diisi informasi mengenai : penulis, judul pustaka, edisi, penerbit, kota penerbit, tahun penerbitan.
Ø  \textbf digunakan untuk mempertebal tulisan.
Ø  \newpage digunakan untuk membuat halaman baru.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Manusia dan Keadilan

Keadilan berasal dari bahasa arab “adl” yang artinya bersikap dan berlaku dalam keseimbangan. Keseimbangan meliputi keseimbangan antara hak dan kewajiban dan keserasian dengan sesama makhluk. Keadilan pada hakikatnya adalah  memperlakukan seseorang atau orang lain sesuai haknya atas kewajiban yang telah di lakukan. Yang menjadi hak setiap orang adalah di akui dan di perlakukan sesuai harkat dan martabatnya yang sama derajatnya di mata Tuhan YME. Hak-hak manusia adalah hak-hak yang diperlukan manusia bagi kelangsungan hidupnya di dalam masyarakat.

Keadilan dalam kehidupan manusia adalah sangat prinsip dan di manapun tidak mengenal waktu dan tempat selalu di perjuangkan. Keadilan adalah bagian dari hak asasi yang telah di miliki manusia sejak di lahirkan tanpa perbedaan. Manusia tidak dapat di pisahkan dari keadilan, karena dengan keadilanlah manusia dapat mempertahankan hidupnya.

Macam-Macam Keadilan
1) Keadilan Komutatif (iustitia commutativa) yaitu keadilan yang memberikan kepada masing-masing orang apa yang menjadi bagiannya berdasarkan hak seseorang (diutamakan obyek tertentu yang merupakan hak seseorang).
Contoh:
  • adil kalau si A harus membayar sejumlah uang kepada si B sejumlah yang mereka sepakati, sebab si B telah menerima barang yang ia pesan dari si A.
  • Setiap orang memiliki hidup.  Hidup adalah hak milik setiap orang, maka menghilangkan hidup orang lain adalah perbuatan melanggar hak dan tidak adil.

2)  Keadilan Distributif (iustitia distributiva) yaitu keadilan yang memberikan kepada masing-masing orang apa yang menjadi haknya berdasarkan asas proporsionalitas atau kesebandingan berdasarkan kecakapan, jasa atau kebutuhan.
Contoh:
  • adil kalau si A mendapatkan promosi untuk menduduki jabatan tertentu sesuai dengan kinerjanya selama ini.
  • tidak adil kalau seorang pejabat tinggi yang koruptor memperoleh penghargaan dari presiden.

3) Keadilan legal (iustitia Legalis), yaitu keadilan berdasarkan Undang-undang (obyeknya tata masyarakat) yang dilindungi UU untuk kebaikan bersama (bonum Commune).
Contoh:
  • adil kalau semua pengendara mentaati rambu-rambu lalulintas.
  • adil bila Polisi lalu lintas menertibkan semua pengguna jalan sesuai UU yang berlaku.

4) Keadilan Vindikatif (iustitia vindicativa) adalah keadilan yang memberikan kepada masing-masing orang hukuman atau denda sesuai dengan pelanggaran atau kejahatannya.
Contoh:
  • adil kalau si A dihukum di Nusa Kambangan karena kejahatan korupsinya sangat besar.
  • tidak adil kalau koruptor hukumannya ringan sementara pencuri sebuah semangka dihukum berat.

5)  Keadilan kreatif (iustitia creativa) adalah keadilan yang memberikan kepada masing-masing orang bagiannya berupa kebebasan untuk mencipta sesuai dengan kreatifitas yang dimilikinya di berbagai bidang kehidupan.
Contoh:
  •  adil kalau seorang penyair diberikan kebebasan untuk menulis, bersyair sesuai dengan kreatifitasnya.
  •  tidak adil kalau seorang penyair ditangkap aparat  hanya karena syairnya berisi keritikan terhadap pemerintah.

6) Keadilan protektif (iustitia protectiva) adalah keadilan yang memberikan perlindungan kepada pribadi-pribadi dari tindakan sewenang-wenang pihak lain.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Manusia Dan Penderitaan

Manusia memiliki dua sisi yaitu sisi bahagia dan sisi penderitaan. Ada suatu kala manusia merasakan sebuah kebahagiaan dan biasanya kebahagiaan itu datang dengan sendirinya. Kehidupan memang tak lengkap jika hanya ada kebahagiaan, karena jika hanya ada sebuah kebahagiaan di dalam sebuah kehidupan maka manusia yang hidup di dunia ini tidak akan pernah bersyukur kepada Allah SWT yang telah menciptakannya. Hal yang sering terjadi manusia yang merasa kebahagiaan di dalam hidupnya sering lupa kepada yang telah menciptakannya, oleh karena itulah Allah SWT maha adil. Maka dari itu, salah manusia jika hanya menginginkan kebahagiaan semata. Karena disamping terdapatnya kebahagiaan di dunia di dalam kehidupan juga terdapat rasa yang memiliki arti berlawanan dengan arti kebahagiaan. Arti yang berlawanan itulah yang biasa kita sebut dengan penderitaan.

Penderitaan berasal dari kata derita. Kata derita berasal dari bahasa sansekerta dhra artinya menahan atau menanggung. Derita artinya  menanggung atau merasakan sesuatu yang tidak menyenangkan. Penderitaan dapat berupa penderitaan lahir atau batin atau lahir dan batin. Penderitaan termasuk realitas manusia dan dunia. Intensitas penderitaan bertingkat-tingkat, ada yang berat, ada yang ringan. Namun peranan individu juga menentukan berat tidaknya intensitas penderitaan. Suatu peristiwa  yang dianggap penderitaan oleh seseorang belum tentu merupakan penderitaan bagi orang lain. Dapat pula suatu penderitaan merupakan energi untuk bangkit kembali bagi seseorang, atau sebagai langkah awal untuk mencapai kenikmatan dan kebahagiaan. 

Siksaan 
Siksaan atau penyiksaan (Bahasa Inggris: torture) digunakan untuk merujuk pada penciptaan rasa sakit untuk menghancurkan kekerasan hati korban. Segala tindakan yang menyebabkan penderitaan, baik secara fisik maupun psikologis, yang dengan sengaja dilakukkan terhadap seseorang dengan tujuan intimidasi, balas dendam, hukuman, sadisme, pemaksaan informasi, atau mendapatkan pengakuan palsu untuk propaganda atau tujuan politik dapat disebut sebagai penyiksaan. Siksaan dapat digunakan sebagai suatu cara introgasi untuk mendapatkan pengakuan. Siksaan juga dapat digunakan sebagai metode pemaksaan atau sebagai alat untuk mengendalikan kelompok yang dianggap sebagai ancaman bagi suatu pemerintah. Sepanjang sejarah, siksaan juga telah digunakan sebagai cara untuk memaksakan pindah agama atau cuci otak politik.

Tiga Siksaan Bersifat Psikis
  • Kebimbangan, siksaan ini terjadi ketika manusia sulit untuk menentukan pilihan yang mana akan meraka ambil dan mereka tidak ambil. Situasi ini sangat membuat psikis manusia tidak stabil dan butuh pertimbangan yang amat sangat sulit. 
  • Kesepian, merupakan perasaan sepi yang amat sangat tidak diinginkan oleh setiap manusia. Pada hakikatnya manusia itu adalah makhluk yang bersosial, hidup bersama dan tidak hidup seorang diri. Faktor ini dapat mengakibatkan depresi kejiwaan yang berat dan merupakan siksaan paling mendalam yang menimpa rohani manusia.
  • Ketakutan, adalah suatu reaksi psikis emosional terhadap sesuatu yang ditakuti oleh manusia. 
  • Rasa takut ini dapat menimbulkan traumatik yang amat mendalam. Dampaknya manusia bisa kehilangan akal pikirannya dan membuat manusia berkejatuhan mental.

Penderitaan dan sebab-sebabnya
1.      Penderitaan yang timbul karena perbuatan buruk manusia
Penderitaan ini menyangkut tentang manusia dan lingkungan sekitarnya. Penderitaan ini kadang disebut nasib buruk. Nasib buruk ini dapat diperbaiki manusia hingga menjadi nasib baik. Dengan kata lain manusialah yang dapat memperbaiki nasibnya. Tetapi kalau takdir Allah yang menentukan kita hanya bisa menerima, sedangkan nasib buruk itu manusia sebagai penyebabnya. Maka dari itu manusia dituntut untuk berusaha untuk mendapatkan kehidupan sebaik-baiknya dengan cara yang baik pula.
2.      Penderitaan yang timbul karena penyakit, siksaan/azab Tuhan
Ini merupakan kehendak allah, tapi dalam hal inipun manusia masih dapat berusaha yaitu dengan kesabaran, tawakal, dan optimisme dapat berupa usaha manusia mengatasi penderitaan itu.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Manusia dan Keindahan

Kata keindahan berasal dan kata indah, artinya bagus, permai, cantik, elok, molek, dan sebagainya. Benda yang mempunyai sifat indah ialah segala hasil seni, pemandangan alam, manusia, rumah, tatanan, perabot rumah tangga, suara, warna, dan sebaginya. Kawasan keindahan bagi manusia sangat luas, seluas keanekaragaman manusia dan sesuai pula dengan perkembangan peradaban teknologi, sosial, dan budaya. Karena itu keindahan dapat dikatakan, bahwa keindahan merupakan bagian hidup manusia. Keindahan tak dapat dipisahkan dari kehidupan manusia. Dimanapun kapan pun dan siapa saja dapat menikmati keindahan.

Menurut luasnya pengertian keindahan dibedakan menjadi 3, yaitu :
1.      Keindahan dalam arti luas.
Selanjutnya The Liang Gie menjelaskan.bahwa keindahan dalam arti luas mengandung pengertian ide kebaikan. Misalnya Plato menyebut watak yang indah dan hukum yang indah, sedangkan Aristoteles merumuskan keindahan sebagai sesuatu yang baik dan juga menyenangkan.

Jadi pengertian yang seluas-Iuasnya meliputi :
-          keindahan seni
-          keindahan alam
-          keindahan moral
-          keindahan intelektual.

2.      Keindahan dalam arti estetik murni.
Keindahan dalam arti estetik murni menyangkut pengalaman estetik seorang dalam hubungannya dengan segala sesuatu yang diserapnya.

3.      Keindahan dalam arti terbatas dalam hubungannya dengan penglihatan.
Keindahan dalam arti yang terbatas, mempunyai arti yang lebih disempitkan sehingga hanya menyangkut benda-benda yang dapat diserap dengan penglihatan, yakni berupa keindahan bentuk dan warna. Keindahan tersusun dari berbagai keselarasan dan kebalikan dari garis, warna, bentuk, nada, dan kata-kata. Ada pula yang berpendapat bahwa keindahan adalah suatu kumpulan hubungan-hubungan yang selaras dalam suatu benda dan di antara benda itu dengan si pengamat.

Dari pembagian dan pembedaan terhadap keindahan diatas, masih belum jelas apakah sesungguhnya keindahan itu. lni memang merupakan suatu persoalan filsafati yang jawabannya beraneka ragam. Salah satu jawaban mencari ciri-ciri umum yang ada pada semua benda yang dianggap indah dan kemudian menyamakan ciri-ciri atau kwalita hakiki itu dengan pengertian keindahan. Jadi keindahan pada dasamya adalah sejumlah kwalita pokok tertentu yang terdapat pada suatu hal. Kwalita yang paling sering.disebut adalah kesatuan (unity), keselarasan (harmony). kesetangkupan (symmetry), keseimbangan (balance) dan perlawanan (contrast).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Manusia dengan Kasih Sayang dan Cinta Kasih

Kasih Sayang
Kata kasih dan sayang itu mengandung pengertian yang sangat luas. Dan yang pasti setiap insan manusia perlu tahu dan mengerti apa makna kasih sayang yang sebenarnya, sekaligus memilikinya di dalam sanubari. Seseorang akan merasa hampa jiwanya jika hidup tanpa memiliki kasih maupun sayang. Apapun yang terjadi, pasti dia akan selalu ingin dicintai maupun mencintai orang lain. Dari pertama kali lahir di dunia sampai ajal menjemput.
Yang dimaksud dengan kasih dan sayang di sini bukan sekedar hubungan cinta atau asmara antara seorang laki-laki dan perempuan saja. Namun lebih bersifat universal. Sehingga hal ini bisa terjadi terhadap sahabat, saudara, keluarga dan lain-lain. Dan yang perlu ditekankan bahwa kasih dan sayang yang tulus itu selalu punya sifat yang ikhlas dan lebih banyak memberi daripada menerima. Kepentingan diri sendiri sering dinomor duakan demi memberi kebahagiaan pada orang yang dikasihi dan disayanginya.
Kasih, sayang dan cinta. Itu semua adalah anugerah dari Tuhan yang diberikan kepada kita semua. Tujuannya untuk menciptakan kehidupan damai di dunia agar selalu diliputi dengan ketentraman. Untuk itulah setiap orang perlu mengerti makna kasih sayang agar bisa saling menghargai kepribadian dari orang lain, meski dia punya perbedaan dengan kita.
Karena dari sinilah akan tercipta keharmonisan yang aman serta penuh kemesraan. Setelah itu akan muncul daya cipta yang terwujud dalam bentuk cinta, baik cinta kepada sesama manusia, lingkungan dan Sang Maha Pencipta, yaitu Tuhan Yang Maha Esa.
Dalam hubungan kasih sayang kepada sesama manusia yang berlawanan jenis terkadang sering timbul sebuah perasaan atau sering juga disebut ikatan cinta. Di dalam teori Triangular Theory of Love, cinta digambarkan memiliki tiga elemen/komponen yang berbeda, yaitu : keintiman (intimacy), gairah/nafsu (passion), dan kesepakatan/komitmen (commitment). Teori ini dikemukakan oleh Robert Sternberg – seorang ahli psikologi. Berbagai gradasi maupun jenis cinta timbul karena perbedaan kombinasi di antara ketiga elemen tersebut. Suatu hubungan interpersonal yang didasarkan hanya pada satu elemen ternyata lebih rapuh daripada bila didasarkan pada dua atau tiga elemen.
Berdasarkan “Triangular Theory of Love” disebutkan beberapa bentuk-bentuk (wajah) cinta, yaitu :
1.    Menyukai (liking) atau pertemanan karib (friendship), yang cuma memiliki elemen intimacy. Dalam jenis ini, seseorang merasakan keterikatan, kehangatan, dan kedekatan dengan orang lain tanpa adanya perasaan gairah/nafsu yang menggebu atau komitmen jangka panjang.
2.    Tergila-gila (infatuation) atau pengidolaan (limerence), hanya memiliki elemen passion. Jenis ini disebut juga Infatuated Love, seringkali orang menggambarkannya sebagai “cinta pada pandangan pertama”. Tanpa adanya elemen intimacy dan commitment, cinta jenis ini mudah berlalu.
3.    Cinta hampa (empty love), dengan elemen tunggal commitment di dalamnya. Seringkali cinta yang kuat bisa berubah menjadi empty love, yang tertinggal hanyalah commitment tanpa adanya intimacy dan passion. Cinta jenis ini banyak dijumpai pada kultur masyarakat yang terbiasa dengan perjodohan atau pernikahan yang telah diatur (Era Siti Nurbaya dan Datuk Maringgih?)
4.    Cinta romantis (romantic love). Cinta jenis ini memiliki ikatan emosi dan fisik yang kuat (intimacy) melalui dorongan passion.
5.    Cinta persahabatan sejati (companionate love). Didapatkan pada hubungan yang telah kehilangan passion tetapi masih memiliki perhatian dan intimacy yang dalam serta commitment. Bentuk cinta seperti ini biasanya terjadi antar sahabat yang berlawanan jenis.
6.    Cinta semu (fatuous love), bercirikan adanya masa pacaran dan pernikahan yang sangat bergelora dan meledak-ledak (digambarkan “seperti angin puyuh”), commitment terjadi terutama karena dilandasi oleh passion, tanpa adanya pengaruh intimacy sebagai penyeimbang.
7.    Cinta sempurna (consummate love), adalah bentuk yang paling lengkap dari cinta. Bentuk cinta ini merupakan jenis hubungan yang paling ideal, banyak orang berjuang untuk mendapatkan, tetapi hanya sedikit yang bisa memperolehnya. Sternberg mengingatkan bahwa memelihara dan mempertahankan cinta jenis ini jauh lebih sulit daripada ketika meraihnya. Sternberg menekankan pentingnya menerjemahkan elemen-elemen cinta ke dalam tindakan (action). “Tanpa ekspresi, bahkan cinta yang paling besar pun bisa mati” kata Sternberg.
8.    Non Love, adalah suatu hubungan yang tidak terdapat satupun dari ketiga unsur tersebut. hanya ada interaksi namun tidak ada gairah, komitmen, ataupun rasa suka.
Cinta Kasih
Cinta kasih adalah perasaan kasih sayang antara sesama. Cinta semacam ini adalah perasaan saling menghargai antara satu sama lain, tidak peduli perbedaan-perbedaan yang ada diantara kita. Cinta kasih membutuhkan ketulusan dan pengorbanan dan rasa saling toleransi antara satu dengan yang lainnya.
Cinta kasih bukanlah perasaan menyukai atau rasa ingin memiliki, tetapi cinta kasih adalah rasa saling menghormati dan rasa saling menghargai walaupun kita mempunyai banyak perbedaan antara satu dengan yang lainnya. Jika kita mempunyai rasa cinta kasih terhadap sesama, maka akan timbul perdamaian di dunia maupun di lingkungan sekitar kita.
Cinta kasih dapat dicontohkan dengan adanya sikap toleransi, misalnya kita mempunyai teman yang berbeda agama, maka kita harus menghormati keyakinannya dan menghargai perbedaan itu, agar kita tidak saling memusuhi. Saling bermusuhan tidak akan menciptakan kedamaian dalam diri kita. Kita harus menghormatinya sebagaimana dia menghormati kita. Kita harus menghargainya sebagaimana dia menghargai kita.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

LA Pascal 3


-          Tulis syntax seperti di bawah ini:
uses crt;
label menu;
var i,j,n,pil : integer;
    kota : string;
procedure jalan_kanan;
begin
clrscr;
     for i :=1 to 70 do
     begin
     clrscr;
         gotoxy (i,1);
         write(kota);
         textcolor(7);
         delay(50);
     end;
end;
procedure jalan_kiri;
begin
clrscr;     for i :=70 downto 1 do
     begin
     clrscr;
         gotoxy (i,1);
         write(kota);
    textcolor(7);
         delay(50);
     end;
end;
procedure jalan_bawah;
begin
clrscr;
     for i :=1 to 25 do
     begin
     clrscr;
     gotoxy(70,i);
     write(kota);
     textcolor(7);
     delay(50);
     end;
end;
procedure jalan_atas;
begin
clrscr;
     for i :=25 downto 1 do
     begin
     clrscr;
     gotoxy(70,i);
     write(kota);
    textcolor(7);
     delay(50);
     end;
end;
procedure jalan_putar;
begin
clrscr;
     for i :=1 to 70 do
       begin
       clrscr;
         gotoxy (i,1);
         write(kota);
         textcolor(7);
         delay(50);
       end;
     for i :=1 to 25 do
       begin
       clrscr;
         gotoxy(70,i);
         write(kota);
         textcolor(7);
         delay(50);
       end;
     for i :=70 downto 1 do
       begin
       clrscr;
         gotoxy (i,25);
         write(kota);
         textcolor(7);
         delay(50);
       end;
     for i :=25 downto 1 do
     begin
     clrscr;
     gotoxy(1,i);
     write(kota);
     textcolor(7);
     delay(50);
     end;gotoxy(7,40);
end;
procedure input_kota;
begin
clrscr;
     write(Masukan kota :); readln(kota);
     clrscr;
end;
begin
clrscr;
     menu:
     textbackground(0);
     clrscr;
     gotoxy(1,1); writeln(===MENU===);
     gotoxy(1,2); writeln(1. Animasi jalan Kanan);
     gotoxy(1,3); writeln(2. Animasi jalan Bawah);
     gotoxy(1,4); writeln(3. Animasi jalan Atas);
     gotoxy(1,5); writeln(4. Animasi jalan Kiri);
     gotoxy(1,6); writeln(5. Animasi jalan Putar);
     gotoxy(1,7); writeln(6. Exit');
     gotoxy(1,9); write(Masukan pilihan :);readln(pil);
case pil of
1: begin
  clrscr;
  gotoxy(1,1);input_kota;
  jalan_kanan;
  gotoxy(10,20); write(Animasi selesai);
  readln;
  goto menu;
  end;
2:begin
  clrscr;
  gotoxy(1,1);input_kota;
  jalan_bawah;
  gotoxy(10,20);writeln(Animasi selesai);
  readln;
  goto menu;
  end;
3: begin
  clrscr;
  gotoxy(1,1);input_kota;
  jalan_atas;
  gotoxy(10,20); writeln(Animasi selesa);
  readln;
  goto menu;
  end;
4: begin
  clrscr;
  gotoxy(1,1);input_kota;
  jalan_kiri;
  gotoxy(10,20); writeln('Animasi selesai');
  readln;
  goto menu;
  end;
5: begin
  clrscr;
  gotoxy(1,1);input_kota;
  jalan_putar;
  gotoxy(50,60); writeln('Animasi selesai');
  readln;
  goto menu;
  end;
6: begin
   clrscr;
   gotoxy(10,40);writeln(Bye);
   readln;
   end;
   else
begin
clrscr;
     gotoxy(19,9);write(Pilihan Salah);
readln; goto menu;
end;
end;
clrscr;
readln;
end.
-          Keterangan:
Ø  uses crt; digunakan untuk memanggil fungsi-fungsi salah satunya clrscr; , gotoxy; dan lainnya.
Ø  var a :string; b :Integer; digunakan untuk mendeklarasikan adanya variabel yaitu variable a dengan tipe data string dan variable b dengan tipe data integer.
Setiap variable di dalam program pascal harus dideklarasikan sebelum digunakan. Kata cadangan VAR digunakan sebagai judul di dalam bagian deklarasi variabel dan diikuti oleh satu atau lebih identifier yang dipisahkan koma, diikuti dengan titik dua dan tipe dari datanya serta diakhiri dengan koma.
Ø  Begin - end bagian pernyataan merupakan bagian yang yang terakhir dari suatu blok. Bagianini diawali dengan kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Bagian pernyataan ini menunjukkan suatu tindakan yang akan dikerjakan komputer. Tindakan yang dilakukan oleh program tergantung dari intruksi-intruksi yang diberikan. Pernyataan atau statement merupakan instruksi program. Pernyataan-pernyataan yang akan diberikan untuk dikerjakan komputer ditulis diantara kata cadangan BEGIN dan END. Akhir penulisan END diakhiri dengan titik.
Ø  Deklarasi Label menggunakan statement GOTO untuk meloncat ke suatu statemen tertentu, maka dibutuhkan suatu label pada statemen yang dituju dan label tersebut harus dideklarasikan terlebih dahulu pada bagian deklarasi. Mendeklarasikan label diawali dengan kata cadangan LABEL diikuti oleh kumpulan identifier label dengan dipisahkan oleh koma dan diakhiri dengan titik koma.
Ø  clrscr; digunakan untuk membersihkan layar dari tampilan-tampilan sebelumnya dan meletakkan kursor di posisi ujung kiri atas dari layar, tepatnya berada pada koordinat (1,1).
Ø  Procedur read dan readln. Prosedur READ dan READLN mempunyai aturan tertentu untuk beberapa tipe pengenal variabel. Tiap-tiap data yang dimasukkan harus sesuai dengan tipe variabelnya.  Read digunakan untuk pada modus berkas akan membaca tiap komponen dari file tersebut kesuatu variable dan pada modus text akan membaca satu atau lebih nilai  dan menyimpannya ke dalam suatu atau lebih variable pula. Readln memiliki fungsi yang sama seperti Read hanya pada Readln akan memberikan karakter garis bawah. Pada waktu memasukkan data, maka dapat ditampilkan terlebih dahulu penjelasan tentang data yang akan dimasukkan. Untuk maksud ini sebelum READ dan READLN dapat digunakan prosedur WRITE terlebih dahulu untuk menampilkan penjelasan tentang data yang akan dimasukkan lewat prosedur READ dan READLN.
Ø  Write atau writeln digunakan untuk menampilkan hasil. Perbedaannya adalah prosedur WRITE menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedangkan prosedur WRITELN digunakan untuk menampilkan tampilan per baris yang akan ganti baris untuk tampilan berikutnya. Untuk mengatur format tampilan dengan prosedur WRITE atau WRITELN dapat dipergunakan parameter-parameter tertentu yang menyebutkan panjang dari tampilannya.
Ø  Prosedur GOTOXY digunakan untuk meletakkan cursor di posisi layar yang ditunjukkan oleh nilai XPOS dann YPOS. Nilai XPOS menunjukkan posisi sumbu X. Nilai YPOS menunjukkan posisi sumbu Y.
Ø  Struktur perulangan FOR digunakan untuk mengulang suatu proses yang telah diketahui jumlah perulangannya. Dari segi penulisannya, struktur  for  tampaknya lebih efisien karena susunannya lebih simpel dan sederhana. Untuk perulangan dengan struktur “to” maka kontrol variable akan ditambahi 1 setiap perulangan.

-          Outputnya

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS