как справиться ?

[Алексей325]

Как решить эти задачи?

1.Проверить попадает ли точка в окружность заданная своим центром и радиусом.
2.Задать массив точек и определить сколько из них попадает вокружность.Добавить обрабочик ошибок.

[asmodey1]

Сообщение от Алексей325

Как решить эти задачи?

Посмотреть повыше - там персонально для вас раздел "Помощь студентам"...

[GunSmoker]

1.Проверить попадает ли точка в окружность заданная своим центром и радиусом.

Ээээ... это какой класс школы? восьмой?

[niki2012]

1.

var
ox, oy, R, px, py: integer;
popadaet: boolean;
begin
  ReadLn(ox,oy,r,px,py);
  if sqrt((ox-px)^2+(oy-py)^2)<R then popadaet:=true;
end;

PS.: И кстати, да, это восьмой класс

2.

var
ox, oy, R, count, i: integer;
px, py: array of integer;
begin
  //вводим  ox, oy, r, px[], py[]
  count:=0;
  For i:=0 to length(px) do  
    if sqrt((ox-px[i])^2+(oy-py[i])^2)<R then count:=count+1;
end;

[Алексей325]

ну в общем это нужно сделать на Delphi 7 кто может решить?

[niki2012]

Алексей, а мои предыдущие два поста по вашему что?

[GunSmoker]

Проси 1000 рублей.

[niki2012]

Видимо он в упор не видит что я ему уже написал решение)

[Алексей325]

Я же говорю на Фелфи седьмой а ты мне на паскале пишешь...если не можешь написать правиль то напиши плиз...и лучше подробно а то я понять хочу а не просто списать!!!

[}|{opa KopHeB]

http://ru.wikipedia.org/wiki/Delphi_...D0%B8%D1%8F%29


Читай внимательно первые 3 строчки