Что здесь не так? 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 (xy2) and (y

Question

Информатика

Анюша

9 июня, 19:20

Что здесь не так? 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 (xy2) and (y

+2

Ответы (2)

Знаете ответ на вопрос?

Анатолия · Answer 1

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 (xy1) and (y
writeln ('Точка с координатами принадлежит прямоугольнику ', a) ;

end.

И мне кажется, что было бы удобнее вводить сначала одни координаты (x1, y1), а затем другие (x2, y2) ...

Ксюта · Answer 2

Как бы написал я:

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 (xy2) and (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 (xy2) and (y
writeln ('Точка с координатами принадлежит прямоугольнику ', a) ;

end.