PROGRAM Exponentes;
Uses WINCRT;
VAR Dato, Cuadrado : Integer;
VAR Raiz : Real;
BEGIN
BEGIN
WriteLn(' Ingrese un Valor');
ReadLn (Dato);
Cuadrado := Sqr(Dato);
Raiz := Sqrt(Dato);
WriteLn(' El cuadrado de ',Dato, ' es: ',Cuadrado);
WriteLn('La raíz cuadrada de ',Dato,' es: ',Raiz);
END.
ReadLn (Dato);
Cuadrado := Sqr(Dato);
Raiz := Sqrt(Dato);
WriteLn(' El cuadrado de ',Dato, ' es: ',Cuadrado);
WriteLn('La raíz cuadrada de ',Dato,' es: ',Raiz);
END.
La función Sqr devuelve el cuadrado del valor utilizado como parámetro.
Sqrt regresa la raíz cuadrada del valor dado como parámetro, el resultado siempre es real
1 Comentarios
yo queria saber como hacia para elevarlo a cualquier potencia, o sacar cualquier raiz.
ResponderEliminarpor ejemplo, si yo querio sacar la raiz quinta de un numero x
como le hago???
o si quiero elevar al cubo cualquier valor x??
alguin que me diga por favor!