Вывод сообщений

Для вывода сообщений в отдельном окне применяют функцию:

MessageDlg(сообщение,

тип_сообщения,

[список_кнопок],

справка);

где

сообщение – текст, который будет отображен в окне сообщения;

тип_сообщения – определяет внешний вид окна;

список_кнопок – константы (перечисляются через запятую), определяющие тип кнопок окна сообщения;

справка – номер окна справочной системы, которое будет выведено на экран, если нажать F1, параметр равен нулю, если использование справки не предусмотрено.

ЗАДАЧА 3. Даны вещественные числа x и y. Определить принадлежит ли точка с координатами (x; y) заштрихованной части плоскости.

Плоскость ограничена линиями

x=-1, x=3, y=-2 и y=4.

Значит точка с координатами (x; y) принадлежит этой плоскости, если будут выполняться следующие условия: x ³ -1, x£ 3, y ³ -2 и y £ 4.

Иначе точка лежит за пределами плоскости.

procedure TForm1.FormCreate(Sender:

TObject);

begin

Img1.Stretch:=True;

Img1.Picture.LoadFromFile('ris.bmp');

end;

procedure TForm1.btn2Click(Sender:

TObject);

begin

Close;

end;

procedure TForm1.btn3Click(Sender:

TObject);

begin

edt1.Text:='0,0';

edt2.Text:='0,0';

end;

procedure TForm1.btn1Click(Sender:

TObject);

var x,y:Real;

begin

x:=strtofloat(Edt1.Text);

y:=strtofloat(Edt2.Text);

if (x>=-1) and (x<=3) and (y>=-2) and (y<=4) then

MessageDlg('Точка

принадлежит плоскости',

mtInformation,[mbOk],0)

else

MessageDlg('Точка

не принадлежит плоскости',

mtInformation,[mbOk],0);

end;