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

[izzie]

Здравствуйте, уважаемые.
Помогите в такой проблеме. Есть такой кусок кода, генератор прямой последовательности целых чисел:

procedure TForm1.Button1Click(Sender: TObject);
var
   F: file of integer;
   FileNameSrc : String;
   j: Integer;
begin
  FileNameSrc := ExtractFilePath(Application.ExeName) + '\File.txt';
  AssignFile(F, FileNameSrc);
  Rewrite(F);
  for j := 1  to 100 do
  begin
    a[i]:=j;
    Write(F, j);
  end;
  CloseFile(F);
end;

Как сделать так, чтобы он генерировал вещественные числа по порядку?

[Mad_Cat]

Как сделать так, чтобы он генерировал вещественные числа по порядку?

до какого знака?

[izzie]

2 после запятой

[Mad_Cat]

j:=-0.01;// j:real;
while j<=100 do
begin
j:=j+0.01;
Write(F, j);
end;

[izzie]

к сожалению таким способом в файл ничего не записывается..

[Mad_Cat]

к сожалению таким способом в файл ничего не записывается..

А если свой код показать - мамка наругает?
p.s У меня усе пишет в файлег

[izzie]

var
  Form1: TForm1;
   A:array[1..n] of real;
   Const n=100;
implementation

{$R *.dfm}
//Открытие
procedure TForm1.Button2Click(Sender: TObject);
Var
  k:real;
  FFile:File of real;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(FFile,OpenDialog1.FileName);
    Reset(Ffile);
    While not EOF(FFile) do
    begin
      Read(FFile,k);
	    ListBox1.Items.Add(FloatToStr(k));
    end;
  CloseFile(FFile);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   F: file of real;
   FileNameSrc : String;
   j:real;
   i: Integer;
begin
  FileNameSrc := ExtractFilePath(Application.ExeName) + '\File.txt';
  AssignFile(F, FileNameSrc);
  Rewrite(F);
  j:=-0.01;
  while j<=100 do
  begin
	j:=j+0.01;
        a[i]:=j;
    Write(F, j);
  end;
  CloseFile(F);
end;

но мамка наругала...

[izzie]

ups, уже все нормально. спасибо за отзывчивость и оказанную помощь)))

[Serge_Bliznykov]

Const n=100;
var
   A:array[1..n] of real;

...
while j<=100 do
  begin
      j:=j+0.01;
      a[i]:=j;
   end;

Код не рабочий!
Для чего a[i]:=j; ?! Ведь i в цикле не меняется?!! Да и начального присвоения i нет
Кроме того, а Вам не кажется, что массив a вообще не нужен? Или, как минимум, размер его должен соответствовать количеству числе (а это будет 100 /0.01 = 10000 чисел), если я не ошибся в устных подсчётах, конечно..

[izzie]

Кроме того, а Вам не кажется, что массив a вообще не нужен?

он используется далее в программе...в прочем не важно, уже ж все работает. Спасибо.