Геометрия,файлы,последовательности.

uses crt;
type fail=file of real;
procedure WriteFile(var f:fail;name:string);
var r:real;
    c:char;
begin
assign(f,name);
rewrite(f);
writeln('Введите в файл ',name,' действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
if r<>0 then write(f,r);
until r=0;
clrscr;
close(f);
end;
procedure ReadFile(var f:fail;name:string);
var r:real;
begin
writeln(' Файл ',name);
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
end;
procedure CopyFile(var f,g:fail);
var r:real;
begin
reset(f);
rewrite(g);
while not eof(f) do
 begin
  read(f,r);
  write(g,r);
 end;
close(g);
close(f);
end;
var f1,f2,f3,f4,f5,h:fail;
begin
clrscr;
assign(h,'FileH');
WriteFile(f1,'File1');
WriteFile(f2,'File2');
WriteFile(f3,'File3');
WriteFile(f4,'File4');
WriteFile(f5,'File5');
writeln('Содержание исходных файлов:');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
CopyFile(f5,h);
CopyFile(f3,f5);
CopyFile(f1,f3);
CopyFile(h,f1);
CopyFile(f4,h);
CopyFile(f2,f4);
CopyFile(h,f2);
writeln('Содержание измененных файлов:');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
erase(h);
readln
end.

uses crt,graph;
function F(x:real):real;
var c:real;
begin
c:=(x*x-2*x-3)/(2*x*x+2*x);
if c>0 then F:=arctan(sqrt(1-c*c)/c)*180/pi
else F:=180+arctan(sqrt(1-c*c)/c)*180/pi;
end;
var xc,yc,px,py,i,n:integer;
    x,xn,xk,y,mx,my,dx:real;
    s:string;
begin
clrscr;
writeln('Oblast opredelenya x>1');{x>x+2-x-1}
xn:=1.01;
repeat
write('Xkonechnoe > ',xn:0:2,' xk=');
readln(xk);
until xk>xn;
xc:=0;
initgraph(xc,yc,'');
{начало координат слева внизу}
xc:=50;
yc:=getmaxY-50;
{масштабы по осям}
mx:=(getmaxX-2*xc)/(xk-xn+1);
my:=(yc-40)/180;
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,yc,getmaxX,yc);{оси}
line(xc,0,Xc,getmaxY);
if  round(xk)>18 then n:=round(xk)
else n:=18;
for i:=0 to n do{максимальное количество засечек в одну сторону}
  begin
    line(xc-3,yc-round(10*i*my),xc+3,yc-round(10*i*my));{засечки на оси У}
    line(xc+round(i*mx),yc-3,xc+round(i*mx),Yc+3); {засечки на оси Х}
    str(10*i,s);
    {подпись оси У}
    outtextXY(xc-25,yc-round(10*i*my),s);{соответственно засечкам}
    {подпись оси Х}
    str(i,s);
    outtextXY(xc+round(i*mx),yc+10,s);
   end;
{центр}
outtextXY(xc+5,yc+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,yc-10,'X');
outtextXY(xc-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=xc+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=yc-round(y*my);{в экранных}
     putpixel(px,py,12);
   end;
readln
end.

uses crt,graph;
var xc,yc,r,x,y:integer;
    t:real;
begin
clrscr;
writeln('Vvedite koordinaty i radius okruznosti,');
writeln('celye polozitelnye chisla:');
readln(xc,yc,r);
x:=0;
initgraph(x,y,'');
t:=0.0;
while t<1 do
 begin
  x:=xc+round(r*(1-t*t)/(1+t*t));
  y:=yc+round(r*2*t/(1+t*t));
  putpixel(x,y,12);
  x:=xc+round(r*(1-t*t)/(1+t*t));
  y:=yc-round(r*2*t/(1+t*t));
  putpixel(x,y,12);
  x:=xc-round(r*(1-t*t)/(1+t*t));
  y:=yc+round(r*2*t/(1+t*t));
  putpixel(x,y,12);
  x:=xc-round(r*(1-t*t)/(1+t*t));
  y:=yc-round(r*2*t/(1+t*t));
  putpixel(x,y,12);
  t:=t+0.001;
 end;
readln
end.