💻 Un constructor sabe que necesita 0,05 metros cúbicos de arena por metro cuadrado de revoque a realizar. Hacer un algoritmo que calcule las medidas de una pared en largo y alto expresada en metros y obtenga la cantidad de arena necesaria para el revoque total.
👉 Programar un algoritmo para calcular las medidas de una pared en alto y largo para construir.
Para este ejercicio necesitamos multiplicar el alto y el largo que viene a ser el área, este resultado nos muestra los metros que tiene una pared, para luego multiplicar este valor por 0.25 (0.05 x 5) que son los metros cúbicos de revoque que necesitaremos.
Algoritmo programacion_work
Definir alto, largo, arena como Real;
Escribir "INGRESAR ALTO, LARGO Y CALCULAR LAS MEDIDAS DE UNA PARED.";
Escribir " ";
Escribir Sin Saltar "Ingrese Alto mt.: ";
Leer alto;
Escribir Sin Saltar "Ingrese Largo mt.: ";
Leer largo;
arena <- ((alto * largo) * 0.25);
Escribir "Arena Necesaria : ", arena, " mt3.";
FinAlgoritmo
print("OBTENER LA CANTIDAD DE ARENA TOTAL x 0.05 MT CÚBICOS.")
alto = float(input("Ingrese Alto : "))
largo = float(input("Ingrese Largo : "))
arena = ((alto * largo) * 0.05)
print("Arena Necesaria : ", float(arena),"mt3.")
#include<stdio.h>
int main() {
float alto, largo, arena;
printf("10. CALCULAR EL REVOQUE SEGÚN LAS MEDIDAS DE UNA PARED.\n\n");
printf("Ingrese Alto : ");
scanf("%f",&alto);
printf("Ingrese Largo : ");
scanf("%f",&largo);
arena = ((alto * largo) * 0.25);
printf("Arena Necesaria : %.2f mt3.\n ",arena);
return 0;
}
#include<iostream>
using namespace std;
int main() {
float alto, largo, arena;
cout << "10. CALCULAR EL REVOQUE SEGÚN LAS MEDIDAS DE UNA PARED.\n\n";
cout << "Ingrese Alto : ";
cin >> alto;
cout << "Ingrese Largo : ";
cin >> largo;
arena = ((alto*largo)*0.25);
cout << "Arena Necesaria : " << arena << " mt3." << endl;
return 0;
}
using System;
using System.Collections.Generic;
using System.Text;
namespace programacion_work
{
class medidas_pared
{
static void Main(string[] args)
{
int alto, largo;
double arena;
Console.WriteLine("CALCULAR EL REVOQUE SEGÚN LAS MEDIDAS DE UNA PARED.\n");
Console.Write("Ingrese Alto : ");
alto = int.Parse(Console.ReadLine());
Console.Write("Ingrese Largo : ");
largo = int.Parse(Console.ReadLine());
arena = (alto * largo) * 0.25;
Console.WriteLine("\nArena Necesaria : " + arena);
Console.ReadLine();
}
}
}
package programacion_work;
import java.util.Scanner;
public class medidas_pared {
public static void main(String[] args) {
Scanner ingreso=new Scanner(System.in);
double alto, largo, arena;
System.out.print("CALCULAR EL REVOQUE NECESARIO PARA UNA PARED.\n\n");
System.out.print("Ingrese alto mt.: ");
alto = Double.parseDouble(ingreso.next());
System.out.print("Ingrese largo mt.: ");
largo = Double.parseDouble(ingreso.next());
arena = ((alto * largo) * 0.25);
System.out.println("ARENA NECESARIA: " + arena);
}
}
private void jBtn_CalcularActionPerformed(java.awt.event.ActionEvent evt) {
int alto, largo;
double arena;
alto = Integer.parseInt(jTxt_alto.getText());
largo = Integer.parseInt(jTxt_largo.getText());
arena = ((alto * largo) * 0.25);
jTxt_arena.setText(String.valueOf(arena));
}
Imports System.Console
Module alto_largo
Dim Alto, Largo As Integer
Dim Arena As Decimal
Sub Main()
WriteLine("10. OBTENER EL REVOQUE NECESARIO PARA UNA PARED")
WriteLine("")
Write("Alto de la Pared: ")
Alto = ReadLine()
Write("Largo de la Pared: ")
Largo = ReadLine()
WriteLine("")
Arena = ((Alto * Largo) * 0.25)
WriteLine("Total de Arena Necesaria : " & Arena)
ReadLine()
End Sub
End Module
Private Sub Btn_Calcular_Click(sender As Object, e As EventArgs) Handles Btn_Calcular.Click
Dim Alto, Largo As Integer
Dim Arena As Decimal
Alto = Txt_Alto.Text
Largo = Txt_Largo.Text
Arena = ((Alto * Largo) * 0.25)
Txt_Arena.Text = Arena
End Sub
Sub Arena2()
Dim alto As Integer
Dim largo As Integer
Dim Arena As Double
alto = Range("C12").Value
largo = Range("D12").Value
Arena = ((alto * largo) * 0.25)
Range("G12").Value = Round(Arena, 2)
End Sub
Sub Arena()
Dim alto As Integer
Dim largo As Integer
Dim Arena As Double
alto = InputBox("INGRESE ALTO")
largo = InputBox("INGRESE LARGO")
Arena = ((alto * largo) * 0.25)
MsgBox "Arena Necesaria : " & Round(Arena, 2)
End Sub
Private Sub btn_calcular_Click()
Dim alto As Integer
Dim largo As Integer
Dim Arena As Double
alto = txt_alto.Text
largo = txt_largo.Text
Arena = ((alto * largo) * 0.25)
txt_arena.Text = Round(Arena, 2)
End Sub
Video de un algoritmo que muestra el calculo del área de una pared en PSeInt.
#alto #área #arena #medidas #pared #revoque