-- Procedure to calculate the perimeter of a square
CREATE PROCEDURE sp_perimeter_square
  @length FLOAT
BEGIN
  @perimeter FLOAT;
  @perimeter = @length * 4;
  SELECT @perimeter AS 'Perimeter';
  PRINT 'The Perimeter of the Square with side of ' + CAST(@length AS VARCHAR(4)) + ' is ' + CAST(@perimeter AS VARCHAR(4));
END;

-- Procedure to calculate the perimeter of a circle
CREATE PROCEDURE sp_perimeter_circle
  @radius FLOAT
BEGIN
  @perimeter FLOAT;
  @perimeter = @radius * 2 * PI();
  SELECT @perimeter AS 'Perimeter';
  PRINT 'The Perimeter of the Circle with radius of ' + CAST(@radius AS VARCHAR(4)) + ' is ' + CAST(@perimeter AS VARCHAR(4));
END;

-- Procedure to calculate the perimeter of a triangle
CREATE PROCEDURE sp_perimeter_circle
  @a FLOAT
  @b FLOAT
  @c FLOAT
BEGIN
  @perimeter FLOAT;
  @perimeter =   @a FLOAT + @b FLOAT + @c FLOAT;
  SELECT @perimeter AS 'Perimeter';
  PRINT 'The Perimeter of the Triangle is ' + CAST(@perimeter AS VARCHAR(4));
END;

-- final program; s for square, c for circle and t for triangle
CREATE PROCEDURE sp_perimeter_triangle
  @choice CHAR
  @v1 FLOAT
  @v2 FLOAT
  @v3 FLOAT
BEGIN
  IF @choice in ('s', 'S')
    EXEC sp_perimeter_square @v1;
  ELSE IF @choice in ('c', 'C')
    EXEC sp_perimeter_circle @v1;
  ELSE IF @choice in ('t', 'T')
    EXEC sp_perimeter_triangle @v1 @v2 @v3;
  ELSE
    SELECT 'INVALID' AS 'ERROR';
END;