3. Fazer um projeto em Lazarus para ler a base e a altura de um triângulo retângulo e, através de um procedimento, calcular a área do triângulo. Da...

Para fazer um projeto em Lazarus para ler a base e a altura de um triângulo retângulo e calcular a área do triângulo, você pode seguir os seguintes passos: 1. Abra o Lazarus e crie um novo projeto. 2. Adicione um formulário ao projeto. 3. Adicione dois componentes TEdit ao formulário, um para a base e outro para a altura. 4. Adicione um componente TButton ao formulário e defina seu texto como "Calcular". 5. Crie um procedimento para calcular a área do triângulo. O procedimento deve receber a base e a altura como parâmetros e retornar a área. 6. No evento OnClick do botão "Calcular", leia os valores da base e da altura dos componentes TEdit e chame o procedimento para calcular a área. 7. Exiba o resultado em um componente TLabel. Segue abaixo um exemplo de código em Lazarus que pode ser utilizado para implementar o projeto: ``` unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type TForm1 = class(TForm) EditBase: TEdit; EditAltura: TEdit; ButtonCalcular: TButton; LabelResultado: TLabel; procedure ButtonCalcularClick(Sender: TObject); private function CalcularAreaTriangulo(Base, Altura: Double): Double; public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} function TForm1.CalcularAreaTriangulo(Base, Altura: Double): Double; begin Result := (Base * Altura) / 2; end; procedure TForm1.ButtonCalcularClick(Sender: TObject); var Base, Altura, Area: Double; begin Base := StrToFloatDef(EditBase.Text, 0); Altura := StrToFloatDef(EditAltura.Text, 0); Area := CalcularAreaTriangulo(Base, Altura); LabelResultado.Caption := Format('Área: %.2f', [Area]); end; end. ```