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

PROGRAM PASCAL MENU DENGAN PROCEDURE DAN FUNCTION

PROGRAM PROCEDURE_DAN_FUNCTION;

USES WINCRT;

PROCEDURE MENU;

BEGIN

GOTOXY(25,8);WRITE('1. LUAS PERSEGI');

GOTOXY(25,10);WRITE('2. LUAS SEGITIGA');

GOTOXY(25,12);WRITE('3. BILANGAN PANGKAT');

GOTOXY(25,14);WRITE('4. BILANGAN POSITIF NEGATIF');

GOTOXY(25,16);WRITE('5. KELUAR');

END;

FUNCTION LUAS_PERSEGI (S:INTEGER):LONGINT;

BEGIN

     LUAS_PERSEGI:=SQR(S);

END;

FUNCTION SEGITIGA (A,T:INTEGER):LONGINT;

BEGIN

     SEGITIGA:=A*T;

END;

PROCEDURE BIL_PANGKAT (A,B,C:LONGINT);

VAR I:INTEGER;

BEGIN

     C:=1;

     FOR I:=1 TO B DO BEGIN

         C:=C*A;

     END;

     WRITE(A,' ^ ',B,' = ',C);

END;

Read More