Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Ajuda para resolver esse exercicio..

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Ajuda para resolver esse exercicio..

    Um engenheiro quer comprar uma quantidade de pisos em metros quadrados
    para colocar nos apartamentos de um prédio. Sabendo que cada apartamento tem
    forma retangular, faça um programa que recebe a quantidade de apartamentos no
    prédio, a base e a altura do retângulo e depois mostra a quantidade de metros
    quadrados de piso que devem ser comprados.

  • Font Size
    #2
    A ideia é bem simples... basta multiplicar largura X comprimento x Nº de apartamentos!

    No Delphi, basta pegar 4 T.Edits, um botão e no OnClick do Botão é só escrever:

    Código:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    comprimento, largura, napt: Real;
    begin
    comprimento := StrToFloat(Edit1.Text);
    largura := StrToFloat(Edit2.Text);
    napt := StrToFloat(Edit3.Text);
    Edit4.Text := FloatToStr(comprimento*largura*napt);
    end;

    Comment


    • Font Size
      #3
      Código:
      procedure ...
      var
        resultado, altura, largura: real;
        qtdap: integer;
        
      begin
        altura := StrToFloat(edtAltura.text);
        largura := StrToFloat(edtLargura.text);
        qtdap := StrToInt(edtQtdAp.text);
      
        resultado := altura * largura * qtdap;
      
        edtResultado.text := FloatToStr(resultado);
      end;

      Comment

      X
      Working...
      X