Входит ли точка в окружность

[poskalforever]

Вот написал прогу по нахождению точки входящей в фигуру но не знаю ка ксделать так что бы координаты точки читал с файла текстовика и туда же вписывал результат.Подскажите плиз.

program ToChka;
uses crt;
var x,y:integer;
BEGIN
clrscr;
writeln('x ');
readln(x);
writeln('y ');
readln(y);
if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('TTPEHADJlE}|{UT')
else
writeln('He TTPEHADJlE}|{UT');
readln;
END.

[alex_fcsm]

Во-первых, структура текстовика - как там расположены значения координат;во-вторых, что за фигура?

[poskalforever]

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

Во-первых, структура текстовика - как там расположены значения координат;во-вторых, что за фигура?

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

[alex_fcsm]

Раз так, то предположим что каждая координата на новой строке, тогда

assign(f,'Myfile.txt');
reset(f);
while not(eof(f)) do 
 begin
  readln(f,x);
  readln(f,Y);
if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('TTPEHADJlE}|{UT')
else
writeln('He TTPEHADJlE}|{UT');
 end;

По поводу проверки на принадлежность - у вас что-то непонятное первые два условия похожи на прямоугольник, третье на, наоборот, отсутствие в круге с центром(4;2) и радиусом 2, хотя может так и нужно)))

[poskalforever]

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

Раз так, то предположим что каждая координата на новой строке, тогда

assign(f,'Myfile.txt');
reset(f);
while not(eof(f)) do 
 begin
  readln(f,x);
  readln(f,Y);
if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('TTPEHADJlE}|{UT')
else
writeln('He TTPEHADJlE}|{UT');
 end;

По поводу проверки на принадлежность - у вас что-то непонятное первые два условия похожи на прямоугольник, третье на, наоборот, отсутствие в круге с центром(4;2) и радиусом 2, хотя может так и нужно)))

Скорее всего я чтото напутал..... А нет у вас программы готовой которая находит принадлежность точки именно прямоугольника с выводом информации в файл ну и считывания с файла естественно )

[alex_fcsm]

Так в чем проблема эту доделать?

[poskalforever]

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

Так в чем проблема эту доделать?

Хотя и то так плучаетсья из формулы нужно убрать ту часть где начинаеться квадрат

[alex_fcsm]

Вы пробуйте, если есть вопросы задавайте

[poskalforever]

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

Вы пробуйте, если есть вопросы задавайте

Вот то что вы добавили с текстовиком его вставляь начинаю с program ***; или только то что вы написали?

[alex_fcsm]

uses crt;
var x,y:real;
     f:text;
begin
clrscr;
assign(f,'c:\1\Myfile.txt');
reset(f);
while not(eof(f)) do
 begin
  read(f,x);
  read(f,Y);
if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('(',x:3:1,';',y:3:1,')','TTPEHADJlE}|{UT')
else
writeln('(',x:3:1,';',y:3:1,')','He TTPEHADJlE}|{UT');
 end;
close(f);

end.

P.S. Создайте файл с координатами
--------------
1
2
3
4
5
6
1.2
4.5
--------------