Kamis, 21 November 2013

Turbo Pascal

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Contoh kode
•    Bahasa Pascal tidak bersifat case sensitive.
•    Secara historis, komentar dalam bahasa pascal diidentifikasikan sebagai { seperti ini }, atau (* seperti ini *), dan bisa terdiri atas beberapa baris. Versi lanjutan Borland Pascal juga mendukung model komentar seperti yang terdapat pada C++. // seperti ini , yang berlaku pada satu baris.
•    Sintaksis case yang lebih fleksibel daripada Pascal standar.
•    Himpunan hanya bisa memiliki hingga 28 (256) anggota.
•    Standar, string dengan panjang yang tetap didukung, namun terdapat pula tipe data String yang lebih fleksibel.

Berikut ini adalah contoh klasik program Halo dunia dengan Turbo Pascal:
begin
  WriteLn('Halo dunia');
end.

Dan berikut ini contoh program yang meminta masukan nama dan menuliskannya kembali di layar sebanyak seratus kali:
program TulisNama;

var
  ANama: String; { Deklarasi variabel Name sebagai string }
  AUlang: integer; { variabel yang digunakan untuk perulangan }
begin
  Write('Masukkan nama anda: ');
  Readln(ANama); { Readln akan membaca masukan yang dientrikan oleh pengguna }
  for AUlang := 1 to 100 do
    WriteLn('Halo ', ANama)
end.


Minggu, 17 November 2013

pascal

Program Mencari_Bilangan_Prima_Dengan_Array;
Uses winCrt;
Var
   Prima : Array[1..100] of integer;
   i,j : Integer;
   bil : Integer;
Begin
     ClrScr;
     For i := 2 to 100 do
     begin
     Prima [i]:=i;
     For j:= 2 to i-1 Do
     Begin
     bil := (i mod j); {*i dibagi j dicek apakah 0*}
     if bil = 0 then Prima [i]:=0; {*jika habis dibagi,berarti bukan prima*}
     End;
     if Prima[i] <> 0 Then Write(Prima[i],' ');{cetak array yang prima*}
     End;
     Readln;
     End.

Kamis, 07 November 2013

Air Memiliki Kecerdasan



Air adalah unsur yang tidak dapat dipisahkan dari kehidupan manusia. air merupakan substansi kimia yang memiliki rumus H2O, 1 molekul air memiliki 2 atom hidrogen dan 1 atom oksigen. Akhir-akhir ini ilmuwan dari Jepang, Masaru Emoto sempat menggegerkan dunia lewat penemuannya tentang molekul air, yaitu kemampuan air dalam merespon dan merekam informasi disekitarnya. Air akan tampak "Bahagia" jika di informasikan hal-hal positif, strukturnya akan membentuk kristal-kristal yang sangat indah, dan air akan tampak "Sedih" jika di informasikan hal-hal negatif seperti cacian,kata-kata kasar,musik keras dan sebagainya. struktur molekulnya menjadi rusak dan tak beraturan. Kesimpulannya "Air memiliki Kecerdasan"

Senin, 04 November 2013

Fakta tentang Albert Einstein



1. Einstein menolak jabatan Perdana Menteri Israel
Pada tanggal 9 November 1952, setelah kematian presiden pertama Israel Chaim Weizman, Einstein ditawari untuk menduduki jabatan Perdana Mentri oleh Pemerintah Israel, tetapi dia menolak tawaran tersebut karena ia merasa terlalu tua dan tidak memiliki cukup pengalaman untuk pekerjaan ini, alasan Einstein ditawari menjadi Perdana Mentri karena ia orang Yahudi yang sangat populer dan dihormati di kalangan orang-orang Yahudi.

2. Einstein tidak pernah memakai kaus kaki
Hal ini sangat aneh dan menarik tapi itu adalah 100% benar, Einstein tidak pernah memakai kaus kaki sepanjang hidupnya dengan alasan bahwa kaus kaki suatu saat akan berlubang, lalu mengapa harus memakai kaus kaki dan sepatu bersamaan kalau keduanya akan baik baik saja, pemikiran yang aneh.

3. Einstein dan penemuan kulkasnya
Sebagian besar orang berpikir bahwa Einstein hanya seorang ilmuwan teoritis, tetapi tidak banyak orang tahu bahwa ia memiliki pegangan yang sangat baik pada ilmu pengetahuan praktis. Menurut penelitian, Albert Einstein menemukan kulkas setelah menulis teori terkenal tentang Relativitas , tetapi sayangnya penemuannya tidak pernah masuk ke produksi.

