Lista de Exercícios Básicos I

Prévia do material em texto

Apostila de Exercícios 
Disciplina: LTP2 [2009] 
Prof. Anderson Vieira 
Turma: 2103 
 
 
 
> 
 
Calcular e apresentar o valor do volume de uma lata de óleo, utilizando a fórmula: VOLUME = 3.14159 * RAIO2 * 
ALTURA. 
 
Exercício extraído do livro “Delphi 5” de Jose Augusto N. G. Manzano e Sandro Santa Vicca Mendes 
 
 
 
Tela em tempo de PROJETO Tela em tempo de EXECUÇÃO 
 
 
GABARITO – EXERCÍCIO 1 
 
Programação do evento OnActivate do formulário da aplicação: 
 
procedure TForm1.FormActivate(Sender: TObject); 
begin 
 edRaio.Clear; 
 edAltura.Clear; 
 edVolume.Clear; 
end; 
 
 
Programação do botão btVolume – Volume: 
 
procedure TForm1.btVolumeClick(Sender: TObject); 
begin 
 Raio := strToFloat(edRaio.text); 
 Altura := strToFloat(edAltura.text); 
 Vol := 3.14159*Sqr(Raio)*Altura; 
 edVolume.text := FloatToStr(Vol); 
end; 
 
Programação do botão btLimpar– Limpar: 
 
procedure TForm1.btLimparClick(Sender: TObject); 
begin 
 edRaio.Clear; 
 edAltura.Clear; 
 edVolume.Clear; 
end; 
 
 
Programação do botão btFinalizar – Finalizar: 
 
procedure TForm1.btFinalizarClick(Sender: TObject); 
begin 
Application.Terminate 
end; 
 
 
 
 
 
 
> 
 
Efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem, utilizando-se um automóvel que faz 12 
km por litro. Para obter o cálculo, o usuário deverá fornecer o tempo gasto na viagem e a velocidade média durante ela. 
Desta forma, será possível obter a distância percorrida com a fórmula DISTANCIA = TEMPO*VELOCIDADE. Tendo o 
valor da distância, basta calcular a quantidade de litros de combustível utilizada na viagem, com a fórmula: 
LITROS_USADOS = DISTANCIA/12. O programa deverá apresentar os valores da velocidade média, tempo gasto na 
viagem, a distância percorrida e a quantidade de litros utilizada na viagem. 
 
Exercício extraído do livro “Delphi 5” de Jose Augusto N. G. Manzano e Sandro Santa Vicca Mendes 
 
 
 
Tela em tempo de PROJETO 
 
 
Tela em tempo de EXECUÇÃO 
 
 
 
 
 
 
 
 
GABARITO – EXERCÍCIO 2 
 
Programação do evento OnActivate do formulário da aplicação: 
 
procedure TForm1.FormActivate(Sender: TObject); 
begin 
 edTempo.Clear; 
 edVelocidade.Clear; 
 edDistancia.Clear; 
 edLitros.Clear; 
end; 
 
Programação do botão btDistancia – Distância: 
 
procedure TForm1.btDistanciaClick(Sender: TObject); 
begin 
 edDistancia.Text := FloatToStr(StrToFloat(edTempo.text)*StrToFloat(edVelocidade.Text)); 
end; 
 
 
Programação do botão btLitros_Usados – Litros_Usados: 
 
procedure TForm1.btLitros_UsadosClick(Sender: TObject); 
begin 
 edLitros.Text := FloatToStr((StrToFloat(edDistancia.text))/2); 
end; 
 
 
Programação do botão brFinalizar – Finalizar: 
 
procedure TForm1.btFinalizarClick(Sender: TObject); 
begin 
 Application.Terminate; 
End;
> 
 
Ler 2 valores para as variáveis A e B, efetuar a troca dos valores de forma que a variável A passe a possuir o valor da 
variável B e que a variável B passe a possuir o valor da variável ª Apresentar os valores trocados. 
 
Exercício extraído do livro “Delphi 5” de Jose Augusto N. G. Manzano e Sandro Santa Vicca Mendes 
 
 
 
Tela em tempo de PROJETO Tele em tempo de EXECUÇÃO 
 
 
 
GABARITO – EXERCÍCIO 3 
 
Programação do botão btTroca – Troca: 
 
procedure TForm1.btTrocaClick(Sender: TObject); 
var auxilia: string; 
begin 
 auxilia := ed_A.text; 
 ed_A.Text := ed_B.Text; 
 ed_B.Text := auxilia; 
end; 
 
 
Programação do botão btLimpar – Limpar: 
 
procedure TForm1.btLimparClick(Sender: TObject); 
begin 
 ed_A.Clear; 
 ed_B.Clear; 
end; 
 
 
Programação do evento OnActivate do formulário da aplicação: 
 
procedure TForm1.FormActivate(Sender: TObject); 
begin 
 ed_A.Clear; 
 ed_B.Clear; 
end; 
 
 
 
Programação do botão btFinalizar – Finalizar: 
 
procedure TForm1.btFinalizarClick(Sender: TObject); 
begin 
Application.Terminate 
end;