samsul huda

Minggu, 10 Juni 2012

CONTOH SURAT UNDANGAN PENGAJIAN

PANITIA PERINGATAN

HARI-HARI BESAR ISLAM

(PHBI)

PERINGATAN MAULID

NABI MUHAMMAD SAW

Undangan

Minggu : 8 juli 2012 M

19 Rabiul awal 1432 H

Kepada Yth.

Assalamualaikum, Wr.Wb.

Salam silahturrahim, semoga rahmat, taufiq serta hidayahNya senantiasa mengiringi segala aktivitas kita, amin.

Selanjutnya dalam rangka memperingati Maulid Nabi Besar Muhammad SAW, kami selaku Panitia Peringatan Hari-Hari Besar Islam Desa Trisnomaju Kecamatan Negerikaton bermaksud akan mengadakan pengajian yang Insyaallah akan diselenggarakan pada:

Hari : Ahad (Minggu)

Tanggal : 12 Februari 2012 M/19 Rabiul Awal 1432 H

Waktu :Pukul 08.00WIB s/d Selesai

Tempat : Mushola Al-Amin Trisnomaju I

Pembicara : Ky. Mahsuni Hasan (Pengasuh Ponpes Miftahul Huda Kalisari – Kalirejo – Lamteng)

Demikian surat undangan ini kami sampaikan, atas kehadiran Bapak/Ibu kami ucapkan Terimakasih.

Wassalamualaikum Wr.Wb.

Panitia Peringatan

Maulid Nabi Muhammad SAW

Ketua Panitia Sekretaris

SUPADI AHMAD SUJARWADI

Mengetahui,

Ketua LP2A Ketua PHBI

HARTONO MIFTAHUL H.

Kepala Desa Trisnomaju

RAHAYU SANTOSO

SUSUNAN ACARA PENGAJIAN AKBAR

DALAM RANGKA PERINGATAN MAULID

NABI MUHAMMAD SAW

PRA ACARA:

- PENTAS KREASI ANAK-ANAK TPA/TPQ

ACARA INTI :

1. PEMBUKAAN

2. PEMBACAAN AYAT-AYAT SUCI AL-QURAN

3. SAMBUTAN-SAMBUTAN

4. CERAMAH AGAMA

5. DO’A

6. PENUTUP

PANITIA PERINGATAN

HARI-HARI BESAR ISLAM

(PHBI)

PERINGATAN MAULID

NABI MUHAMMAD SAW

Undangan

Minggu : 8 juli 2012 M

19 Rabiul awal 1432 H

Kepada Yth.

Assalamualaikum, Wr.Wb.

Salam silahturrahim, semoga rahmat, taufiq serta hidayahNya senantiasa mengiringi segala aktivitas kita, amin.

Hari : Ahad (Minggu)

Tanggal : 12 Februari 2012 M/19 Rabiul Awal 1432 H

Waktu :Pukul 08.00WIB s/d Selesai

Tempat : Mushola Al-Amin Trisnomaju I

Pembicara : Ky. Mahsuni Hasan (Pengasuh Ponpes Miftahul Huda Kalisari – Kalirejo – Lamteng)

Demikian surat undangan ini kami sampaikan, atas kehadiran Bapak/Ibu kami ucapkan Terimakasih.

Wassalamualaikum Wr.Wb.

Panitia Peringatan

Maulid Nabi Muhammad SAW

Ketua Panitia Sekretaris

SUPADI AHMAD SUJARWADI

Mengetahui,

Ketua LP2A Ketua PHBI

HARTONO MIFTAHUL H.

Kepala Desa Trisnomaju

RAHAYU SANTOSO

SUSUNAN ACARA PENGAJIAN AKBAR

DALAM RANGKA PERINGATAN MAULID

NABI MUHAMMAD SAW

PRA ACARA:

- PENTAS KREASI ANAK-ANAK TPA/TPQ

ACARA INTI :

1. PEMBUKAAN

2. PEMBACAAN AYAT-AYAT SUCI AL-QURAN

3. SAMBUTAN-SAMBUTAN

4. CERAMAH AGAMA

5. DO’A

6. PENUTUP

Minggu, 03 Juni 2012

FUNGSI

PROGRAM PROCEDUR;
USES WINCRT;

{******************* PROSEDUR LUAS PERSEGI PANJANG ***********************}

FUNCTION LUAS_PERSEGI_PANJANG(PANJANG,LEBAR:INTEGER):INTEGER ;

BEGIN
WRITELN(' MENGHITUNG LUAS PERSEGI PANJANG');
WRITE(' MASUKKAN PANJANG ');
READLN(PANJANG);
WRITE(' MASUKKAN LEBAR   ');
READLN(LEBAR);
LUAS_PERSEGI_PANJANG :=PANJANG*LEBAR;
END;

