ibird777

30.03.2021

3. Точка А задана координатами X, Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области и «не принадлежит» в противном случае протестировать программу для точек (0, 0), (2, 2), (0.5, 0.5), (0.5, -1.5), (-0.5, 0.5), (-2, -1), (-1, -2), (-1, 1), (2, 0

Информатика

Ответить

Ответы

buhtovarish

30.03.2021

program chik;

var x,y:real;

begin

readln(x,y);

if((y<=2)and(x>=-3)and(x<=2)and(y>=0))or

((y<=0)and(x>=-1)and(x<=1)and(y>=-1)and(x*x+y*y<=1))then

writeln('ПРИНАДЛЕЖИТ')else writeln('Не принадлежит');

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

3. Точка А задана координатами X, Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области и «не принадлежит» в противном случае протестировать программу для точек (0, 0), (2, 2), (0.5, 0.5), (0.5, -1.5), (-0.5, 0.5), (-2, -1), (-1, -2), (-1, 1), (2, 0

▲

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Надо написать код на питоне: надо вести х и у и определить находится ли их точка на координате в зарисованной области 3 разных кода на три

Запусти Pascal. Введи программу. program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln (sum); writeln (umn); readln; end. Ре...

Var i, j:longint; flag, n:byte; begin n:=1; for i:= 2943444 to 2943529 do begin flag:=0; for j:= 2 to i div 2 do if i mod j =0 then begin flag:= 1; break; end; if flag=0 then beg...

К естественной классификации относится: 1) классификация частей речи 2) классификация созвездий 3) книжный каталог 4) классификация автомобилей

создайте виртуальный тур на свой выбор. это может быть тур по музею, торгово-развлекательному центру, по городу.

переписать код без процедуры функции длины var x1, y1, x2, y2, x3, y3, p:real; function dlina(a1, b1, a2, b2:real):real; begin dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2)); end; begin writeln('Введите ко...

Дана сторона квадрата . найдите его площадь и периметр

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Надо написать код на питоне: надо вести х и у и определить находится ли их точка на координате в зарисованной области 3 разных кода на три

Запусти Pascal. Введи программу. program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln (sum); writeln (umn); readln; end. Ре...

Var i, j:longint; flag, n:byte; begin ​n:=1; ​for i:= 2943444 to 2943529 do begin ​​flag:=0; ​​for j:= 2 to i div 2 do ​​​if i mod j =0 then begin ​​​​flag:= 1; ​​​​break; ​​​end; ​​if flag=0 then beg...

К естественной классификации относится: 1) классификация частей речи 2) классификация созвездий 3) книжный каталог 4) классификация автомобилей

создайте виртуальный тур на свой выбор. это может быть тур по музею, торгово-развлекательному центру, по городу.​

переписать код без процедуры функции длины var x1, y1, x2, y2, x3, y3, p:real; function dlina(a1, b1, a2, b2:real):real; begin dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2)); end; begin writeln('Введите ко...

Дана сторона квадрата . найдите его площадь и периметр

Var i, j:longint; flag, n:byte; begin n:=1; for i:= 2943444 to 2943529 do begin flag:=0; for j:= 2 to i div 2 do if i mod j =0 then begin flag:= 1; break; end; if flag=0 then beg...

создайте виртуальный тур на свой выбор. это может быть тур по музею, торгово-развлекательному центру, по городу.