точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2)

@Mironov · Регистрация: 07.11.2010

Author24 — интернет-сервис помощи студентам

Как Написать следующее выражение на языке Pascal: точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2).
Ребята подскажите пожалуйста! Заранее спасибо!

@Glacius · 12.11.2010, 14:03

Pascal

Var 
    x, y, x1, y1, s, r : Real;
Begin
Readln(x1,y1,x,y,r); {x1, y1 - координаты точки, x, y - центр окружности, r - радус}
s := sqrt( sqr(x - x1) + sqr(y - y1));
if s<r then 
    writeln('Точка лежит в окружности')
else 
    writeln('Точка НЕ лежит в окружности')
End.

@Puporev · 12.11.2010, 14:13

Сообщение от Mironov

Как Написать следующее выражение

Pascal

1
2
3

var f:boolean;
......
f:=sqrt( sqr(x - 5) + sqr(y - 2))<r;

@Mironov · 12.11.2010, 14:17 **[ТС]**

Цены нет этому форуму и людям на нем ! всем спасибо!

@Mironov 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 8
		1
	точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2) 12.11.2010, 13:53. Показов 5189. Ответов 3 Метки нет (Все метки) Как Написать следующее выражение на языке Pascal: точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2). Ребята подскажите пожалуйста! Заранее спасибо! 0

@Mironov 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 8
	12.11.2010, 14:17 [ТС]	4
	Цены нет этому форуму и людям на нем ! всем спасибо! 1