Что здесь не так? 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
writeln ('x=a') ;

writeln ('y=a') ;

writeln ('Точка с координатами принадлежит прямоугольнику', a) ;

end.

Question

Информатика

Беатриса

1 сентября, 13:39

Что здесь не так? 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
writeln ('x=a') ;

writeln ('y=a') ;

writeln ('Точка с координатами принадлежит прямоугольнику', a) ;

end.

+5

Ответы (2)

Знаете ответ?

Надюра · Answer 1

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

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.

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

end.

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