Selasa, 01 Desember 2009

سُوۡرَةُ التّحْریم
بِسۡمِ اللهِ الرَّحۡمٰنِ الرَّحِيۡمِ
يٰۤاَيُّهَا النَّبِىُّ لِمَ تُحَرِّمُ مَاۤ اَحَلَّ اللّٰهُ لَـكَ‌ۚ تَبۡتَغِىۡ مَرۡضَاتَ اَزۡوَاجِكَ‌ؕ وَاللّٰهُ غَفُوۡرٌ رَّحِيۡمٌ‏ ﴿۱﴾ قَدۡ فَرَضَ اللّٰهُ لَـكُمۡ تَحِلَّةَ اَيۡمَانِكُمۡ‌ؕ وَاللّٰهُ مَوۡلٰٮكُمۡ‌ۚ وَهُوَ الۡعَلِيۡمُ الۡحَكِيۡمُ‏ ﴿۲﴾ وَاِذۡ اَسَرَّ النَّبِىُّ اِلٰى بَعۡضِ اَزۡوَاجِهٖ حَدِيۡثًا‌ۚ فَلَمَّا نَـبَّاَتۡ بِهٖ وَاَظۡهَرَهُ اللّٰهُ عَلَيۡهِ عَرَّفَ بَعۡضَهٗ وَاَعۡرَضَ عَنۡۢ بَعۡضٍ‌ۚ فَلَمَّا نَـبَّاَهَا بِهٖ قَالَتۡ مَنۡ اَنۡۢبَاَكَ هٰذَا‌ؕ قَالَ نَـبَّاَنِىَ الۡعَلِيۡمُ الۡخَبِیْرُ‏ ﴿۳﴾ اِنۡ تَتُوۡبَاۤ اِلَى اللّٰهِ فَقَدۡ صَغَتۡ قُلُوۡبُكُمَا‌ۚ وَاِنۡ تَظٰهَرَا عَلَيۡهِ فَاِنَّ اللّٰهَ هُوَ مَوۡلٰٮهُ وَجِبۡرِيۡلُ وَصَالِحُ الۡمُؤۡمِنِيۡنَ‌ۚ وَالۡمَلٰٓٮِٕكَةُ بَعۡدَ ذٰلِكَ ظَهِيۡرٌ‏ ﴿۴﴾ عَسٰى رَبُّهٗۤ اِنۡ طَلَّقَكُنَّ اَنۡ يُّبۡدِلَهٗۤ اَزۡوَاجًا خَيۡرًا مِّنۡكُنَّ مُسۡلِمٰتٍ مُّؤۡمِنٰتٍ قٰنِتٰتٍ تٰٓٮِٕبٰتٍ عٰبِدٰتٍ سٰٓٮِٕحٰتٍ ثَيِّبٰتٍ وَّاَبۡكَارًا‏ ﴿۵﴾ يٰۤاَيُّهَا الَّذِيۡنَ اٰمَنُوۡا قُوۡۤا اَنۡفُسَكُمۡ وَاَهۡلِيۡكُمۡ نَارًا وَّقُوۡدُهَا النَّاسُ وَالۡحِجَارَةُ عَلَيۡهَا مَلٰٓٮِٕكَةٌ غِلَاظٌ شِدَادٌ لَّا يَعۡصُوۡنَ اللّٰهَ مَاۤ اَمَرَهُمۡ وَيَفۡعَلُوۡنَ مَا يُؤۡمَرُوۡنَ‏ ﴿۶﴾ يٰۤاَيُّهَا الَّذِيۡنَ كَفَرُوۡا لَا تَعۡتَذِرُوا الۡيَوۡمَ‌ؕ اِنَّمَا تُجۡزَوۡنَ مَا كُنۡتُمۡ تَعۡمَلُوۡنَ‏ ﴿۷﴾ يٰۤاَيُّهَا الَّذِيۡنَ اٰمَنُوۡا تُوۡبُوۡۤا اِلَى اللّٰهِ تَوۡبَةً نَّصُوۡحًا ؕ عَسٰى رَبُّكُمۡ اَنۡ يُّكَفِّرَ عَنۡكُمۡ سَيِّاٰتِكُمۡ وَيُدۡخِلَـكُمۡ جَنّٰتٍ تَجۡرِىۡ مِنۡ تَحۡتِهَا الۡاَنۡهٰرُ ۙ يَوۡمَ لَا يُخۡزِى اللّٰهُ النَّبِىَّ وَالَّذِيۡنَ اٰمَنُوۡا مَعَهٗ‌ ۚ نُوۡرُهُمۡ يَسۡعٰى بَيۡنَ اَيۡدِيۡهِمۡ وَبِاَيۡمَانِهِمۡ يَقُوۡلُوۡنَ رَبَّنَاۤ اَ تۡمِمۡ لَـنَا نُوۡرَنَا وَاغۡفِرۡ لَـنَا‌ ۚ اِنَّكَ عَلٰى كُلِّ شَىۡءٍ قَدِيۡرٌ‏ ﴿۸﴾ يٰۤاَيُّهَا النَّبِىُّ جَاهِدِ الۡكُفَّارَ وَالۡمُنٰفِقِيۡنَ وَاغۡلُظۡ عَلَيۡهِمۡ‌ؕ وَمَاۡوٰٮهُمۡ جَهَنَّمُ‌ؕ وَبِئۡسَ الۡمَصِيۡرُ‏ ﴿۹﴾ ضَرَبَ اللّٰهُ مَثَلًا لِّـلَّذِيۡنَ كَفَرُوا امۡرَاَتَ نُوۡحٍ وَّ امۡرَاَتَ لُوۡطٍ‌ ؕ كَانَـتَا تَحۡتَ عَبۡدَيۡنِ مِنۡ عِبَادِنَا صَالِحَـيۡنِ فَخَانَتٰهُمَا فَلَمۡ يُغۡنِيَا عَنۡهُمَا مِنَ اللّٰهِ شَيۡــًٔا وَّقِيۡلَ ادۡخُلَا النَّارَ مَعَ الدّٰخِلِيۡنَ‏ ﴿۱۰﴾ وَضَرَبَ اللّٰهُ مَثَلًا لِّـلَّذِيۡنَ اٰمَنُوۡا امۡرَاَتَ فِرۡعَوۡنَ‌ۘ اِذۡ قَالَتۡ رَبِّ ابۡنِ لِىۡ عِنۡدَكَ بَيۡتًا فِى الۡجَـنَّةِ وَنَجِّنِىۡ مِنۡ فِرۡعَوۡنَ وَعَمَلِهٖ وَنَجِّنِىۡ مِنَ الۡقَوۡمِ الظّٰلِمِيۡنَۙ‏ ﴿۱۱﴾ وَمَرۡيَمَ ابۡنَتَ عِمۡرٰنَ الَّتِىۡۤ اَحۡصَنَتۡ فَرۡجَهَا فَنَفَخۡنَا فِيۡهِ مِنۡ رُّوۡحِنَا وَصَدَّقَتۡ بِكَلِمٰتِ رَبِّهَا وَكُتُبِهٖ وَكَانَتۡ مِنَ الۡقٰنِتِيۡنَ‏ ﴿۱۲﴾