{******************* PROSEDUR LUAS LINGKARAN *****************************}

FUNCTION LUAS_LINGKARAN(RADIUS: REAL):REAL;

CONST
PHI= 3.14;

BEGIN
WRITELN(' MENGHITUNG LUAS LINGKARAN ');
WRITE(' MASUKKAN JARI-JARI ');
READLN(RADIUS);
LUAS_LINGKARAN:= 0.5 * PHI * RADIUS * RADIUS;
END;

{******************* PROSEDUR LUAS SEGITIGA *****************************}

FUNCTION LUAS_SEGITIGA( ALAS,TINGGI:INTEGER):REAL;

BEGIN
WRITELN(' MENGHITUNG LUAS SEGITIGA');
WRITE(' MASUKKAN ALAS ');
READLN(ALAS);
WRITE(' MASUKKAN TINGGI ');
READLN(TINGGI);
LUAS_SEGITIGA:= 0.5 * (ALAS * TINGGI);
END;

{******************* PROSEDUR PANGKAT *****************************}

FUNCTION PANGKAT(N: INTEGER):INTEGER;

BEGIN
WRITELN(' MENGHITUNG PANGKAT ');
WRITE(' MASUKKAN ANGKA ');
READLN(N);
PANGKAT:= N * N;
END;

{******************* PROGRAM UTAMA *****************************}

VAR
PILIHAN,X,Y,Z : INTEGER ;

BEGIN
WRITELN ;
WRITELN (' # # # # PILIHAN # # # #');
WRITELN ;
WRITELN(' 1    : PERSEGI PANJANG ');
WRITELN(' 2    : LINGKARAN       ');
WRITELN(' 3    : SEGITIGA        ');
WRITELN(' 4    : PANGKAT       ');

WRITELN(' MASUKKAN PILIHAN         ');

READLN(PILIHAN);
CLRSCR;

CASE PILIHAN OF
     1       : BEGIN
               Z:= LUAS_PERSEGI_PANJANG(X,Y);
               WRITELN(' LUASNYA ADALAH ',Z);
               END;
     2       : WRITELN(LUAS_LINGKARAN(X):6:2);

     3       : WRITELN(LUAS_SEGITIGA(X,Y):6:2);
     4       : WRITELN(PANGKAT(X));

ELSE
   WRITELN('PILIHAN SALAH');

END;
END.

PROCEDUR

PROGRAM PROCEDUR;
USES WINCRT;

{******************* PROSEDUR LUAS PERSEGI PANJANG ***********************}

PROCEDURE LUAS_PERSEGI_PANJANG(PANJANG,LEBAR:INTEGER);

BEGIN
WRITELN(' MENGHITUNG LUAS PERSEGI PANJANG');
WRITE(' MASUKKAN PANJANG ');
READLN(PANJANG);
WRITE(' MASUKKAN LEBAR   ');
READLN(LEBAR);
WRITELN(' LUASNYA ADALAH   ',PANJANG*LEBAR);
END;

{******************* PROSEDUR LUAS LINGKARAN *****************************}

PROCEDURE LUAS_LINGKARAN(RADIUS: REAL);

CONST
PHI= 3.14;

BEGIN
WRITELN(' MENGHITUNG LUAS LINGKARAN ');
WRITE(' MASUKKAN JARI-JARI ');
READLN(RADIUS);
WRITELN (' LUASNYA ADALAH ',0.5 * PHI * RADIUS * RADIUS:6:2);
END;

{******************* PROSEDUR LUAS SEGITIGA *****************************}

PROCEDURE LUAS_SEGITIGA( ALAS,TINGGI:INTEGER);

BEGIN
WRITELN(' MENGHITUNG LUAS SEGITIGA');
WRITE(' MASUKKAN ALAS ');
READLN(ALAS);
WRITE(' MASUKKAN TINGGI ');
READLN(TINGGI);
WRITELN (' LUASNYA ADALAH ',0.5 * (ALAS * TINGGI):6:2 );
END;

{******************* PROGRAM UTAMA *****************************}

VAR
PILIHAN,X,Y : INTEGER ;

BEGIN
WRITELN ;
WRITELN (' # # # # PILIHAN # # # #');
WRITELN ;
WRITELN(' 1    : PERSEGI PANJANG ');
WRITELN(' 2    : LINGKARAN       ');
WRITELN(' 3    : SEGITIGA        ');

WRITELN(' MASUKKAN PILIHAN         ');

READLN(PILIHAN);
CLRSCR;

CASE PILIHAN OF
     1       : LUAS_PERSEGI_PANJANG(X,Y);
     2       : LUAS_LINGKARAN(X);
     3       : LUAS_SEGITIGA(X,Y);
ELSE
   WRITELN('PILIHAN SALAH');

END;
END.