Encuentre el área y el perímetro del triángulo rectángulo en PL/SQL

Requisito previo : introducción a PL/SQL

En el código PL/SQL, los grupos de comandos se organizan dentro de un bloque. Un grupo de bloques relacionado con declaraciones o sentencias. En declare part, declaramos variables y entre start y end part, realizamos las operaciones.

Dadas las longitudes de la hipotenusa, la base y la altura de un triángulo rectángulo, la tarea es encontrar el área y el perímetro del triángulo.

Ejemplos:

Input: hypotenuse = 10, base = 4, height = 14
Output:  Area = 28, Perimeter = 28
Input: hypotenuse = 30,  base = 10, height = 25
Output: Area = 125, Perimeter = 65

Fórmula para calcular el área y el perímetro:
Área del triángulo rectángulo:

 1/2 * base * height

Perímetro del triángulo:

len of hypotenuse + len of base + len of height

A continuación se muestra la implementación requerida:

DECLARE
    -- declare variable side1, side2,
    -- base, height, area and perimeter
    -- and these six variable datatype
    -- are float
    hypotenuse     FLOAT;
    base      FLOAT;
    height    FLOAT;
    area      FLOAT;
    perimeter FLOAT;
BEGIN
    -- here we assign the value in
    -- side1, side2, base, height  
    hypotenuse := 10;
  
    base := 4;
  
    height := 14;
  
    area := .5 * base * height;
  
    perimeter := hypotenuse + height + base;
  
    dbms_output.Put_line(' Area of triangle is '
                         || area);
  
    dbms_output.Put_line(' Perimeter of triangle is '
                         || perimeter);
END;
-- Program End 

Producción :

 Area of triangle is 28
 Perimeter of triangle is 28