SYNTAK PROGRAM DARI TURBO PASCAL

malem gan.. nie anne buat program bersama 3 temen anne :D
cobain dh gan.. kritik dan saran nya anne tunggu.. nie prigram di turbo pascal..eittz... tpi comment & like dlu ni program.a :) nie hasil buatan 2 lho gan,, biasalah tugas dari dosen awalnya :) okeh dh d tunggu ya kritik dan saran yg membangun.a..

program wedding ;
uses wincrt;
var a: integer;
    b,y,ket,h,i,k : string;
    c,d,e,f,tot,z,p : longint;
procedure mewah;
begin
writeln('                               Paket Wedding Magazine');
writeln('                               harga     : Rp.20.000.000 ');
writeln('                               pasilitas :');
writeln('                                         Video Shooting live');
writeln('                                         Camera');
writeln('                                         Akrilik');
writeln('                                         X banner');
writeln('                                         Gold Album');
end;
procedure sedang;
begin
writeln('                               Paket Wedding Taxco');
writeln('                               harga     : Rp.15.000.000 ');
writeln('                               pasilitas :');
writeln('                                          Video Shooting live');
writeln('                                          Camera');
writeln('                                          Akrilik');
writeln('                                          X banner');
writeln('                                          Silver Album');
end;
procedure sederhana;
begin
writeln('                               Paket Wedding Suntour');
writeln('                               harga     : Rp.10.000.000 ');
writeln('                               pasilitas :');
writeln('                                          Video Shooting not live');
writeln('                                          Camera');
writeln('                                          X banner');
writeln('                                          Silver Album');
end;
procedure dangdut;
begin
writeln('                             Paket hiburan Dangdut Live');
writeln('                             harga : Rp.5.000.000 ');
end;
procedure marawis;
begin
writeln('                             Paket hiburan Marawis');
writeln('                             harga : Rp.3.000.000 ');
end;
procedure electon;
begin
writeln('                             Paket hiburan electon');
writeln('                             harga : Rp.2.000.0000');
end;
begin
repeat
clrscr;
writeln('=======================================================================');
writeln('               *****     STUDIO PHOTO MALISHNA     *****               ');
writeln('=======================================================================');
writeln;
writeln('       "Enjoy and Elegant your wedding party with MALISHNA"');
writeln;
write('Nama Pelanggan                : '); readln (b);
writeln;
writeln('MALISHNA screen : ');
writeln('                              1. Paket Magazine ');
writeln('                              2. Paket Taxco');            
writeln('                              3. Paket Suntour');
write('pilih no paket yang anda inginkan (1/2/3) ! '); readln (a);
begin
if a=1 then
mewah
Else if a=2 then
sedang
Else if a=3 then
sederhana
Else
write ('pilih 1,2 atau 3 !');
writeln;
end;
writeln('MALISHNA entertaiment : ');
writeln('                             A. Dangdut Live ');
writeln('                             B. Marawis');            
writeln('                             C. Electon');
write('pilih hiburan yang anda inginkan (A/B/C) ! '); readln (h);
begin
if h='A' then
dangdut
Else if h='B' then
marawis
Else if h='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (i);
begin
if i='A' then
dangdut
Else if i='B' then
marawis
Else if i='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (k);
begin
if k='A' then
dangdut
Else if k='B' then
marawis
Else if k='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
writeln('=======================================================================');
writeln('               *****     STUDIO PHOTO MALISHNA     *****               ');
writeln('=======================================================================');
writeln('Nama Pelanggan                            : ',b);
write('Masukan Harga Paket Wedding               : '); readln (c);
write('Masukan Harga Paket Entertaint            : '); readln (f);
write('Masukan Harga Paket Entertaint tambahan 1 : '); readln (z);
write('Masukan Harga Paket Entertaint tambahan 2 : '); readln (p);
tot:=c+f+z+p;
writeln('Total yang harus di bayar                 : ',tot);
write('Uang Pembayaran                           : '); readln (d);
e :=d-tot;
writeln('Uang Kembalian                            : ',e);
write('mau mengulangi lagi (Y/N)?');readln(y);
until(y)<>'Y';
end.

SINTAK OPERASI HITUNG SEDERHANA DALAM TURBO PASCAL.

