Для данной области составить линейную программу

[JL25A]

Для данной области составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае

вот что я набросал, но тут ошибки в коде..что не так? Подскажите пожалуйста

var x,y: real;
    ind:integer;
begin
 write('Введите x: '); readln(x);
 write('Введите y: '); readln(y);
ind:=0;
if (x>-3) and (x<0) then 
if (y>0) and sqrt(9-x*x) then ind:=1;
if (x>0) and (x<6) and (y>0) and (y<3-x/2) then ind:=1;
if(ind=1) then 
writeln('true') else writeln('false'); 
readln;
end.

[Alex11223]

Например, sqrt(9-x*x) вылез за скобки. Да и это выражение должно вернуть true или false, а не корень из чего-то там, как и

(y<3-x/2)

[Vanta11a]

if (x > -3) and (x < 6) and  (y > 0) and (y < 3) and (x * x + y * y < 9) and (x + 2 * y -6 < 0) then

Примерно так

[Serge_Bliznykov]

Vanta11a, общая идея правильная.

только нужно всё таки по диапазонам разделять.
вот, например, если ввести X=3 и Y=1 - получите, что точка не входит!

я бы предложил примерно так:

WriteLn(
 ((x > -3) and (x < 0) and  (y > 0) and (x * x + y * y < 9))
 or ((x > 0) and (x < 6)  and (y > 0) and (y < 3) and (x + 2 * y -6 < 0)))

[JL25A]

Сообщение от Vanta11a

if (x > -3) and (x < 6) and  (y > 0) and (y < 3) and (x * x + y * y < 9) and (x + 2 * y -6 < 0) then

Примерно так

спасибо тебе большое, выручил

Сообщение от Serge_Bliznykov

Vanta11a, общая идея правильная.

только нужно всё таки по диапазонам разделять.
вот, например, если ввести X=3 и Y=1 - получите, что точка не входит!

я бы предложил примерно так:

WriteLn(
 ((x > -3) and (x < 0) and  (y > 0) and (x * x + y * y < 9))
 or ((x > 0) and (x < 6)  and (y > 0) and (y < 3) and (x + 2 * y -6 < 0)))

Благодарю)

[Serge_Bliznykov]

JL25A, обратите внимание на мой пост выше!

да и if в данной программе совсем не нужен (просили же составить ЛИНЕЙНУЮ программу)!

[JL25A]

Сообщение от Serge_Bliznykov

JL25A, обратите внимание на мой пост выше!

да и if в данной программе совсем не нужен (просили же составить ЛИНЕЙНУЮ программу)!

Вот мне уже помогли составить программу, тут полегче вроде как)

var x,y: real;
    f:boolean;
begin
 write('Введите x: '); readln(x);
 write('Введите y: '); readln(y);
f:=((x>=-3)and (x<=0)and(y>=0) and (y<=sqrt(9-x*x)))
 or((x>0)  and (x<=6)and (y>=0)and (y<=3-x/2));
write(f);
end.

[Serge_Bliznykov]

тут полегче вроде как)

а по моему - то же самое!

ну, во-первых, согласен. Это вполне себе рабочая программа.
Но можно и проще.
я же такой вариант предлагал (вот ПОЛНЫЙ код программы):

var x,y: real;
begin
 write('Введите x: '); readln(x);
 write('Введите y: '); readln(y);
 WriteLn(
 ((x > -3) and (x < 0) and  (y > 0) and (x * x + y * y < 9))
 or ((x > 0) and (x < 6)  and (y > 0) and (y < 3) and (x + 2 * y -6 < 0)));
  Readln; {Ждем нажатия Enter (это чтобы программа сразу не закрывалась) }
end.

да. есть только одна ПРИНЦИПИАЛЬНАЯ разница:
если точка попадает на границу области - считать, что она принадлежит области или нет..
если неравенства строгие (как у меня) - то точки на границах НЕ ВХОДЯТ в область,
если неравенства нестрогие (как у Вас) - то входят.
А как правильно - решать Вам (обычно в условиях задачи это оговаривается,
если не оговорено - программист волен поступать так, как он сам считает нужным/правильным!).