Проблема с записью в файл Опции

[klem4]

Помогите!!)

Не могу понять вообще ничего. Вот написал маленькую программку для проверки :

Исходный код

Uses Crt;
Type
TRec=Record
x,y:integer;
End;
Var
f:File of TRec;
TR:TRec;
i:Integer;
Begin
Clrscr;
Assign(f,'test');
Rewrite(f);
For i:=1 to 5 do
With TR do
begin
x:=x+100;
y:=y+1;
write(f,tr);
end;
close(f);
assign(f,'test');
reset(f);
while not(eof(f)) do
begin
read(f,tr);
with TR do
begin
write('x=',x,' y=',y);
writeln;
end;
end;
close(f);
readln;
end.

А вот вторая, которая должна работать по принципу первой, записывать значение Х и соответствующее ему У, но она этого не делает :
(использован шаблон построения граффиков Oleg_Z'a)

Исходный код

{$N+}

{$E+}
Uses Graph,crt;

type

TRec=record

xx,yy:extended;

end;

const

{ OPTIONS }

shag=0.0001;

lgr = 3;

pgr = 10;

zcrtX=320;

zcrty=240;

mtrX=10;

mtrY=10;

colorG=15;

colorOXY=4;

OXYminX=-200;

OXYmaxX=200;

OXYminY=-200;

oxymaxY=200;

Var grDriver : Integer;

grMode : Integer;


x,y : extended;

i : integer;

f : file of TRec;

TR : TRec;

Begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);

for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;

assign(f,'OutFile');

rewrite(f);


while x<=pgr do

begin

y:=(x*x*x+2*x+3)/(x+sqrt(x));

putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);

x:=x+shag;

with TR do

begin

xx:=x-shag;

yy:=y;

write(f,TR);

end;

end;

close(f);

readkey;

closegraph;


end.

Я осознаю, что написал чушь.
Подскажите что-нибудь

Сообщение отредактировано: klem4 - 12.04.2005 17:59