Assalamualaikum wr wb !

Hai gan ! apakabar ni ? dah lama banget ya anne gak nulis di blog. Nah kali ini anne mau share ni  ma agan semua hasil dari kuliah anne di jurusan Teknik Informatika yang udah mau menginjak pertengahan semester satu. Mata kuliahnya Algoritma, di sini anne dkk dah belajar Turbo Pascal. Dan yang akan anne share kali ini yaitu sintak pemrograman operasi hitung sederhana. Langsung aja ya kita bahas ! yuk ah GEBOY ^__^

SINTAK OPERASI HITUNG SEDERHANA DALAM TURBO PASCAL.

Sebelum masuk ke sintak operasi hitung, anda harus tau dulu symbol-symbol operasi hitung yang akan kita gunakan dalam sintak Turbo Pascal.

Untuk penjumlahan (+), pengurangan (-), pembagian (/), perkalian (*), hasil sisa bagi (mod), & Div (div).

Contoh sintak operasi hitung.

program  keliling_persegi_panjang;

uses wincrt;

var a, b, c: integer;

begin

writeln('mencari keliling persegi panjang');

write('masukan panjang = '); readln(a);

write('masukan lebar = '); readln (b);

c := 2*a+b;

writeln ('hasilnya adalah = ',c);

end.

 

Keterangan :

program, uses, begin & end adalah sintak yang memang harus di masukan untuk memulai dan / atau mengakhiri program kita.

Write, digunakan untuk tulisan yg ingin kita tuliskan di program kita nanti, kita bisa tulis sesuka kita selama itu masih di dalam tanda petik.

read, untuk pemanggilan variable yang akan kita tempatkan / di baca oleh write di sebelumnya.

ln, untuk line / garis baru, sehingga tidak sejajar

var, variable a dan b kita gunakan untuk nilai yang akan kita hitung, sedangkan c adalah proses perhitungan. Variable bisa sesuai kebutuhan.

Contoh di atas sebuah contoh operasi hitung keliling persegi. Kita bisa buat operasi hitung lainnya. Caranya sama, hanya program perhitungannya kalian bisa ubah sesuai yang kalian butuhkan.

***sekian

Nah gan ni anne bisa share segitu, semoga bermanfaat buat agan semua & buat agan-agan yang lebih mahir duluan dalam turbo pascal kritik dan saran yang membangun anne tunggu, join + comment ni di blog anne. Mhon maaf bila masih ada kesalahan. Maklumlah anne juga masih mahasiswi semester satu ^_^ …

makasih
wassalam, elis supiati sukses !

Mampukah Wahai Adam yang akan bertahta di hatiku sebagai Calon Imamku.

 Jika engkau mengharapkan harta menggunung tinggi, aku pasti akan mengecewakanmu..
Jika engkau mengharapkan wajah secantik puteri, aku pasti akan mengecewakanmu..
Jika engkau mengharapkan layanan sebaik khadam, aku pasti akan mengecewakanmu..
Jika engkau mengharapkan teman yang setia di sisi, aku pasti akan mengecewakanmu..


Wahai Adam yang akan bertahta di hatiku sebagai Calon Imamku.
Sebelum benar-benar engkau hadir, inginku bertanya sesuatu padamu..


Adakah engkau sanggup menerimaku sebagai isteri jika tidur lena mu ku ganggu untuk kita bersama-sama munajat padaNya..
Adakah engkau sanggup jika aku tidak sudi engkau menjadi imamku untuk solat subuhku kerana ku ingin dirimu solat subuh berjemaah di masjid..
Adakah engkau sanggup jika selepas pulangnya engkau dari solat berjemaah aku tidak merelakan engkau tidur semula..malahan aku ingin engkau menghidupkan majlis taklim (saling berkongsi pengisian) antara aku & dirimu..
Adakah engkau sanggup jika setiap pagi aku ingin kau membaca mathurat bersama ku..
Adakah engkau sanggup jika selepas kau pulang dari bekerja, aku masih lagi dengan tugasku di luar..


