Что здесь не так? 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<y1);
writeln ('x=a');
writeln ('y=a');
writeln ('Точка с координатами принадлежит прямоугольнику', a);
end.
Ответы на вопрос
Ответил elenaklon
0
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>y1)and (y<y2);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
И мне кажется, что было бы удобнее вводить сначала одни координаты (x1,y1), а затем другие (x2,y2)...
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)...
Ответил Giammy
0
Если брать за вершины верх левый и низ правый то будет правильно (y>y2)and(y<y1)
Ответил Giammy
0
Если брать за вершины низ левый и верх правый то будет правильно (y>y1)and (y<y2)
Ответил elenaklon
0
Что-то я туплю... Тогда разве x не должны тоже меняться?
Ответил Giammy
0
х местами не меняется он как был справа и с лева так и остался, он поменял свое положение сверху вниз и наоборот
Ответил Giammy
0
Если не понимаете могу графически объяснить)
Новые вопросы
Литература,
2 года назад
Математика,
2 года назад
Химия,
8 лет назад
Литература,
9 лет назад
Математика,
9 лет назад