Algoritmo para Calcular Área y Perímetro de un Círculo en PSeInt (Guía Completa 2026)

En matemáticas, PI es aproximadamente 3.14159… En programación, en lugar de escribir este número manualmente (lo cual es propenso a errores), utilizamos la función incorporada de PSeInt llamada PI. Esto garantiza la máxima precisión posible en nuestros cálculos de área y perímetro.

La fórmula del área requiere elevar el radio al cuadrado ($r^2$). En PSeInt, esto se logra con el operador circunflejo ^ (ej: radio ^ 2). Es un error común intentar usar la multiplicación simple cuando se requiere una operación exponencial.

Algoritmo AreaYPerimetroCirculo
    // 1. Definición de Variables
    // Es vital usar 'Real' porque PI tiene decimales infinitos
    Definir radio, area, perimetro Como Real;
    
    // 2. Entrada de Datos
    Escribir "Bienvenido al calculador geométrico.";
    Escribir "Por favor, ingrese el radio del círculo:";
    Leer radio;
    
    // 3. Proceso: Aplicación de Fórmulas
    // Usamos la función interna PI de PSeInt para mayor precisión
    // El operador '^' eleva al cuadrado
    area <- PI * (radio ^ 2);
    
    // Fórmula del perímetro: 2 * PI * r
    perimetro <- 2 * PI * radio;
    
    // 4. Salida de Datos
    Escribir "-----------------------------------";
    Escribir "Resultados para un radio de ", radio, ":";
    Escribir "El AREA del círculo es: ", area;
    Escribir "El PERÍMETRO del círculo es: ", perimetro;
    Escribir "-----------------------------------";
    
FinAlgoritmo

Muchos estudiantes escriben radio * 2 en lugar de radio ^ 2. Multiplicar por 2 es duplicar; elevar a la 2 es multiplicar el número por sí mismo. ¡Esto cambia drásticamente el resultado del área!

En la geometría euclidiana real, no existen círculos con radio negativo. Si el usuario ingresa "-5", las fórmulas darán un resultado numérico, pero geométricamente carece de sentido. Es buena práctica validar esto.

Algoritmo CirculoValidado
    Definir radio, area, perimetro Como Real;
    
    Escribir "Ingrese el radio del círculo:";
    Leer radio;
    
    // Validación lógica: El radio debe ser positivo
    Si radio > 0 Entonces
        // Solo calculamos si el dato es válido
        area <- PI * (radio ^ 2);
        perimetro <- 2 * PI * radio;
        
        // Función redon para mostrar menos decimales (opcional)
        // Multiplicamos por 100 y dividimos por 100 para dejar 2 decimales
        area <- redon(area * 100) / 100;
        perimetro <- redon(perimetro * 100) / 100;
        
        Escribir "Área: ", area;
        Escribir "Perímetro: ", perimetro;
    SiNo
        // Mensaje de error si el usuario ingresa 0 o negativos
        Escribir "ERROR: El radio debe ser un número mayor a cero.";
        Escribir "Intente ejecutar el programa nuevamente.";
    FinSi
    
FinAlgoritmo