Adakah engkau sanggup jika ketika engkau di rumah,aku sering meminta izin untuk keluar dengan alasan berjumpa rakan-rakan sedangkan pada hakikatnya aku ingin meneruskan medan perjuanganku..
Adakah engkau sanggup jika setiap isnin & khamis kau menemaniku berpuasa sunat..
Adakah engkau sanggup jika bersama-samaku menghidupkan sunnah Rasulullah SAW dalam kehidupan kita..
Adakah engkau sanggup jika aku menasihatimu & membawamu lebih mendekatiNya..
Adakah engkau sanggup jika akan ada malam tertentu rumah kita akan dipenuhi orang untuk majlis ilmu..
Adakah engkau sanggup jika tetamu kita sering bertamu sehingga tidur di rumah kita kerana ia mungkin akan mengganggumu..


Adakah engkau sanggup jika hujung minggu kita dipenuhi dengan menziarahi orang tua kita..


Adakah engkau sanggup jika aku meminta dirimu menceritakan kisah sirah Rasulullah SAW & perjuangan para sahabat kepada anak-anak kita sebelum mereka tidur..


Adakah engkau sanggup jika aku tidak merelakan engkau memberi pelbagai kemewahan pada anak-anak kita kerana aku ingin mereka menjadi hambaNya yang bersyukur selalu..


Adakah engkau sanggup jika tanganmu sentiasa ku pegang walau ke mana arah tuju ketika kita berjalan bersama..


Adakah engkau sanggup jika keluar berjalan denganku yang bertudung labuh,berbaju longgar, dan seringkas yang mungkin di hadapan hambaNya yang lain..


Adakah engkau sanggup jika masakanku tidak sesedap yang kau harapkan..
Adakah engkau sanggup jika layananku kekok padamu..
Adakah engkau sanggup jika ujian Allah itu datang dan ku pinta engkau menyunting bunga yang lain untuk dirimu..
Adakah engkau sanggup jika segala ini benar-benar berlaku???


Wahai Adam yang akan bertahta di hatiku sebagai Calon Imamku.
Aku tahu bagimu pernikahan itu menghalalkan segalanya…tapi lain dari persepsiku…


Sememangnya benar pernikahan itu menghalalkan segala apa yang terhijab antara aku dan dirimu…tapi aku ingin kau juga mengetahui & mengerti bahawa pernikahan jua adalah jalanku untuk ke syurga-Nya..pernikahan jua adalah jalan untuk kita melahirkan mujahid mujahidah yang soleh solehah..sememangnya aku akan berusaha semampuku untuk membahagiakanmu kerana walau apa yang berlaku, kau tetap suamiku tika itu..namun telah ku nekad dalam diriku untuk terus memperjuangkan segala apa yang ku perjuangkan kini…aku memberitahu segala ini terlebih awal kerana aku tidak ingin engkau menyesali jika perkara ini benar-benar terjadi..kerana itu telah dari awal ku sediakan diriku untuk membiarkan engkau mencari yang terbaik untuk dirimu..kerana cukuplah Allah bagiku..mungkin bersamaku akan membuatkan dirimu merasa bosan & tiada kehidupan tapi sedarlah wahai bakal suamiku bahawa cara hidup Rasulullah SAW itulah yang terbaik..dalam rumah tangga kita pasti ada senda guraunya..Cuma aku mungkin akan lebih sibuk dengan gerak kerja ku di jalan-Nya..kerana telah ku pilih jalan-Nya..hingga akhir hayatku akan ku terus di jalan-Nya..dan ku bermohon semoga hembusan nafasku yang terakhir jua adalah di jalan-Nya..terimalah diriku seadanya


Dunia ini sudah tidak lama lagi..jika ada jodoh di dunia, kita akan bertemu atas ikatan pernikahan yang sah atas namaNya..tidak ku mengharapkan engkau seorang yang terlalu mulia..cukuplah bagiku jika engkau sedar hakikat dirimu iaitu hamba Allah..kerana jika engkau sedar, pastinya engkau akan menjalankan tanggungjawabmu sebagai hambaNya..jika tiada jodoh kita di dunia, semoga kan bertemu di syurga..insyaAllah..aku ingin kau tahu bahawa cinta Ilahi tetap yang utama di hatiku..dan aku mencintaimu kerana Dia~


