CALCULAR UM AREA DE 4 LADOS DIFERENTES

WEBIER 24/09/2004 09:34:07
#43310
estou fazendo um projeto para um loteamento.

cada lote tem 10 m de frete por 15 m de lado = area total = 150m²

fiz assim:
Dim LATERAL_ESQ As Integer
Dim FRENTE As Integer
Dim AREA As Integer

LATERAL_ESQ = txtLesquerda.Text
FRENTE = txtFrente.Text

AREA = LATERAL_ESQ * FRENTE

txtAreaTotal.Text = Format(AREA, "###,###.00")
-------------------------

Agora encontrei um problema, como calcular um lote que possui 10 m frente, 13 m de fundo e 15 m de lateral ?
----
LCSD 24/09/2004 09:40:55
#43313
Resposta escolhida
Webier

Levando-se em conta que as dimensões de Frente = Fundos então temos:

àrea 1 = 10 x 13 = 130 m² isolando-se as àreas iguais

àrea 2 = (10 x 2) / 2 = 10 do Triangulo

àrea Total = 140 m²

OU então

àrea Total = ((13 + 15) * 10) / 2

àrea Total = 140 m²

Até Breve
[s79]
LCSD 24/09/2004 10:09:42
#43320
Paganini

Infelizmente não está correto. [s61]

Vamos levar em conta a maior àrea possível, que no caso seria um Retà¢ngulo de 10m x 15 m = 150 m²

O Cálculo acima já indica que teríamos no máximo 150 m², como eu deixei claro que Frente = Fundos (Largura), logo ou desmembraria-se em um Retà¢ngulo e um Trià¢ngulo ou então temos que somar os 2 valores e dividir por 2, multiplicando pela largura.

Veja novamente. Faz tempo que eu não preciso de um cálculo deste mas maior de 150 m² com as dimensões acima não é possível.

** àrea de um Trià¢ngulo = (Base x Altura) / 2
** Para o cálculo acima não importa o à¢ngulo, já que um Trià¢ngulo sempre corresponde a 50% da àrea que um Retà¢ngulo ocuparia
LCSD 24/09/2004 10:24:07
#43330
Flavio

Eu não notei o trecho abaixo:
"Agora encontrei um problema, como calcular um lote que possui 10 m frente, 13 m de fundo e 15 m de lateral ? "

[s54] [s54] [s54] [s54] [s54] [s54] [s54] [s54]

Para mim os 13m eram de uma Lateral e os 15 m da outra lateral!
[s35]

Vamos lá então:

àrea Total = ((10 + 13 ) / 2) * 15

àrea Total = 172,5
[s79]

* Desculpe a falta de atenção acima.
[s40]
LCSD 24/09/2004 11:45:24
#43341
Flávio

Apesar da bizonhice acima, não precisa escrachar!

Teve aulas com o MAXMummy de "tiração de sarro"?
[s90]
LCSD 24/09/2004 11:47:18
#43343
Webier

Use Single

Dim Area as Single


** Até que enfim acabou o Tópico!
[s79][s79][s79][s79][s79][s79][s79][s79][s79]
Tópico encerrado , respostas não são mais permitidas