MENGHARAMKAN
Dengan menyebut nama Allah Yang Maha Pemurah lagi Maha Penyayang
Hai Nabi, mengapa kamu mengharamkan apa yang Allah menghalalkannya bagimu; kamu mencari kesenangan hati isteri-isterimu? Dan Allah Maha Pengampun lagi Maha Penyayang [1]. (1) Sesungguhnya Allah telah mewajibkan kepada kamu sekalian membebaskan diri dari sumpahmu [2] dan Allah adalah Pelindungmu dan Dia Maha Mengetahui lagi Maha Bijaksana. (2) Dan ingatlah ketika Nabi membicarakan secara rahasia kepada salah seorang dari isteri-isterinya [Hafshah] suatu peristiwa. Maka tatkala [Hafshah] menceritakan peristiwa itu [kepada Aisyah] dan Allah memberitahukan hal itu [semua pembicaraan antara Hafshah dengan Aisyah] kepada Muhammad lalu Muhammad memberitahukan sebagian [yang diberitakan Allah kepadanya] dan menyembunyikan sebagian yang lain [kepada Hafshah]. Maka tatkala [Muhammad] memberitahukan pembicaraan [antara Hafshah dan Aisyah] lalu Hafshah bertanya: "Siapakah yang telah memberitahukan hal ini kepadamu?" Nabi menjawab: "Telah diberitahukan kepadaku oleh Allah Yang Maha Mengetahui lagi Maha Mengenal". (3) Jika kamu berdua bertaubat kepada Allah, maka sesungguhnya hati kamu berdua telah condong [untuk menerima kebaikan]; dan jika kamu berdua bantu-membantu menyusahkan Nabi, maka sesungguhnya Allah adalah Pelindungnya dan [begitu pula] Jibril dan orang-orang mu’min yang baik; dan selain dari itu malaikat-malaikat adalah penolongnya pula. (4) Jika Nabi menceraikan kamu, boleh jadi Tuhannya akan memberi ganti kepadanya dengan isteri-isteri yang lebih baik daripada kamu, yang patuh, yang beriman, yang ta’at, yang bertaubat, yang mengerjakan ibadat, yang berpuasa, yang janda dan yang perawan. (5) Hai orang-orang yang beriman, peliharalah dirimu dan keluargamu dari api neraka yang bahan bakarnya adalah manusia dan batu; penjaganya malaikat-malaikat yang kasar, yang keras, yang tidak mendurhakai Allah terhadap apa yang diperintahkan-Nya kepada mereka dan selalu mengerjakan apa yang diperintahkan. (6) Hai orang-orang kafir, janganlah kamu mengemukakan uzur pada hari ini. Sesungguhnya kamu hanya diberi balasan menurut apa yang kamu kerjakan. (7) Hai orang-orang yang beriman, bertaubatlah kepada Allah dengan taubat yang semurni-murninya, mudah-mudahan Tuhan kamu akan menghapus kesalahan-kesalahanmu dan memasukkan kamu ke dalam surga yang mengalir di bawahnya sungai-sungai, pada hari ketika Allah tidak menghinakan Nabi dan orang-orang yang beriman bersama dengan dia; sedang cahaya mereka memancar di hadapan dan di sebelah kanan mereka, sambil mereka mengatakan: "Ya Tuhan kami, sempurnakanlah bagi kami cahaya kami dan ampunilah kami; sesungguhnya Engkau Maha Kuasa atas segala sesuatu". (8) Hai Nabi, perangilah orang-orang kafir dan orang-orang munafik dan bersikap keraslah terhadap mereka. Tempat mereka adalah neraka Jahannam dan itu adalah seburuk-buruk tempat kembali. (9) Allah membuat isteri Nuh dan isteri Luth perumpamaan bagi orang-orang kafir. Keduanya berada di bawah pengawasan dua orang hamba yang saleh di antara hamba-hamba Kami; lalu kedua isteri itu berkhianat [1] kepada kedua suaminya, maka kedua suaminya itu tiada dapat membantu mereka sedikitpun dari [siksa] Allah; dan dikatakan [kepada keduanya]; "Masuklah ke neraka bersama orang-orang yang masuk [neraka]". (10) Dan Allah membuat isteri Fir’aun perumpamaan bagi orang-orang yang beriman, ketika ia berkata: "Ya Tuhanku, bangunlah untukku sebuah rumah di sisi-Mu [2] dalam surga dan selamatkanlah aku dari Fir’aun dan perbuatannya dan selamatkanlah aku dari kaum yang zalim", (11) dan Maryam puteri ’Imran yang memelihara kehormatannya, maka Kami tiupkan ke dalam rahimnya sebagian dari roh [ciptaan] Kami; dan dia membenarkan kalimat-kalimat Tuhannya dan Kitab-kitab-Nya; dan adalah dia termasuk orang-orang yang ta’at. (12)
Read More..

