P__7_E21

=__**Calcular cuadrados y cubos sucesivos**__= > > **Se lee un número entero y se calcula y muestra el cuadrado y el cubo** > **de los cinco números enteros siguientes al leído desde teclado** > Version 1: Cuadrado y cubo son de tipo INTEGER > Aún no que utlizan sentencias repetitivas**

code format="pascal" PROGRAM CuadradoYCuboDeUnEntero ; VAR iNumero, iCuadrado, iCubo : Integer ; BEGIN Writeln ; Write ('  Introduce un número entero: ') ; Readln (iNumero) ; Writeln ; Writeln ('Numero':15, 'Cuadrado':15, 'Cubo':15) ; Writeln ('==============================================') ;

iNumero  :=  iNumero + 1 ; iCuadrado := iNumero * iNumero ;     { iCuadrado := Sqr (iNumero) ; } iCubo    := iCuadrado * iNumero ; Writeln (iNumero:15, iCuadrado:15, iCubo:15) ;

iNumero  :=  iNumero + 1 ; iCuadrado := iNumero * iNumero ;    { iCuadrado := Sqr (iNumero) ; } iCubo    := iCuadrado * iNumero ; Writeln (iNumero:15, iCuadrado:15, iCubo:15) ;

iNumero  :=  iNumero + 1 ; iCuadrado := iNumero * iNumero ;    { iCuadrado := Sqr (iNumero) ; } iCubo    := iCuadrado * iNumero ; Writeln (iNumero:15, iCuadrado:15, iCubo:15) ;

iNumero  :=  iNumero + 1 ; iCuadrado := iNumero * iNumero ;  { iCuadrado := Sqr (iNumero) ; } iCubo    := iCuadrado * iNumero ; Writeln (iNumero:15, iCuadrado:15, iCubo:15) ;

iNumero  :=  iNumero + 1 ; iCuadrado := iNumero * iNumero ;   { iCuadrado := Sqr (iNumero) ; } iCubo    := iCuadrado * iNumero ; Writeln (iNumero:15, iCuadrado:15, iCubo:15) ;

ReadLn ; END. code

> **Se lee un número entero y se calcula y muestra el cuadrado y el cubo** > **de los cinco números enteros siguientes al leído desde teclado** > Version 2: Cuadrado y cubo son de tipo REAL > Aún no que utlizan sentencias repetitivas**

code format="pascal" PROGRAM CuadradoYCuboDeUnEntero ; VAR iNumero         : Integer ; rCuadrado, rCubo : Real ; BEGIN Writeln ; Write ('  Introduce un número entero: ') ; Readln (iNumero) ; Writeln ; Writeln ('Numero':20, 'Cuadrado':20, 'Cubo':20) ; Writeln ('=============================================================') ;

iNumero  := iNumero + 1 ; rCuadrado := 1.0 * iNumero * iNumero ;   { rCuadrado := Sqr (1.0 * iNumero) ; } rCubo    := 1.0 * rCuadrado * iNumero ; Writeln (iNumero:20, rCuadrado:20:0, rCubo:20:0) ;

iNumero  := iNumero + 1 ; rCuadrado := 1.0 * iNumero * iNumero ;   { rCuadrado := Sqr (1.0 * iNumero) ; } rCubo    := 1.0 * rCuadrado * iNumero ; Writeln (iNumero:20, rCuadrado:20:0, rCubo:20:0) ;

iNumero  := iNumero + 1 ; rCuadrado := 1.0 * iNumero * iNumero ;  { rCuadrado := Sqr (1.0 * iNumero) ; } rCubo    := 1.0 * rCuadrado * iNumero ; Writeln (iNumero:20, rCuadrado:20:0, rCubo:20:0) ;

iNumero  := iNumero + 1 ; rCuadrado := 1.0 * iNumero * iNumero ; { rCuadrado := Sqr (1.0 * iNumero) ; } rCubo    := 1.0 * rCuadrado * iNumero ; Writeln (iNumero:20, rCuadrado:20:0, rCubo:20:0) ;

iNumero  := iNumero + 1 ; rCuadrado := 1.0 * iNumero * iNumero ;   { rCuadrado := Sqr (1.0 * iNumero) ; } rCubo    := 1.0 * rCuadrado * iNumero ; Writeln (iNumero:20, rCuadrado:20:0, rCubo:20:0) ;

ReadLn ; END. code