Contoh Program Genap/Ganjil, POSITIF/NEGATIF dan LUAS SEGITIGA pada PL/SQL

GENAP/GANJIL

SET SERVEROUTPUT ON
DECLARE
BIL INTEGER : = '&BIL' ;
BEGIN
IF MOD ( BIL,2) = 0 THEN
DBMS_OUTPUT.PUT_LINE(TO_CHAR(BIL)||'GENAP');
ELSE
DBMS_OUTPUT.PUT_LINE(TO_CHAR(BIL)||'GANJIL');
END IF;
END;
/
 
contoh hasil :

enter value for bil : 4

4 genap

POSITIF/NEGATIF

SET SERVEROUTPUT ON
DECLARE
NILAI INTEGER;
STATUS VARCHAR2(10);
BEGIN
NILAI :='&NILAI';
STATUS:=' ' ;
IF NILAI = 0 THEN
STATUS := ' SAMA DENGAN NOL ' ;
ELSE IF NILAI > 0 THEN
STATUS := 'POSITIF' ;
ELSE
STATUS:='NEGATIF' ;
END IF;
END IF;
DBMS_OUTPUT.PUT_LINE(NILAI || STATUS);
END;
/


LUAS SEGITIGA

SET SERVEROUTPUT ON
DECLARE
ALAS FLOAT;
TINGGI FLOAT
LUAS FLOAT;
BEGIN
ALAS:=&ALAS;
TINGGI:=&TINGGI;
LUAS:=&LUAS*TINGGI*0.5;
DBMS_OUTPUT.PUT_LINE('ALAS ADALAH'||ALAS);
DBMS_OUTPUT.PUT_LINE('TINGGI ADALAH'||TINGGI);
DBMS_OUTPUT.PUT_LINE(LUAS SEGITIGA ADALAH'||LUAS);
END;
/