Postingan

Menampilkan postingan dari Maret, 2018

MY FATHER, THE BIGGEST ROLE IN MY LIFE, MY INSPIRATIONAL FIGURE

My father If anyone asks who is my inspirational figure in life, surely I will answer my parents, especially my father. The fact that they have been there to watch me grow and develop into the person I am today, I would definitely have to say that my own flesh and blood, the two people that put me on this earth, the ones that are always there for me, the ones I call my parents are the two amazing people that inspire me. They’ve taught me everything I know about life. They are the perfect examples of my inspiration. My father has the biggest role in my life. He has given us everything and showed me and my brother also my sister how to be responsible and discipline. he is a very strong man. Sometimes with a third of the night, I heard my father was crying in his prayers. he is also an authoritative person. for example, when we ask for money for school purposes, and he doesn't have any money, he will just say. wait for a while, I will try to give it to you tomorrow. he likes

PROGRAM PASCAL UNTUK MENGHITUNG PEMBAYARAN ZAKAT

Zakat hanya dikenakan kepada orang yang mampu . Misalnya , untuk saat ini , batas minimal ( nishab ) harta yang terkena zakat adalah Rp 2.500.000,-. Artinya seseorang yang hartanya kurang dari nilai tersebut tidak dikenai / diwajibkan zakat.      Besar zakat yang dibayarkan   adalah 2,5% dari harta yang dimiliki .      Buatlah program yang membaca banyak harta yang dimiliki       seseorang dan menghitung zakat yang harus dikeluarkan dan       menampilkannya di layar , dan jika orang tersebut tidak wajib zakat,       tuliskan pesan ” Harta Anda belum mencapai batas minimal       ( nishab )” di layar !  JAWAB: program PembayaranZakat; uses crt; var  harta:real;  zakat:real; begin clrscr; writeln('SELAMAT DATANG DI PROGRAM PEMBAYARAN ZAKAT'); write('masukkan banyaknya harta anda: '); readln(harta); zakat:=(0.025*harta); if (harta>=2500000)then  write ('jumlah zakat yang harus dibaya

PROGRAM PASCAL MENGHITUNG DENDA PERPUSTAKAAN

PROGRAM PASCAL MENGHITUNG DENDA PERPUSTAKAAN Rancangan program untuk mengetahui denda jika   perpustakaan sekolah menerapkan aturan peminjaman koleksi perpustakaan sebagai berikut : a. Koleksi yang bisa dipinjam hanyalah koleksi berupa buku-buku teks ; b. Jika koleksi yang dipinjam tergolong ke dalam kelompok langka ( jumlah koleksi ≤ 3 eksemplar ), maka lama peminjaman dibatasi maksimal 3 hari . Keterlambatan pengembalian untuk 4 hari pertama dikenakan denda Rp 1.000 per hari, 3 hari berikutnya dikenakan Rp . 2.500 per hari dan hari-hari berikutnya dikenakan denda Rp 5.000 per hari ; c. Jika koleksi yang dipinjam tidak tergolong ke dalam kelompok langka , maka lama peminjaman dibatasi maksimal 7 hari . Keterlambatan pengembalian dikenakan denda Rp . 500 per hari ; d. Jumlah koleksi yang bisa dipinjam untuk setiap peminjaman dibatasi maksimal 3 judul buku . program DendaPerpustakaan; uses crt; var         bl,btl,