проверить лежит ли точка внутри графика

[Donbass]

h9yhv8vumrA.jpg
составить программу, определяющую принадлежность точки заштрихованной области.

[digitalis]

Товарисч, а ещё меньше по размеру рисунок не мог приложить? Или микроскоп к вопросу прикошачить?

[Donbass]

digitalis, товарисч, там все отлично видно. Зеленый график это гипербола, красный это 10-х^2 а желтый это x^2-10

[Donbass]

h9yhv8vumrA.jpgdigitalis,

[digitalis]

Ну вот - можешь, если захочешь. Так там, оказывается, и жёлтый график был!
А помогать не буду - чтоб не грубил.
Жёлтого в упор не вижу жёлтым по белому - чудо маскировки. Чтоб неприятель не углядел?

[Donbass]

digitalis, мог бы сразу признаться, что бессилен ведь я тебе не грубил. Старожиле сохранение внешней самооценки дороже признания поражения.

[digitalis]

Это приём детсадовца: "а тебе слабо... ?" Такие зупер-сложные задачки мой внук-пятикласник решает не задумываясь между двумя ходами в нарды. Нарисовать звистюльку размером с ноготь и утверждать, что там всё видно - это равносильно "протри глаза, .... !"
Чтобы попытаться включить твою бо'шку даю вводную:

function in_out(x,y:real): boolean ;
begin
    in_out := (x>0) and  (,,,)  and ( (,,,) or (,,,) );
end ;

/////////////////
  if (in_out(2.1,3.4)) then writeln ('In')  else writeln ('Out') ;

Ну а дальше - сам. 1 строчкa...