Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Sunday, March 1, 2009

Contoh program pascal

|0 komentar
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;
FOR K:=1 TO 3 DO
BEGIN
FOR L:=1 TO 3 DO
begin
WRITE(MATRIX1[K,L],' ');
END;
WRITELN;
END;
WRITELN('MATRIX 2');
FOR K:=1 TO 3 DO
FOR L:=1 TO 3 DO
begin
GOTOXY(01,07);WRITE ('MASUKKAN BARIS',' ',K,' ','KOLOM',' ',L,':');
READLN (MATRIX2[K,L]);
END;
FOR K:=1 TO 3 DO
BEGIN
FOR L:=1 TO 3 DO
begin
WRITE(MATRIX2[K,L],' ');
END;
WRITELN;
END;
WRITELN('HASIL PENJUMLAHAN MATRIK 1 DAN 2');
FOR K:=1 TO 3 DO
BEGIN
FOR L:=1 TO 3 DO
BEGIN
WRITE(MATRIX1[K,L]+MATRIX2[K,L],' ');
END;
WRITELN;
END;
WRITELN('HASIL PENGURNGAN MATRIK 1 DAN 2');
FOR K:=1 TO 3 DO
BEGIN
FOR L:=1 TO 3 DO
BEGIN
WRITE(MATRIX1[K,L]-MATRIX2[K,L],' ');
END;
WRITELN;
END;
READKEY;
END.

Labels