Bogdanghost

не знаю как делать
надеюсь,поможете новичку

AlexZir

Для решения задачи вам нужно запросить координаты точки, затем проверять принадлежность по следующему условию "если точка лежит во внешнем круге и не лежит во внутреннем, то принадлежит, иначе не принадлежит".
В данном условии исключен случай, когда точка лежит на внутренней окружности, но это вы сами уже допишите.

Vladimir_S

Лёша, а почему только Паскаль? Раз человек не счёл нужным указать язык программирования, значит Ваш долг - выложить варианты еще и на СИ, Фортране, Алголе-60, Коболе, Аде, ПЛ'е, Модуле-2 и Ассемблере. Как минимум. Можно еще пару-тройку добавить. Чтобы человек мог выбрать.

AlexZir

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

Bogdanghost

program Kolcho;
var x,y,v: real; otvet:char;
Rb:=10;
rm:=5;
begin
writeln('введите значение х');
readln(x);
writeln('введите значение y');
readln(y);
v:=x*x+y*y;
if ((sqr(x)<100-sqr(y))) or (sqr(x)=100-sqr(y))) and (sqr(x)>25-sqr(y))) then writeln('принадлежит')
else writeln('не принадлежит');
end.
так?
но там ошибка,не пойму что не так

Vladimir_S

Да много что. А прежде всего, Вы вводите значения Rb и rm, как значения переменных, но при этом сами эти переменные в разделе Var начисто отсутствуют.

Bogdanghost

увидел)поменял
какие еще проблемы?)

Bogdanghost

подскажите пожалуйста

Vladimir_S

Завтра утром. Раньше не получится.

Bogdanghost

хорошо
спасибо