Обработка текстовых файлов

[belka2948]

ребята, помогите, пожалуйста, нужно в делфи написать лабу...
Создать текстовый(е) файл(ы), содержащий(е): координаты трех точек на плоскости. Установить их принадлежность кругу радиуса R с центром в начале координат.
только мне очень срочно надо, помогите...

[Serge_Bliznykov]

"срочно", да ещё и без наработок (т.е. фактически сделать полностью всё за вас) - это Вам в раздел фриланса лучше обратиться.

а вообще, задание элементарнейшее. что не можете - прочитать три пары чисел из текстового файла? или по числам Xi Yi определить, входит ли точка в круг радиуса R ?!

вот набросок решения:

const R = 100; {радиус}
var f : Textfile;
  i, X, Y : Integer;
begin
  AssignFile(f, 'тутПуть\Ваш текстовый файл.txt');
  Reset(f);
  for i:=1 to 3 do begin
    Readln(X, Y);
    if sqr(x)+sqr(y)<=sqr(R) then ShowMessage(IntToStr(i)+'-я точка входит в круг.')
    else ShowMessage(IntToStr(i)+'-я точка НЕ входит в круг.')
  end;
  CloseFile(f)
end;