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.