practica 11.1-

Inicio
Largo=0.0 double
Ancho=0.0 double
Area=0.0 double
Perimetro =0.0 double
LeerDatoLargo()
CalcularArea()
CalcularPerimetro()
ImprimirArea()
ImprimirPerimetro()
final
Inicio
LeerDatoLargo()
Print "Largo Del Rectangulo:"
read Largo
Print "Ancho Del Rectangulo:"
read Ancho
final
Inicio
CalcularArea()
Area=Largo*Ancho
Final
Inicio
Calcular Perimetro()
Perimetro= (2*Largo)+(2*Ancho)
Final
Inicio
ImprimirArea()
print "datos Rectangulo"
print "largo=",Largo
print "ancho=", Ancho
print "Area0",Area
Final
Inicio
ImprimirPerimetro()
Print "Datos Rectangulo"
Print "largo=", Largo
Print "ancho=", Ancho
Print "Perimetro=",Perimetro
Final