materi pak Wiji Membuat Laporan di VB silahkan klik disini

Read More

PROGRAM MENCARI BILANGAN TERBESAR MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL 7.1

PROGRAM CARI_BILANGAN_TERBESAR;

USES CRT;

VAR A,B,C:INTEGER;

BEGIN

CLRSCR;

WRITE('BILANGAN 1 : ');READLN(A);

WRITE('BILANGAN 2 : ');READLN(B);

WRITE('BILANGAN 3 : ');READLN(C);

IF (A=B) AND (B=C) AND (A=C) THEN WRITE('BILANGAN TERBESAR : ',A)

ELSE IF (A=B) AND (A>C) THEN WRITE(A)

ELSE IF (B=C) AND (B>A) THEN WRITE(B)

ELSE IF (A>B) AND (A>C) THEN WRITE(A)

ELSE IF (A>B) AND (A>C) THEN

WRITE(A)

ELSE IF (B>A) AND (B>C) THEN

WRITE(B)

ELSE

WRITE(C);

READLN;

END.

Read More

PROGRAM INPUT PASSWORD MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

PROGRAM PASSWORD;

USES CRT;

VAR

     X  :INTEGER;

    PW:STRING;

BEGIN

CLRSCR;

     X:=3;

     WHILE X>=1 DO BEGIN

     WRITE('INPUT PASSWORD :');           

     READLN(PW);

          IF (PW <> 'SEMANGAT') AND (X>=2) THEN

          WRITELN('PASSWORD YANG ANDA MASUKKAN SALAH, KESEMPATAN TINGGAL',' ',X-1,'LAGI');

          IF (PW <> 'SEMANGAT') AND (X=1) THEN

          WRITE('INVALID PASSWORD');

          IF PW='SEMANGAT' THEN BEGIN

          WRITE('PASSWORD BENAR, ANDA DAPAT LOGIN');

     X:=0;

     END;

     X:=X-1;

     END;

READLN;

END.

Read More