Perimetro_Rectangulo

=__**CALCULAR EL PERIMETRO DE UN RECTANGULO**__= > > **Programa que calcula el perimetro de un rectangulo: Lados son de tipo entero .**

code format="pascal" PROGRAM CalcularPerimetro; CONST CM_PULGADA = 2.54 ; VAR iLargo, iAncho, iPerimetro : Integer ; BEGIN WriteLn ('Calculo del perimetro de un rectangulo') ; Writeln ;

Write  (' Largo (en cm): ') ; ReadLn (iLargo) ; Write  (' Ancho (en cm): ') ; ReadLn (iAncho) ;

iPerimetro := (iLargo + iAncho) * 2 ;

Writeln ; WriteLn ('    Perimetro: ', iPerimetro, ' cm ',            ' ( ', iPerimetro / CM_PULGADA:0:2 , '" ) ') ;

WriteLn ; Write ('Pulsa una tecla para finalizar') ; ReadLn ; END. { FIN del PROGRAMA } code

> **Programa que calcula el perimetro de un rectangulo: Lados son de tipo real .**

code format="pascal" PROGRAM CalcularPerimetro; CONST CM_PULGADA = 2.54 ; VAR rLargo, rAncho, rPerimetro : Real ; BEGIN WriteLn ('Calculo del perimetro de un rectangulo') ; Writeln ;

Write  (' Largo (en cm): ') ; ReadLn (rLargo) ; Write  (' Ancho (en cm): ') ; ReadLn (rAncho) ;

rPerimetro := (rLargo + rAncho) * 2 ;

Writeln ; WriteLn ('    Perimetro: ', rPerimetro:0:2, ' cm ',            ' ( ', rPerimetro / CM_PULGADA:0:2 , '" ) ') ;

WriteLn ; Write ('Pulsa una tecla para finalizar') ; ReadLn ; END. { FIN del PROGRAMA } code