Subprogramas: PSEINTVamos a programar una calculadora de materiales para construirPrimero leeremos todo el ejercicio y luego dividiremos tareas en el equipo.El algoritmo principal sólo debe llamar al subPrograma menu()Cada subPrograma puede descomponerse, si hiciera falta, en otros subProgramas acreatividad del programadorEl menú debe quedar de la siguiente manera:1 - Calcular muro de ladrillo2 - Calcular viga de hormigón3 - Calcular columnas de hormigón4 - Calcular contrapisos5 - Calcular techo6 - Calcular pisos7 - Calcular pintura8 - Calcular iluminación9 - Salirsubprogramas calcularSuperficie y calcularVolumenHaremos ambos para usarlos dentro de los otros subprogramas. El usuario no puedeacceder a ellos.subprograma calcularMuroNos debe pedir primero si el muro será de 20 o 30 cm de espesor. Luego el largo y el alto. Apartir de estos datos se debe mostrar al usuario la superficie del muro y la cantidad demateriales que necesitaremos para construirlo.Si el muro es de 30cm necesitaremos por metro cuadrado: 15.2 kg de cemento, 0.115 m3de arena y 120 ladrillos.Si el muro es de 20cm necesitaremos por metro cuadrado: 10.9 kg de cemento, 0.09 m3 dearena y 90 ladrillos.subprograma calcularVigaNos debe pedir el largo de la viga. Por metro lineal de viga se necesitarán: 9 kg de cemento,0.02 m3 de arena, 0.02 m3 de piedra, 4 m de hierro del 8 y 3 m de hierro del 4.Debemos mostrar al usuario la cantidad de materiales necesaria.subprograma calcularColumnaNos debe pedir el largo de la columna. Por metro lineal de columna se necesitarán: 7.5 kgde cemento, 0.016 m3 de arena, 0.016 m3 de piedra, 6 m de hierro del 10 y 3 m de hierrodel 4.Debemos mostrar al usuario la cantidad de materiales necesaria.subprograma calcularContrapisosNos debe pedir espesor, ancho y largo del contrapiso a calcular.Por metro cúbico de contrapiso se necesita: 105 kg de cemento, 0.45 m3 de arena y 0.9 m3de piedra.Debemos mostrar al usuario la cantidad de materiales necesaria.subprograma calcularTechoNos debe pedir espesor, ancho y largo del techo a calcular.Por metro cúbico de techo se necesita: 33 kg de cemento, 0.072 m3 de arena, 0.072 m3 depiedra, 7 m de hierro del 8 y 4 m de hierro del 6Debemos mostrar al usuario la cantidad de materiales necesaria.subprograma calcularPisosNos debe pedir ancho y largo del paño de piso a colocar. Teniendo esos datos se debecalcular la superficie y añadirle un 10% extra por recortesMostrar el resultado en m2subprograma calcularPinturaNos debe pedir la superficie del muro y mostrar cuánta pintura necesitamos teniendo encuenta que rinde 6 m2 por litro de pintura.subprograma calcularIluminacionNos debe pedir la superficie de la habitación. La iluminación la calculamos de la siguienteforma: superficie * 0.20. Eso nos da la cantidad mínima de superficie de iluminación natural(ventanas y puertas de vidrio). Mostrar resultado.

Programa en pseint para calcular materiales requeridos para la construcción. Se adjunta imagen de salidad del algoritmo.

Definir ans Como entero

• //Menú

Repetir

 Escribir 'Choose an option (1-9)'

 Escribir '*************************'

 Escribir '1 - Calcular muro de ladrillo'

 Escribir '2 - Calcular viga de hormigón'

 Escribir '3 - Calcular columnas de hormigón'

 Escribir '4 - Calcular contrapisos'

 Escribir '5 - Calcular techo'

 Escribir '6 - Calcular pisos'

 Escribir '7 - Calcular pintura'

 Escribir '8 - Calcular iluminación'

 Escribir '9.- Salir'

 Repetir

  Leer ans

 Hasta Que ans<>1 O ans<>2 O ans<>3 O ans<>4 O ans<>5 O ans<>6 O ans<>7 O ans<>8 O ans<>9

 Segun ans  Hacer

  1:

   calcularMuro()

  2:

   calcularViga()

  3:

   calcularColumna()

  4:

   calcularContrapisos()

  5:

   calcularTecho()

  6:

   calcularPisos()

  7:

   calcularPintura()

  8:

   calcularIluminacion()

 FinSegun

Hasta Que ans=9

FinAlgoritmo

Funcion s<-calcularSuperficie(largo,alto)

• //Calculamos la superficie con la fórmula de área de rectángulo

s<-largo_muro*alto_muro

FinFuncion

Funcion v<-calcularVolumen(espesor,largo,alto)

