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...
Wednesday, November 16, 2011
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)
