Pascal 011 ► Elevar un número al cuadrado

Ejercicio 011: Elevar un número entero al cuadrado.

• En pascal se puede hacer esto de dos formas, una es usar la función "sqr(x)", que recibe un número y devuelve el cuadrado de éste.

Program Pascal_011;
uses crt;
var
    num, res : integer;
Begin
    WriteLn('Ingresa número');
    ReadLn(num);
    res := sqr(num);
    WriteLn('Resultado: ',res);
    ReadKey;
End.

• La otra forma es empleando la función "power(x, y)", que recibe dos números, el primero es la base y el segundo es la potencia, en este caso la base sería el número que queremos elevar al cuadrado y la potencia sería 2.

Además el uso de esta función requiere agregar la librería "math" en el uses, así como declarar la variable en la que se almacenará el resultado como "real".

Program Pascal_011;
uses crt, math;
var
    num : integer;
    res : real;
Begin
    WriteLn('Ingresa número');
    ReadLn(num);
    res := power(num, 2);
    WriteLn('Resultado: ',res:0:2);
    ReadKey;
End. 


• Aunque claro, también está la opción de multiplicar el número por si mismo:
res := num * num;