Volumen y cantidad de papel de una caja en lenguaje Pascal

Lenguaje

Pascal
Descripción

Dado el ancho, largo y alto de una caja, calcular el volumen y la cantidad de papel (en cm²) necesario para cubrirla.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program VolumenYCantidadDePapelDeUnaCaja;

uses crt;

var alto_en_cm, ancho_en_cm, cantidad_de_papel_en_cm2, largo_en_cm, volumen_en_cm3 : real;

begin

    write ('Ingresa el valor de alto en cm: ');

    readln (alto_en_cm);

    write ('Ingresa el valor de ancho en cm: ');

    readln (ancho_en_cm);

    write ('Ingresa el valor de largo en cm: ');

    readln (largo_en_cm);

    volumen_en_cm3 := ancho_en_cm*largo_en_cm*alto_en_cm;

    cantidad_de_papel_en_cm2 := (ancho_en_cm*largo_en_cm+largo_en_cm*alto_en_cm+alto_en_cm*ancho_en_cm)*2;

    writeln ('Valor de cantidad de papel en cm2: ', cantidad_de_papel_en_cm2:0:6);

    writeln ('Valor de volumen en cm3: ', volumen_en_cm3:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.