exerc_cio_triangulo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

procedure TForm1.Button1Click(Sender: TObject);
var lado1, lado2, lado3: integer;
 triangulo:boolean;
begin
 triangulo := true;
 lado1 := StrToInt(edtLado1.Text);
 lado2 := StrToInt(edtLado2.Text);
 lado3 := StrToInt(edtLado3.Text);
 if lado1 >= (lado2 + lado3) then triangulo := False;
 if lado2 >= (lado1 + lado3) then triangulo := False;
 if lado3 >= (lado2 + lado1) then triangulo := False;
 if not triangulo then
 begin
 lblTriangulo.Caption := 'Não é triangulo';
 end
 else
 begin
 if (lado1 = lado2) and (lado2 = lado3) and (lado1 = lado3) then
 begin
 lblTriangulo.Caption := 'É triangulo equilatero';
 end
 else
 begin
 if (lado1 = lado2) OR (lado2=lado3) OR (lado1 = lado3) then
 begin
 lblTriangulo.Caption := 'É triangulo isosciles';
 end
 else
 begin
 lblTriangulo.Caption := 'É triangulo isosciles';
 end
 end
 end
end;