Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел

[prelest']

var f:file of real;
n:integer;
i:integer;
filef:string;
begin
write('Имя');
readln(FileF);
assign(f,Filef);
rewrite(f);
writeln('Ввод n');
for i:=1 to n do
begin
if i mod 2=0 then
writeln(FileF[i]);
readln;
write(f,i);
end;
reset(f);
writeln;
close(f);
readln;
end.

программа не выводит почему то(
задача:Дано имя файла и целое число N (>1). Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел (2, 4,...).




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[prelest']

помогите исправить программу, пожалуйста

[Serge_Bliznykov]

1)

Создать файл целых чисел

var f:file of real;

правильно, разумеется file of integer (ну или file of longint - по желанию...)

2) writeln(FileF[i]); - это полный бред! Зачем Вы выводите на экран буквы, стоящие в имени файла на чётных позициях?!!!


3) в файл у Вас запишется не N чисел, а ровно в два раза меньше (т.к. цикл до N, а пишите Вы только чётные... я бы рекомендовал завести отдельный счётчик...

4) собственно нет цикла чтения файла (файл открывается на чтение и всё!). Поэтому ничего и не выводится!
надо примерно так:

var ....
  k : integer;

   k := 2; 
   for i:=1 to n do 
   begin
      write(f,k);
      k := k + 2;
   end;
   close(f);

  WriteLn('Содержимое файла: ');
  reset(f);
  while Not eof(f) do begin
     read(f, k);
     Write(K:5);
  end;  
  writeln;
  close(f);
  readln;

[prelest']

var f:file of integer;
n, k:integer;
i:integer;
filef:string;
begin
write('Имя');
readln(FileF);
assign(f,Filef);
rewrite(f);
writeln('Ввод n');
k := 2; 
   for i:=1 to n do 
   begin
      write(f,k);
      k := k + 2;
   end;
   close(f);

  WriteLn('Содержимое файла: ');
  reset(f);
  while Not eof(f) do begin
     read(f, k);
     Write(K:5);
  end;  
  writeln;
  close(f);
  readln;
  end.

вот так будет цельно код? или лишнее я воткнул?

[Serge_Bliznykov]

наоборот. чтение N потеряли (впрочем, в 1-м посте его тоже не было.....)

  writeln('Ввод n');
  Readln(n);
  k := 2;