graphics output Опции

[turbo7]

I have a program that outputs some graphics to screen using graph.tpu(plot,dots, thise sort of things). I need to print thise output. Is there some way to output graphics to file?

[turbo7]

номер видеорежима? Whats that?  :-[

исходник:

uses crt,graph;
var i,j,n,x0,y0,xend,yend,xbeg,ybeg,grd,grm:integer;
temp,sumx,sumxx,sumy,sumyy,sumxy,a,al,bl:real;
x,y: array[1..500] of integer;
begin
clrscr;
grD:= Detect;
InitGraph(grD, grM,' ');
randomize;
n:=200;
sumx:=0;
sumxx:=0;
sumy:=0;
sumyy:=0;
sumxy:=0;
{imitation of sample group}
for i:=1 to n do begin
x[i]:=random(170)+1;
y[i]:=random(150);
end;
for i:=1 to n do begin
sumx:=sumx+x[i];
sumy:=sumy+y[i];
sumxx:=sumxx+x[i]*x[i];
sumyy:=sumyy+y[i]*y[i];
sumxy:=sumxy+x[i]*y[i];
end;
A:=n*sumxx-sqr(sumx);
al:=1/a*(n*sumxy-sumy*sumx);
bl:=1/a*(sumxx*sumy-sumxy*sumx);
outtext('the minimum square method');
y0:=gety+250;
x0:=getx-100;
line(x0,y0,x0+200,y0);
line(x0,y0,x0,y0-200);
outtextxy(x0-15,y0-180,'y');
outtextxy(x0+180, y0+10, 'x');
for i:=1 to n do
putpixel(x[i]+x0,-y[i]+y0, magenta);
xbeg:=x0;
ybeg:=y0-round(bl);
xend:=x0+170; {the biggest value of x that can be}
yend:=y0-round(al*xend+bl);
line(xbeg,ybeg,xend,yend);
readln;
end.