Предмет: Информатика, автор: aidana1515

написать программу которая выясняет точка (x,y)заштрихованной фигуре c<R x<0 y>0

Приложения:

aidana1515: срочно помогите решить!!!

Ответы

Автор ответа: Ziorar
1

var

 x, y, R, c: real;

begin

 c := 2; // тут задаётся радиус (на доске он вроде равен двум)

 Write('введите через пробел координаты x, y: ');

 Read(x, y);

 R := Sqrt(Sqr(x) + Sqr(y));

 if (c < R) and (x < 0) and (y > 0) then

   Write('точка принадлежит данной фигуре')

 else Write('точка не принадлежит данной фигуре');

end.


Второй скрин- показывает данную фигуру (заполнена случайными точками).

Приложения:
Похожие вопросы
Предмет: Алгебра, автор: илья1096