запись в файл

[IgoreKMaN]

Последовательность x1,x22 образована по закону x:=(k-0.1)/((k*k*k)+(abs(sin(2*k)/cos(2*k)))); , (k=1,2.... ). Дано действительное e>0 . Записать в файл h члены последовательности x1,x2... , остановившись после первого члена, для которого выполнено x<e.
Программа записывает в файл последнее число, а нужно записывать все от х1 до хn
Программа на Turbo pascal
Помогите пожалуйста!

Program KR;
uses crt;
var x,e: real;
    i,n,k: integer;
    h:text;
Begin
clrscr;
{Writeln('vvedite k',k);
readln(k); }

x:=0;
  if x<0 then
  begin
  FOR k := 1 to n do
x:=(k-0.1)/((k*k*k)+(abs(sin(2*k)/cos(2*k))));
end
else
assign(h,'D:\1.txt');
reset(h);
rewrite(h);
writeln(h,x);
close(h);
{
writeln('rezult',x);}
readkey;
end.

[Stilet]

Program KR;
uses crt;
var x,e: real;
    i,n,k: integer;
    h:text;
Begin
clrscr;
{Writeln('vvedite k',k);
readln(k); }

assign(h,'D:\1.txt');
rewrite(h);
FOR k := 1 to n do begin
 x:=(k-0.1)/((k*k*k)+(abs(sin(2*k)/cos(2*k))));
 writeln(h,x);
end
close(h);
readkey;
end.

Подходит?

[IgoreKMaN]

чет не хочет

[Stilet]

при этом коде он вообще ничего не записывает в файл

Еще бы. А подумать? n у тебя где вводится? ась?

[IgoreKMaN]

n у нас не известно т.к. повторять цикл надо до тех пор пока х не станет меньше нуля

[Stilet]

Ну замени FOR на while с нужным условием

[IgoreKMaN]

уже поменял)) все ровно в файл 1 значение записывает(последнее)

Program KR;
uses crt;
var x,e: real;
    i,n,k: integer;
    h:text;
Begin
clrscr;
{Writeln('vvedite k',k);
readln(k); }


while x>0  Do

x:=(k-0.1)/((k*k*k)+(abs(sin(2*k)/cos(2*k))));

assign(h,'D:\1.txt');
reset(h);
rewrite(h);
writeln(h,x);

close(h);

readkey;
end.

[Stilet]

все ровно

Все ровно ты ничего не понял... Читай мой пример до полного просветления. Удачи.

[IgoreKMaN]

судя по твоему примеру оно должно выглядеть так(как я понимаю)?

 Program KR;
uses crt;
var x,e: real;
    i,n,k: integer;
    h:text;
Begin
clrscr;
{Writeln('vvedite k',k);
readln(k); }

assign(h,'D:\1.txt');
rewrite(h);

while x>0 Do

 x:=(k-0.1)/((k*k*k)+(abs(sin(2*k)/cos(2*k))));
 writeln(h,x);

close(h);
readkey;
end.

[Stilet]

Да. Так. Если не учитывать что ты забыл о необходимости поместить вывод в файл внутрь цикла.