4. Einstein memiliki anak di luar pernikahan
Menurut penelitian terbaru, Einstein memiliki hubungan intim dengan kekasihnya, Mileva Maric pada akhir 1890. Sebelum melakukan perkawinan, Milea Maric mendapati dirinya hamil dan mereka memutuskan untuk menyembunyikan anaknya, Einstein menikah satu tahun kemudian setelah ia mendapat pekerjaan.

5. Einstein gagal ujian sekolah
Sudah menjadi pengertian umum bahwa orang yang gagal dalam ujian tes sekolah itu adalah siswa bodoh, tetapi ini tidak berlaku untuk seorang Albert Einstein. ketika ia tidak lulus ujian masuk sekolah karena gagal dalam pelajaran bahasa dan budaya, dia malah menjelma jadi seorang ilmuwan yang luar biasa dan menjadi salah satu tokoh dunia yang paling terkenal.


Lirik Lagu Uje "I'tiraf"

Ilahi lastu lil firdausi ahlaan
Wa'ala aqwa 'alannaril jahiimi
Fahabli taubatan waghfir dzunubi
Fainnaka ghafirudz dzambil 'adziimi





Dzunubi mitslu 'adadirrimaali
Fahabli taubatan ya dzal jalaali
Wa 'umni haqisun fi kulli yaumin
Wa dzambizaidun kaifa ihtimaalii

Illahi 'abdukal 'aasi ataaka
Muqirrambiidz dzunuubi waqadda'aaka
Faintaghfir fa anta lidzaka ahlu
Wa intathrud famannarjuu siwaaka 


Lirik Lagu Uje "Shalawat Cinta"

Shollu Ala Muhammad, Shollu Alaihi Wasallim
Shollu Ala Muhammad, Shollu Alaihi Wasallim

*courtesy of Li
rikLaguIndonesia.Net
Yaa Nabi salaam alaika, Yaa Rasul salaam alaika
Yaa Nabi salaam alaika, Sholawatullah alaika
Berdiri bersama memuji yang mulia
Menyebut namanya tanda rasa cinta
Salam rinduku kasih, salam rinduku Nabi
Salam rinduku kasih, salam rinduku Nabi
Yaa Nabi salaam alaika, Yaa Rasul salaam alaika
Yaa Nabi salaam alaika, Sholawatullah alaika
Indah wajahnya bagaikan purnama
Siapa melihatnya pasti jatuh cinta
Salam rinduku kasih, salam rinduku Nabi
Salam rinduku kasih, salam rinduku Nabi
Muhammad itulah namanya, mulia dengan akhlaknya
Muhammad dia nabi kita, bershalawatlah kepadanya
Yaa Nabi salaam alaika, Yaa Rasul salaam alaika
Yaa Nabi salaam alaika, Sholawatullah alaika
Indah wajahnya bagaikan purnama
Siapa melihatnya pasti jatuh cinta
Salam rinduku kasih, salam rinduku Nabi
Salam rinduku kasih, salam rinduku Nabi
Yaa Nabi salaam alaika, Yaa Rasul salaam alaika
Yaa Nabi salaam alaika, Sholawatullah alaika
Sholawatullah alaika, Sholawatullah alaika

Lirik Lagu Uje "Bidadari Surga"

Setiap manusia punya rasa cinta
Yang mesti dijaga kesuciaanya
Namun ada kala insan tak berdaya
Saat dusta mampir bertahta
Kuinginkan dia

Yang punya setia
Yang mampu menjaga kemurniaanya
Saat ku tak ada
Ku jauh darinya
Amanah pun jadi penjaganya

Hatimu tempat berlindungku
Dari kejahatan syahwatku
Tuhanku merestui itu
Dijadikan engkau istriku

Engkaulah... Bidadari Surgaku

Tiada yang memahami
Segala kekuranganku
Kecuali kamu, bidadariku

Maafkanlah aku
Dengan kebodohanku
Yang tak bisa membimbing dirimu

Hatimu tempat berlindungku
Dari kejahatan syahwatku
Tuhanku merestui itu
Dijadikan engkau istriku

Hatimu tempat berlindungku
Dari kejahatan syahwatku
Tuhanku merestui itu
Dijadikan engkau istriku

Engkaulah... Bidadari Surgaku