Составить программу
Вложений: 1
|
Для решения задачи вам нужно запросить координаты точки, затем проверять принадлежность по следующему условию "если точка лежит во внешнем круге и не лежит во внутреннем, то принадлежит, иначе не принадлежит".
Код:
if ((sqr(x)<100-sqr(y))) or (sqr(x)=100-sqr(y)))) and (sqr(x)>25-sqr(y))) then writeln('принадлежит') else writeln('не принадлежит'); |
Лёша, а почему только Паскаль? Раз человек не счёл нужным указать язык программирования, значит Ваш долг - выложить варианты еще и на СИ, Фортране, Алголе-60, Коболе, Аде, ПЛ'е, Модуле-2 и Ассемблере. Как минимум. Можно еще пару-тройку добавить. Чтобы человек мог выбрать.
|
Ну, на ассемблере листинг немного другой будет, а сишный код почти совпадает, за исключением операторов вывода и возведения в степень :))
|
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. так? но там ошибка,не пойму что не так |
Цитата:
|
увидел)поменял
какие еще проблемы?) |
подскажите пожалуйста
|
Цитата:
|
хорошо
спасибо |
Часовой пояс GMT +4, время: 05:57. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.