Sekian warkah khas untukmu wahai Adam yang akan bertahta di hatiku sebagai Calon Imamku.

MULAI MENGERTI WANITA (^_^)

  jika seorang wanita berbicara denganmu sambil menatapmu sampai ke dalam matamu, secara tidak langsung dia ingin mengatakan kepadamu bahwa dia ingin memasuki kehidupanmu dan ada di hariharimu

jika seorang wanita tidak bosanbosannya mengingatkanmu untuk makan, mengingatkanmu untuk halhal yang menurutmu sepele dia tidak sedang berusaha menjadi ibu yang mengat
urmu, dia hanya ingin memberimu perhatian

jika seorang wanita mulai jengkel saat kamu terlalu asik dengan hobi atau dengan temantemanmu dia tidak sedang menjadi seorang yang egois, dia hanya ingin sedikit perhatian darimu

jika seorang wanita mulai marahmarah tanpa sebab dan berbicara tidak karuan dia sedang menginginkan sesuatu tetapi tidak tahu bagaimana cara mengatakannya kepadamu

jika seorang wanita mulai berteman dekat dengan temantemanmu dia tidak sedang berniat ingin tahu dan mencampuri urusanmu. dia hanya ingin mengenal lingkunganmu dan ingin merasa diterima oleh temantemanmu

jika seorang wanita mulai dekat dengan pria lain dan dia secara terangterangan memberitahumu dia tidak sepenuhnya ingin meninggalkan atau melupakanmu. dia hanya sedang mencari sosok dirimu dalam diri orang lain. dan sebenarnya dia hanya ingin kamu merasa sedikit cemburu

jika seorang wanita ingin kamu melakukan sesuatu untuknya dan menyuruhmu berjanji untuknya dia ingin melihat kesungguhanmu untuk benarbenar menepati janjimu, bukan orang lain, bahkan bila orang lain bisa memberikan yang lebih darimu

jika seorang wanita menertawakan kesalahan atau kekonyolanmu, dia tidak sedang menertawakan kebodohanmu, dia hanya mencoba mengenal dan melihat sisi lain dari dirimu, dan mencoba menerima kekuranganmu

jika seorang wanita melihat seseorang yang disayanginya sedang berjuang meraih sesuatu dia sebenarnya tidak akan hanya diam. dia mengkhawatirkanmu keadaanmu. dia berusaha menjadi penyemangatmu, membangunkanmu terlalu pagi, dan tidak pernah berhenti berdoa untuk keberhasilanmu

jika wanita sedang menghadapi masalah dan yang bisa dia lakukan hanyalah diam yang dia butuhkan sebenarnya bukan katakata penghibur darimu. yang benarbenar dia inginkan hanyalah kamu ada bersamanya, dan menemaninya di sampingnya

materi agama kelas XII semester 1 untuk SMK

Materi agama kelas XII semester 1 untuk SMK

PERILAKU TERPUJI

Standar Kompetensi:

Membiasakan perilaku terpuji

Kompetensi Dasar:

1. Menjelaskan pengertian adil, ridha dan amal saleh
2. Menampilkan contoh perilaku adil, ridha dan amal saleh
3. Membiasakan perilaku adil, ridha dan amal saleh dalam   kehidupan sehari-hari

Tadarus

ِنَّ اللَّهَ يَأْمُرُ بِالْعَدْلِ وَالإِحْسَانِ وَإِيتَاءِ ذِي الْقُرْبَى وَيَنْهَى عَنِ الْفَحْشَاءِ وَالْمُنْكَرِ وَالْبَغْيِ يَعِظُكُمْ لَعَلَّكُمْ تَذَكَّرُونَ (90) وَأَوْفُوا بِعَهْدِ اللَّهِ إِذَا عَاهَدْتُمْ وَلاَ تَنْقُضُوا الأَيْمَانَ بَعْدَ تَوْكِيدِهَا اللَّهَ عَلَيْكُمْ كَفِيلاً إِنَّ اللَّهَ يَعْلَمُ مَا وَقَدْ جَعَلْتُمُ تَفْعَلُونَ (91) [النحل/90 - 91]

