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)...
Sunday, November 20, 2011
Thursday, November 17, 2011
Wednesday, November 16, 2011
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...
PROGRAM BILANGAN_FAKTORIAL_PROCEDURE;
USES WINCRT;
PROCEDURE FAKTORIAL (VAR B:INTEGER; VAR HSL:INTEGER);
VAR I:INTEGER;
BEGIN
CLRSCR;
HSL:=1;
FOR I:=B DOWNTO 1 DO
HSL:=HSL*I;
END;
{PROGRAM UTAMA}
VAR BIL,HASIL:INTEGER;
BEGIN
CLRSCR;
WRITE('INPUT BILANGAN : ');READLN(BIL);
FAKTORIAL(BIL,HASIL);
WRITELN(BIL,'!...
PROGRAM BILANGAN_FAKTORIAL_FUNCTION;
USES WINCRT;
FUNCTION FAKTORIAL (B:INTEGER):INTEGER;
VAR I,HSL:INTEGER;
BEGIN
CLRSCR;
HSL:=1;
FOR I:=B DOWNTO 1 DO
HSL:=HSL*I;
FAKTORIAL:=HSL;
END;
{PROGRAM UTAMA}
VAR BIL,HASIL:INTEGER;
BEGIN
CLRSCR;
WRITE('INPUT BILANGAN : ');READLN(BIL);
HASIL:=FAKTORIAL(BIL);
WRITELN(BIL,'!...
Subscribe to:
Posts (Atom)
