Question

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

Answer 1

Например, такая программа (проверено в PascalABC.NET 3.4.2, сборка 1837 от 12.10.2018)

begin

var f: boolean;

var g := ReadChar('выберите график (а,б,в,г):');

var x := ReadReal('x=');

var y := ReadReal('y=');

case g of

'а': f := y<=1;

'б': f := y<=-x;

'в': f := sqr(x)+sqr(y)<=1;

'г': f := sqr(x-1)+sqr(y)<=1;

else write('нет такой буквы'); exit;

end;

write((f ? '' : 'не ') + 'принадлежит');

end.