Senin, November 09, 2009

MUTIARA HADIST




”JADILAH PECINTA ILMU YANG MEREGUK PUSAKA DUNIA AKHIRAT”

1. "Apabila engkau melewati taman-taman surga, minumlah hingga puas.
Para shahabat bertanya, `Ya Rasulullah, apa yang dimaksud dengan
taman-taman surga itu?' Rasulullah menjawab, `Majelis-majelis
ta'lim'." (H.R. Ath-Thabrani)
2. "Sedikit ilmu (fiqih) lebih baik daripada banyak ibadah (sunnah).
Cukup bagi seseorang ilmunya bila dia mampu beribadah kepada Allah
(dengan baik); dan cukup bodoh bila seseorang merasa bangga (ujub)
dengan pendapatnya sendiri". (H.R. Ath-Thabrani)
3. "Orang yang paling pedih siksaannya pada hari kiamat ialah
seseorang `alim yang Allah menjadikan ilmunya tidak bermanfaat". (H.R.
Al Baihaqi)




MENGGAMBAR KUPU-KUPU (PROGRAM PASCAL)


PROGRAM MENGGAMBAR;                                           
USES CRT;                                                                    
VAR A,B,C,D,E,F,G,H,I,J:INTEGER;                                             
BEGIN                                                                        
CLRSCR;                                                                     
WRITELN('TUGAS 1':18);                                                       
WRITELN('MENGGAMBAR KUPU-KUPU DENGAN PASCAL');                               
TEXTCOLOR(YELLOW);                                                           
GOTOXY(5,4);                                                                 
FOR I:=1 TO 2 DO                                                              
    WRITE('_');                                                              
GOTOXY(16,4);                                                                
FOR J:=1 TO 2 DO                                                              
    WRITE('_');                                                              
GOTOXY(3,5);                                                                 
WRITE('.',':');                                                              
FOR A:=1 TO 3 DO                                                             
    WRITE('=');                                                              
WRITE(':','.','\','/':2);                                                    
WRITE('.',':');                                                               
FOR B:=1 TO 3 DO                                                             
    WRITE('=');                                                              
WRITE(':','.');                                                               
GOTOXY(3,6);                                                                 
WRITE('"',':');                                                              
FOR C:=1 TO 4 DO                                                              
    WRITE('=');                                                              
WRITE(':','.','o','.',':');                                                  
FOR D:=1 TO 4 DO                                                             
    WRITE('=');                                                              
WRITE(':','"');                                                              
GOTOXY(5,7);                                                                 
WRITE(':');                                                                   
FOR E:=1 TO 5 DO                                                             
    WRITE('=');                                                             
WRITE('Y');                                                                  
FOR F:=1 TO 5 DO                                                             
    WRITE('=');                                                              
WRITE(':');                                                                   
GOTOXY(5,8);                                                                 
WRITE('"',':');                                                              
FOR G:=1 TO 2 DO                                                             
    WRITE('=');                                                              
WRITE(':','-','!','-',':');                                                  
FOR H:=1 TO 2 DO                                                             
    WRITE('=');                                                              
WRITE(':','"');                                                              
GOTOXY(7,9);                                                                 
WRITE('"','=','=':6,'"');                                                     
TEXTCOLOR(WHITE);                                                            
GOTOXY(13,12);                                                               
WRITELN('OLEH');                                                              
WRITE('ANDIKA GAGAR DWI HADI');                                              
WRITE('(A1C108073)');                                                        
READKEY;                                                                     
END.                                                                         


























Saykoji ~ Online