
1._CALCULA EL PERIMETRO Y LA SUPERFICIE DE UN RECTANGULO, TENIENDO LA BASE Y LA ALTURA.
Clase_rectangulo
Main
float ancho,largo,per,sup
ancho=0 largo=0 per=0 sup=0
leer ancho,largo
si largo<1
entonces imprime "Error,introduzca un valor mayor"
sino
per=(ancho+largo)*2;
superficie=ancho*largo;
imprimir ''Perímetro:''+per
imprimir ''Superficie:''+sup
fin_si
Fin_main
Fin_clase
Gracias por su atencion.