Selasa, 26 Mei 2009

Jumat, 22 Mei 2009

USES WINCRT;VARNAMA,HOBBY,MAKANAN,PACAR : STRING;TAHUN_LAHIR,NIM,USIA : INTEGER ;

BEGINWRITELN ('PROGRAM DISKUSI ') ;WRITELN ('----------------') ;WRITELN (' ') ;WRITE ('SIAPA NAMA ANDA ?: ') ;READLN (NAMA) ;WRITELN (' ') ;WRITE ('BERAPA NIM ANDA ?: ') ;READLN (NIM) ;WRITELN (' ') ; WRITELN ('HAI ',NAMA) ;WRITE ( NAMA,' LAHIR TAHUN BERAPA? : ') ;READLN (TAHUN_LAHIR) ;USIA := 2009 - TAHUN_LAHIR ;WRITELN (NAMA,'USIANY UDAH ',USIA,' TAHUN') ;IF USIA >= 17 THENWRITELN (NAMA,' UDAH CUKUP DEWASA') ;WRITE ('TUNGGU PERTANYAAN SELANJUTNYA YA ? :');WRITELN ('-----');write ('-------------------------------------');WRITELN ('-------------------------------');WRITE (NAMA,' HOBBY KAMU APA ? ');READLN (HOBBY);WRITELN (' ') ;WRITE (NAMA,' MAKANAN KESUKAAN KAMU APA ? ');READLN (MAKANAN);WRITELN (' ');WRITELN('KAMU MAU GA JD PACAR AQ?');READLN(PACAR);WRITELN(' ');WRITE ( 'UDAH DULU YACH CAPEK NIH' );WRITELN ('-------------');WRITE ('-------------');WRITELN ('-------------') ;WRITE ('-------------') ;WRITELN ('-------------') ;WRITE ('PENASARAN YACH ? ');WRITELN (' ');WRITE ('KASIAN DEH LOOE ---------');WRITELN ('----------');END.
USES WINCRT;VARNAMA : STRING;THN_LAHIR, USIA : INTEGER;
BEGINWRITELN('PROGRAM BANYAK TANYA');WRITELN('--------------------');WRITELN(' ');WRITE('SIAPA NAMA ANDA? : ');READLN(NAMA);WRITELN(' ');WRITELN('HALO ',NAMA);WRITE(NAMA,' LAHIR TAHUN BERAPA? : ');READLN(THN_LAHIR);USIA := 2009 - THN_LAHIR;WRITELN(NAMA,' USIANYA UDAH ',USIA,' TAHUN');IF USIA >= 17 THENWRITELN(NAMA,' UDAH CUKUP DEWASA TAPI JANGAN BANYAKAN PACARAN AJA YA!')ELSEWRITELN(NAMA,' MASIH KECIL TERNYATA. KALO GEDE MAU JADI APA?');END.