Контрольная работа: Среда программирования программы Borland Pascal 70

end;

function ButtonPressed(x1,y1,x2,y2:integer):boolean;

{функция на проверку нажатия кнопки}

var

Mx,My:integer;

ctt:integer;

begin

GetMouse;

ButtonPressed:= (but=1)and(m>x1)and(m<x2)and(n>y1)and(n<y2);

end;

procedure Face; {прорисовкаинтерфейса}

begin

SetFillStyle(1,10);

Bar(10,10,GetMaxx-10,GetMaxy-10);

SetColor(15);

Line(20,20,620,20);

Line(20,20,20,150);

SetColor(0);

Line(620,20,620,150);

Line(20,150,620,150);

SetColor(15);

Line(20,195,450,195);

Line(20,195,20,210);

SetColor(0);

Line(20,210,450,210);

Line(450,195,450,210);

SetColor(15);

Line(20,215,450,215);

Line(20,215,20,230);