Определить, принадлежит ли точка заданной области - Pascal ABC

  1. нужная область-заштрихованная. радиус равен 4


textual

Код к задаче: «Определить, принадлежит ли точка заданной области - Pascal ABC»

var r,x,y:real;
    f1,f2,f3,f4:boolean;
begin
repeat
write('Введите радиус r=');
readln(r);
until r>0;
writeln('Введите координаты точки');
readln(x,y);
f1:=sqr(x+r)+y*y<=r*r;
f2:=x*x+y*y>=r*r;
f3:=x*x+y*y<=r*r;
f4:=sqr(x-r)+y*y<=r*r;
if(f1 and f2)or(f4 and f2)
or(f3 and not f1 and not f4)
then write('Принадлежит') else write('Не принадлежит');
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5



Похожие ответы
  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Проверить, какому интервалу принадлежит данное действительное число d: (-16, 2), (4, 10) или (14, 36). Если число d не принадлежит не одному из интервалов, то выдать соответствующее сообщение. И если не сложно в Си# как эта же задача будет выглядеть?

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. 13.Составить алгоритм и написать решение задачи на Паскале: Проверить, принадлежит ли точка одному из отрезков (2, 5) и [6,5, 19). Координата точки вводится пользователем с клавиатуры.Помогите пожалуйста!!

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь