- 23.06.2016 11:27
- Информатика
- remove_red_eye 18203
- thumb_up 32
Ответы и объяснения 1
должны выполняться следующие условия
y>-x+1
y>x-1
(x-1)^2+y^2<1
var
x,y:real;
begin
for i:=1 to 5 do
begin
x:=random*4-2;
y:=random*4-2;
if (y>-x+1) and (y>x-1) and (((x-1)*(x-1)+y*y)<1) then
writeln('x=',x:8:2,' y=',y:8:2,' принадлежит')
else
writeln('x=',x:8:2,' y=',y:8:2,' не принадлежит')
end;
end.
- 24.06.2016 03:36
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.