أَلاَّ تَزِرُ وَازِرَةٌ وِزْرَ أُخْرَى (38) وَأَنْ لَيْسَ لِلإِنْسَانِ إِلاَّ مَا سَعَى (39) وَأَنَّ سَعْيَهُ سَوْفَ يُرَى (40) ثُمَّ يُجْزَاهُ الْجَزَاءَ الأَوْفَى (41) وَأَنَّ إِلَى رَبِّكَ الْمُنْتَهَى (42) النجم/38-42] [

وَلَوْ أَنَّهُمْ رَضُوا مَا آَتَاهُمُ اللَّهُ وَرَسُولُهُ وَقَالُوا حَسْبُنَا اللَّهُ سَيُؤْتِينَا اللَّهُ مِنْ فَضْلِهِ وَرَسُولُهُ إِنَّا إِلَى اللَّهِ رَاغِبُونَ [التوبة/59]

A. Adil

Pengertian Adil

1. Secara Bahasa

            Adil Berasal dari bahasa arab yang berarti proporsional, tidak berat sebelah, jujur

2. Secara Istilah

Terdapat beberapa makna antara lain:

v    Meletakan sesuatu pada tempatnya

v  Menerima hak tanpa lebih dan memberikan hak orang lain tanpa kurang

v  Memberikan hak setiap yang berhak secara lengkap, tidak melebihi dan mengurangi

Contoh Bersikap Adil

1. Siswa/siswi dianggap berlaku adil terhadap dirinya apabila sikap dan perilakunya baik dan bermanfaat buat dirinya.

            Contoh:

ü  Tekun dalam menunutut ilmu

ü  Membiasakan diri dengan akhlak terpuji

ü  Disiplin dalam beribadah

ü  Giat dalam beramal saleh

Contoh Bersikap Adil

2. Anak dianggap berlaku adil terhadap orangtuanya jika memenuhi hak kedua orangtuanya dengan sebaik-baiknya.

            Contoh:

ü  Bertutur kata sopan

ü  Bersikap hormat dan cinta kasih

ü  Meringankan beban orang tua

ü  Mendo’akan mereka agar mendapat ampunan dari Allah swt

B. Ridha

Pengertian Ridha

1. Secara Bahasa

Ridha berasal dari bahas arab. Memiliki arti rela, menerima dengan suci hati

2. Secara Istilah

Ridha berarti menerima dengan senang hati apa yang diberikan oleh Allah swt baik berupa peraturan, hukum, atau pun qadha

Ridha terhadap hukum Allah swt

Melakukan semua perintah dengan rasa senang tidak merasa terpaksa. Begitu pula dalam menjauhi larangnnya

Ridha

Ridha terhadap Qadha dan Qadar Allah swt

Menerima qadha dan qadar Allah swt yang berupa kenikmatan dengan rasa syukur . Yang berupa kemalangan dengan sabar dan tawakal       

 C. Amal Saleh

Pengertian Amal Saleh

1. Secara Bahasa

Amal saleh berasal dari gabungan dua kata amal dan saleh. Amal berarti perbuatan dan saleh berarti baik. Jadi amal saleh berarti perbuatan baik

2. Secara Istilah

Setiap amal perbuatan yang yang mengajak dan membawa ketaatan kepada Allah swt. Baik perbuatan lahir maupun batin

Syarat sahnya Amal Saleh

1. Amal saleh dikerjakan dengan niat ikhlas karena Allah swt semata

 Rasulullah shallallâhu alaihi wasallam bersabda:

“Allah tidak akan menerima amal melainkan yang didasari ikhlas karena Allah dan untuk mencari keridhoan-Nya (H.R. Ibnu Majah)

2. Amal saleh hendaknya dilakukan secara sah sesuai dengan petunjuk  al Qur’an dan al Hadits

             Rasulullah shallallâhu alaihi wasallam bersabda:

            “Barang siapa yang mengerjakan suatu amal perbuatan tanpa ada dasarnya dalam perintah agama maka ditolak” (H.R. Muslim)

3. Dilakukan dengan mengetahui ilmunya

             Rasulullah shallallâhu alaihi wasallam bersabda:

            “Apabila suatu urusan diserahkan buan kepada ahlinya (tidak mengetahui ilmunya) maka tunggulah kehancurannya (H.R. Bukhori)