Kamis, 05 November 2009

Program Cek kelulusan dalam bahasa Pascal


Senin, 27 April 2009
Program Cek kelulusan dalam bahasa Pascal

program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln('Input Data Siswa');
writeln('----------------');
write('Nama : '); readln(nama);
write('Kelas : '); readln(kelas);
write('No Absen : '); readln(no_absen);
write('Nilai Tugas : '); readln(n_tugas);
write('Nilai Ulangan Harian : '); readln(n_u_hari);
write('Nilai Ulangan Umum : '); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln(' Siswa dengan');
writeln('----------------');
writeln('Nama : ',nama);
writeln('Kelas : ',kelas);
writeln('No Absen : ',no_absen);
writeln('Nilai Tugas : ',n_tugas);
writeln('Nilai Ulangan Harian : ',n_u_hari);
writeln('Nilai Ulangan Umum : ',n_u_umum);
writeln('Rata - rata : ',rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:='memuaskan' else if rerata <90 then predikat:='sangat memuaskan' else predikat:='dengan pujian'; writeln('Dinyatakan Lulus dengan ',predikat); end else writeln('Dinyatakan Tidak Lulus'); readln; end.


Label: Contoh coding program dalam turbo pascal Read More..
Foto saya
Purworejo, jawa tengah, Indonesia
Institut Sains & Teknologi AKPRIND Yogyakarta
"Blink 182"