Помогите пж. Я в програмировании дуб.А завтра сдавать! Ставлю лучшее решение. Нужно написать программы для этих фигур(вложение) Тема:принадлежащие точки заштрихованной области
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
read(x, y);
if (sqr(x)+sqr(y)<=25) then
begin if (x<=0) and (y>=0) then writeln('Принадлежит') else
begin
if (y<=0) and (x<=0) then writeln('Принадлежит') else
begin
if (x>=0) and (y<=0) then writeln('Принадлежит') else writeln('Не принадлежит');
end;
end;
end;
end.
2) var x, y:integer;
begin
read(x, y);
if (x+y<=6) and (x>=0) and (y>=0) then writeln('Принадлежит') else
begin
if (x+y>=-6) and (x<=0) and (y<=0) then writeln('Принадлежит') else
writeln('Не принадлежит');
end;
end.
3) var x, y:integer;
begin
read(x, y);
if (x>=2) and (sqr(x)+sqr(y)<=64) then writeln('Принадлежит') else writeln('Не принадлежит');
end.
4) var x, y:integer;
begin
read(x, y);
if (x>=-5) and (x<=-2) and (y>=0) and (y<=6) then writeln('Принадлежит') else
begin
if (x>=-2) and (x<=2) and (y>=2) and (y<=6) then writeln('Принадлежит') else
begin
if (x>=2) and (x<=6) and (y>=2) and (y<=6) then writeln('Принадлежит') else writeln('Не принадлежит');
end;
end;
end.