Лабы Паскаль / лабы 2 / Unit2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm2 = class(TForm)
Panel1: TPanel;
procedure Panel1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Un;

{$R *.dfm}

procedure TForm2.Panel1Click(Sender: TObject);
begin
if (r=a)or(r=b)or(r=c)or(s=a)or(s=b)or(s=c)
or(t=a)or(t=b)or(t=c) then
Panel1.Caption:='Центр принадлежит треугольнику'
else Panel1.Caption:='Центр не принадлежит треугольнику'

end;
end.