Вывести TRUE, если точка с координатами (x;y) принадлежит закрашенной области

@darth__vader · Регистрация: 21.07.2012

Author24 — интернет-сервис помощи студентам

Для данной области составить линейную программу, которая печатает TRUE, если точка с координатами (x;y) принадлежит закрашенной области , и FALSE-в противном случае:

Pascal

program q;
var x,y: real;
    p:boolean;
begin
writeln(' Введите x, y');
readln(x,y);
p:=(-5*x+3*y>=-1) and (1*x+6*y<=22) and (4*x+3*y<=14);
writeln('p=', p);
end.

@ermolay · 09.01.2013, 07:24

вроде так:

Pascal

program q;
 
var
  x, y: real;
  p: boolean;
 
begin
  writeln(' Введите x, y');
  readln(x, y);
  p := (y <= 4 * x / 3 + 2 / 3) 
    and (y >= -x / 6 - 7 / 3) 
      and (y <= -5 * x / 3 + 11 / 3);
  writeln('p=', p);
end.

Добавлено через 6 минут
вроде правильно работает, но упрямо не выдает угловые точки треугольника, хотя должна.. Отношу это к погрешностям вычисления, а не ошибкам составления уравнения

	09.01.2013, 07:24