v<-espesor*largo*alto

FinFuncion

Funcion calcularMuro()

Escribir 'Espesor (20 ó 30 cm): ' Sin Saltar

Repetir

 Leer espesor

Hasta Que  espesor = 20 o espesor = 30

Escribir 'largo (m): ' Sin Saltar

Leer largo

Escribir 'alto (m): ' Sin Saltar

Leer alto

s<-calcularSuperficie(largo,alto)

Escribir "Superficie del muro: ", s, " m2"

Escribir "Cantidad de materiales de construcción: "

si espesor = 30 Entonces

 cmento<-15.2*s

 arna <-0.115*s

 ldrillos <-120*s

SiNo

 cmento<-10.9*s

 arna <-0.09*s

 ldrillos <-90*s

FinSi

• //Mostramos resultados

Escribir "Cemento: ", cmento, " kg"

Escribir "Arena: ", arna, " m3"

Escribir "Ladrillos: ", ldrillos, " unid"

FinFuncion

Funcion calcularViga()

Escribir 'Largo de la viga (metro lineal): ' Sin Saltar

Leer largo_viga

Escribir "Cantidad de materiales de construcción: "

cmento<-9*largo_viga

arna <-0.02*largo_viga

pdra <-0.02*largo_viga

hierro8 <-4*largo_viga

hierro4 <-3*largo_viga

• //Mostramos resultados

Escribir "Cemento: ", cmento, " kg"

Escribir "Arena: ", arna, " m3"

Escribir "Piedra: ", pdra, " m3"

Escribir "hierro de 8: ", hierro8, " m"

Escribir "hierro de 4: ", hierro4, " m"

FinFuncion

Funcion calcularColumna()

Escribir 'Largo de la columna (metro lineal): ' Sin Saltar

Leer largo_columna

Escribir "Cantidad de materiales de construcción: "

cmento<-7.5*largo_columna

arna <-0.016*largo_columna

pdra <-0.016*largo_columna

hierro10 <-6*largo_columna

hierro4 <-3*largo_columna

• //Mostramos resultados

Escribir "Cemento: ", cmento, " kg"

Escribir "Arena: ", arna, " m3"

Escribir "Piedra: ", pdra, " m3"

Escribir "hierro de 10: ", hierro10, " m"

Escribir "hierro de 4: ", hierro4, " m"

FinFuncion

Funcion calcularContrapisos()

Escribir 'Espesor (m): ' Sin Saltar

Leer espesor_contrapiso

Escribir 'largo (m): ' Sin Saltar

Leer largo_contrapiso

Escribir 'alto (m): ' Sin Saltar

Leer alto_contrapiso

v<-calcularVolumen(espesor,largo,alto)

Escribir "Superficie del contrapiso: ", v, " m3"

Escribir "Cantidad de materiales de construcción: "

cmento<-105*v

arna <-0.45*v

pdra <-0.9*v

• //Mostramos resultados

Escribir "Cemento: ", cmento, " kg"

Escribir "Arena: ", arna, " m3"

Escribir "Piedra: ", pdra, " m3"

FinFuncion

Funcion calcularTecho()

Escribir 'Espesor (m): ' Sin Saltar

Leer espesor

Escribir 'largo (m): ' Sin Saltar

Leer largo

Escribir 'alto (m): ' Sin Saltar

Leer alto

v<-calcularVolumen(espesor,largo,alto)

Escribir "Superficie del techo: ", v, " m3"

Escribir "Cantidad de materiales de construcción: "

cmento<-33*v

arna <- 0.072*v

pdra <-0.072*v

hierro8 <-7*v

hierro6 <-4*v

• //Mostramos resultados

Escribir "Cemento: ", cmento, " kg"

Escribir "Arena: ", arna, " m3"

Escribir "Piedra: ", pdra, " m3"

Escribir "hierro de 8: ", hierro8, " m"

Escribir "hierro de 6: ", hierro6, " m"

FinFuncion

Funcion calcularPisos()

Escribir 'largo (m): ' Sin Saltar

Leer largo

Escribir 'alto (m): ' Sin Saltar

Leer alto

s<-calcularSuperficie(largo,alto)

Escribir "Superficie del piso: ", s+(0.10*s), " m2"

FinFuncion

Funcion calcularPintura()

Escribir "Superficie del muro (m2): "

leer s

pntura <- 6*s

Escribir "Pintura: ", pntura, " unid"

FinFuncion

Funcion calcularIluminacion()

Escribir "Superficie de la habitación (m2): "

leer s

ilumincion <- 0.20*s

Escribir "Cantidad mínima de superficie de iluminación natural: ", ilumincion, " m2"

FinFuncion

Para saber más acerca calculadora de materiales consulte https://brainly.lat/tarea/14105599

#SPJ1