 |
|
||||
Você está aqui: Delphi ::: Delphi para Engenharia ::: Física - Mecânica |
Como calcular a velocidade em MRU - Movimento Retilíneo Uniforme usando Delphi - Delphi para EngenhariaQuantidade de visualizações: 1247 vezes |
|
Na Física, principalmente na Mecânica, a velocidade, geralmente medida em metros por segundo (m/s), é uma grandeza que mede, em um intervalo de tempo, a rapidez com que um corpo se desloca (ou é deslocado). Nesta dica estamos falando de Movimento Retilíneo Uniforme (MRU), ou seja, um objeto se movendo em linha reta e com velocidade constante. Por isso, os termos velocidade e velocidade média significam a mesma coisa, assim como tempo e tempo médio. A fórmula da velocidade em MRU é dada por: \[v = \frac{\Delta s}{\Delta t} \] onde __$\Delta s__$ é o deslocamento e __$\Delta t__$ é o intervalo de tempo. Agora, só precisamos saber que: __$\Delta s__$ = posição final - posição inicial; __$\Delta t__$ = tempo final - tempo inicial. Veja agora o código Delphi completo que pede a posição inicial e posição final do objeto, o tempo inicial e tempo final, representando a duração do deslocamento, e retorna a velocidade ou velocidade média (no MRU isso não tem relevância): ----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)
Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
procedure TForm2.Button1Click(Sender: TObject);
var
posicao_inicial, posicao_final, tempo_inicial,
tempo_final, delta_s, delta_t, velocidade: Real;
begin
// vamos ler a posição inicial e posição final
posicao_inicial := StrToInt(InputBox('Número', 'Posição inicial em km:', '0'));
posicao_final := StrToInt(InputBox('Número', 'Posição final em km:', '0'));
// vamos ler o tempo inicial e tempo final
tempo_inicial := StrToInt(InputBox('Número', 'Tempo inicial em h:', '0'));
tempo_final := StrToInt(InputBox('Número', 'Tempo final em h:', '0'));
// vamos calcular o delta s
delta_s := posicao_final - posicao_inicial;
// e agora o delta t
delta_t := tempo_final - tempo_inicial;
// finalmente calculamos a velocidade
velocidade := delta_s / delta_t;
// e agora mostramos o resultado
Edit1.Text := 'A velocidade (ou velocidade média) é: ' +
FloatToStr(velocidade) + 'km/h';
end;
Note que este cálculo foi feito a partir do evento Click de um botão Button1 e o resultado foi exibido na propriedade Text de uma caixa de texto Edit1. Ao executar este código Delphi nós teremos o seguinte resultado: Posição inicial em km: 0 Posição final em km: 450 Tempo inicial em h: 10 Tempo final em h: 17 A velocidade (ou velocidade média) é: 64.29km/h Pressione qualquer tecla para continuar... Veja que o deslocamento teve início no km 0 e foi até o km 450. O tempo do deslocamento se iniciou às 10:00h e finalizou às 17:00. Dessa forma, a velocidade (ou velocidade média) foi de 64.29km/h. É importante observar que, se quisermos exibir o resultado em m/s, deveremos fazer a divisão da velocidade em km/h por 3,6. E agora, para finalizarmos, que tal resolver uma questão muito presente em vestibulares e concursos? 1) Um ônibus parte às 15h de São Paulo com destino ao Rio de Janeiro e tem previsão de chegada às 21h. Calcule a velocidade média (m/s) dessa viagem, cuja distância é 450km. Tente fazer a resolução. Para lhe ajudar na conferência, o resultado é 20,83m/s. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
