Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблема с записью в файл
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
klem4
12.04.2005 21:58
Помогите!!)

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

Исходный код
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.



Я осознаю, что написал чушь.
Подскажите что-нибудь sad.gif
Romtek
12.04.2005 22:28
А можно поконкретнее? Задание какое?
Что не так работает?
klem4
12.04.2005 22:33
Там где вотрая программа, с графиком, нужно записать в файл значения X и соответствующее ему f(x).
volvo
12.04.2005 22:43
klem4, что значит "не делает"? Вынеси Write из оператора With, и запусти... 
with TR do begin
  xx:=x-shag;
  yy:=y;
end;
write(f,TR);

Мне эта программа только что создала файл размером 1.33М...

Другое дело, что это - не текстовый файл, и ты не можешь его просмотреть в текстовом редакторе, но ты же сам описал его как File Of TRec
klem4
12.04.2005 22:53
Спасибо, щас поправлю!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.