Posts

Showing posts from March, 2009

Contoh program pascal

contoh program sederhana pascal... PROGRAM TIME; USES CRT; VAR DD,A,B,C,AA,BB,CC,M,MM,D,J,BYR:LONGINT; BEGIN CLRSCR; WRITE('JAM MASUK:');READLN(A); WRITE('MENIT MASUK:');READLN(B); WRITE('DETIK MASUK:');READLN(C); WRITE('JAM KELUAR:');READLN(AA); WRITE('MENIT KELUAR:');READLN(BB); WRITE('DETIK KELUAR:');READLN(CC); M:=(AA-A)*60+(BB-B); DD:=M*60+(CC-C); J:=M DIV 60; MM:=M MOD 60; D:=DD MOD 60; BYR:=(J*2000)+(MM*50); WRITELN('DURASI :',J,' JAM ',MM,' MENIT ',D,' DETIK'); WRITE('BAYAR :RP.',BYR); READKEY; END. PROGRAM MATRIX_DGN_ARRAY; USES CRT; TYPE M=ARRAY[1..3,1..3] OF INTEGER; VAR MATRIX1,MATRIX2,MATRIX3:M; K,L:BYTE; BEGIN CLRSCR; WRITELN('MATRIX 1'); FOR K:=1 TO 3 DO FOR L:=1 TO 3 DO begin GOTOXY(01,02);WRITE ('MASUKKAN BARIS',' ',K,' ','KOLOM',' ',L,':'); READLN (MATRIX1[K,L]); END;