Buscar

Fazer um projeto em Lazarus para ler o valor total que um cliente pagou no abastecimento de seu veículo e a quantidade de litros abastecida. Em seg...

Fazer um projeto em Lazarus para ler o valor total que um cliente pagou no abastecimento de seu veículo e a quantidade de litros abastecida. Em seguida, calcular e imprimir o valor do litro da gasolina. Caso o valor seja inferior a R$ 2,00, escrever a seguinte mensagem: “Combustível muito barato”. Se o valor estiver compreendido entre R$ 2,00 e R$ 2,40, escrever “Promoção” e caso seja maior que R$ 2,40, escrever “Sem Promoção”. A Figura 8.4 ilustra a interface gráfica desse projeto.

Essa pergunta também está no material:

💡 1 Resposta

User badge image

Ed Verified user icon

Para criar esse projeto em Lazarus, você pode seguir os seguintes passos: 1. Crie um novo projeto Lazarus e adicione um formulário. 2. Adicione os seguintes componentes ao formulário: - Dois componentes TEdit para entrada de dados do valor total e quantidade de litros abastecidos. - Um componente TLabel para exibir o valor do litro da gasolina. - Um componente TButton para calcular o valor do litro e exibir a mensagem correspondente. 3. No evento OnClick do botão, adicione o seguinte código: ``` var valorTotal, litros, valorLitro: Double; begin valorTotal := StrToFloatDef(EditValorTotal.Text, 0); litros := StrToFloatDef(EditLitros.Text, 0); valorLitro := valorTotal / litros; TLabelResultado.Caption := Format('Valor do litro: R$ %.2f', [valorLitro]); if valorLitro < 2 then ShowMessage('Combustível muito barato') else if valorLitro >= 2 and valorLitro <= 2.4 then ShowMessage('Promoção') else ShowMessage('Sem promoção'); end; ``` 4. Execute o projeto e teste o funcionamento. Lembre-se de que este é apenas um exemplo de como criar esse projeto em Lazarus. Você pode personalizar a interface gráfica e o código para atender às suas necessidades específicas.

0
Dislike0

✏️ Responder

SetasNegritoItálicoSublinhadoTachadoCitaçãoCódigoLista numeradaLista com marcadoresSubscritoSobrescritoDiminuir recuoAumentar recuoCor da fonteCor de fundoAlinhamentoLimparInserir linkImagemFórmula

Para escrever sua resposta aqui, entre ou crie uma conta

User badge image

Outros materiais