Question

Realice un programa en la que Una Empresa fabrica Tapas de material laminado on 3 formato: 1. Redondo 2. Cuadrado
3. Reclangular Cobra $. 9,00 al metro cuadrado, y si la tapa es redonda, Cobra $. 4,00 másal total!
Se pide:
1. Registrar el código de la forma (1, 2 & 3)
2. Ingusar la longitud en metros. Sies cuadrada se ingresa
corresponde al radio del circulo
3. Informar el costo total de la tapa.
un valor, si es Redonda

Answer 1

El código lo hice en PSeint.

Por lo que entiendo al tratarse de tapas cuadradas y rectangulares el precio por metro cuadrado es $9, en cambio, para la redonda son $4 extras, es decir $13.

Proceso Empresas

Definir radio Como Real;

Definir largo Como Real;

Definir ancho Como Real;

Definir Area1 Como Real;

Definir Area2 Como Real;

Definir Area3 Como Real;

Definir costo1 Como Real;

Definir costo2 Como Real;

Definir costo3 Como Real;

Definir Tapa Como Entero;

Escribir "Los tipos de tapas que se proporcionan son las siguientes:";

Escribir "1 --> Tapa redonda";

Escribir "2 --> Tapa cuadrada";

Escribir "3 --> Tapa rectangular";

Escribir "Dada sus requerimientos, digite el numero concerniente al numero de tapa";

Escribir "¿Que tipo de tapa desea?";

Leer Tapa;

Si (Tapa=1) Entonces

 Escribir "Digite el radio (en metros)";

 Leer radio;

 Area1 <- 3.1416*radio^2;

 costo1 <- Area1*13;

 Escribir "El monto a pagar por una tapa redonda de radio", radio, " m es:", costo1;

SiNo

 Si (Tapa=2) Entonces

  Escribir "Digite el largo (en metros)";

  Leer largo;

  Area2 <- largo^2;

  costo2 <- Area2*9;

  Escribir "El monto a pagar por una tapa cuadrada de largo", largo, " m es:", costo2;

 SiNo

  Escribir "Digite el largo (en metros)";

  Leer largo;

  Escribir "Digite el ancho (en metros)";

  Leer ancho;

  Area3 <- largo*ancho;

  costo3 <- Area3*9;

  Escribir "El monto a pagar por una tapa rectangular de largo", largo, " m y ancho", ancho, " m es:", costo3;

 Fin Si

Fin Si

FinProceso