Что здесь не так? 7 строчка: форматное выражение может использоваться только внутри write, writeln и str. сама программа: program n_1; var x1, x2, y1, y2, x, y: integer; a: boolean; begin writeln ('введите значения координат'); readln (x1, x2, y1, y2, x, y); a: = (x> x1)and(x< 2)and(y> y2)and(y
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y1)and (y<y2);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
И мне кажется, что было бы удобнее вводить сначала одни координаты (x1,y1), а затем другие (x2,y2)...
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.