Работа с файлами

[Joxter]

Есть текст такой программы

"при заданных абсциссах X1,X2, … ,Xn и ординатах Y1,Y2, … ,Yn n точек плоскости X0Y подсчитать, сколько из них находится в пределах круга заданного радиуса R с центром в начале координат, а также среднее арифметическое расстояния от начала координат для всех заданных точек."

...А сам код выглядит так

program Project1;
uses
  SysUtils;

const MAX = 10;
var
  x,y:array[1..max] of real;
  i,n,c: byte;
  r,s,t: real;

BEGIN
writeln('Vvedite koli4estvo to4ek:');
readln(n);
writeln('Vvedite max radius:');
readln(r);

  for i:=1 to n do
  begin
    writeln('Vvedite kordinati to4ek XY',i,':');
    readln(x[i],y[i]);
  end;
  s:=0;
  c:=0;
  for i:=1 to n do
  begin
    t:=sqrt(sqr(x[i])+sqr(y[i]));
    s:=s+t;
    if (t<r) then
    inc(c);
  end;
  s:=s/n;

  writeln('Koli4estvo to4er v radiuse',r:5:1,':',c);
  writeln('Srednee rastoznie do centra:', s:5:1);
  readln;
END.

так вот нужно чтоб он из одного файла(созданного мной) брал данные, а в другой (также созданного мной) помещал результаты... не можете подсказать как это делать? Заранее спасибо)

[[Smarik]]

собственно ничего сложного

program Project1;
uses
  SysUtils;

const MAX = 10;
var
  x,y:array[1..max] of real;
  i,n,c: byte;
  r,s,t: real;
f:textfile;
f1,f2,f3:string;

BEGIN
writeln('Vvedite koli4estvo to4ek:');
readln(n);
writeln('Vvedite max radius:');
readln(r);

  for i:=1 to n do
  begin
    writeln('Vvedite kordinati to4ek XY',i,':');
    readln(x[i],y[i]);
  end;
  s:=0;
  c:=0;
  for i:=1 to n do
  begin
    t:=sqrt(sqr(x[i])+sqr(y[i]));
    s:=s+t;
    if (t<r) then
    inc(c);
  end;
  s:=s/n;
//записываем
assignfile(f,'file.txt');
rewrite(f);
writeln(r);//записываем содержимое переменную на 1 строку
writeln(c);//на 2
writeln(s);// на 3
closefile(f);
//считываем
assignfile(f,'file.txt');
reset(f);
readln(f,f1);//записываем в переменную f1 первую строку
readln(f,f2);//2 строку
readln(f,f3);//3 строку
closefile(f);
  writeln('Koli4estvo to4er v radiuse',r:5:1,':',c);
  writeln('Srednee rastoznie do centra:', s:5:1);
  readln;
END.

синтаксис к паскалю может немного не пожходить, уже забыл его просто =) там вроде стрингов нет и про assingfile сомневаюсь, возможно просто Assign

[puporev]

Создайте текстовый файл в папке с программой.
Запишите в первой строчке через пробел количество точек n и радиус r, например
20 6,5
Во второй строке через пробел координаты Х 20 штук, например
1,2 3,5 5,2 6,3 .........
В третьейй строке через пробел координаты У 20 штук, например
1,2 3,5 5,2 6,3 .........
Сохраните файл типа Tocki1.
В программе напишите

var
  f,g:text;

......................

assignfile(f,'tocki1.txt');
reset(f);
read(f,n,r);//читаем кол-во и радиус
readln; //переходим на новую строку
for i:=1 to n do
read(f,x[i]); //читаем координаты Х
readln;
for i:=1 to n do
read(f,y[i]);  //читаем координаты У

................................... ........

assign(g,'tocki2.txt');
rewrite(g);
writeln(g,'Koli4estvo to4er v radiuse',r:5:1,'=',c);
writeln(g,'Srednee rastoznie do centra:',s:5:1);
closefile(f);
closefile(g);
readln
END.

[Joxter]

спасибо большое!)

[Joxter]

Извините) что-то не очень, что значит???

Error in module Unit1: Declaration of class TForm1 is missing or incorrect

цветом ничего не выделяет