Определить содержимое файла f после выполнения операторов

[Corwin88]

очень нужна помощь по задаче:

var f:file of integer; i:integer;

Определить содержимое файла f после выполнения следующих операторов:

rewrite(f);
for i:=3 downto 1 do write(f,sqr(i))

я практически не разбираюсь в работе с файлами,но накалякал такой код(на выходе получаю ошибку)

program proga2;
var f:file of integer;
i:integer;
const
name='Y:\3.txt';
begin
assign(f,name);
rewrite(f);
for i:=3 downto 1 do write(f,sqr(i));
close(f);
readln
end.

и еще неаверно нужно добавить открытие файла в конце("Определить содержимое файла f..").

[ryton]

во-первых,раздел const идет перед var,насколько я помню,
а так верно мыслишь

[Corwin88]

Сообщение от ryton

во-первых,раздел const идет перед var,насколько я помню,
а так верно мыслишь

исправил-все равно туже самую ошибку выдает. "Invalid variable reference"

[ryton]

посмотри на каком моменте выдает,от этого и танцуй

[Stilet]

Что значит определить? Перечитать его весь что ли?
тогда грубо говоря

While not eof do begin readln(f,...); writeln(...); end;

[Corwin88]

посмотри на каком моменте выдает,от этого и танцуй

я уже давно "танцую". ошибка вроде как в этой строке- for i:=3 downto 1 do write(f,sqr(i));

Что значит определить? Перечитать его весь что ли?

скорее всего да. в задаче так написано.
Stilet а в чем ошибка в коде?

[Serge_Bliznykov]

а так попробуйте:

program proga2;
const
  name='Y:\3.txt';
var 
  f:file of integer;
  i,k:integer;
begin
  assign(f,name);
  rewrite(f);
  for i:=3 downto 1 do
  begin
    k := sqr(i);
    write(f,k);
  end;
  close(f);
  WriteLn('File was saved.')
  readln
end.

только зря Вы файлу расширение txt придумали - он совсем даже не текстовый получается ;-)

[Corwin88]

Сообщение от Serge_Bliznykov

а так попробуйте:

program proga2;
const
  name='Y:\3.txt';
var 
  f:file of integer;
  i,k:integer;
begin
  assign(f,name);
  rewrite(f);
  for i:=3 downto 1 do
  begin
    k := sqr(i);
    write(f,k);
  end;
  close(f);
  WriteLn('File was saved.')
  readln
end.

только зря Вы файлу расширение txt придумали - он совсем даже не текстовый получается ;-)

да, спасибо, программа выполнилась, но в конечном файле непонятный мне результат - "". Конечно, может я не понял, но по логике там же должно быть "941"...хотя, в условии же

f:file of integer;

..
и как теперь "Определить содержимое файла f после выполнения следующих операторов.." ? ?

[Alter]

Всё правильно, они недолжны отображаться в читабельном виде, в файле будут значения 9 4 1.
Они могут быть просмотренны Hex редактором.
Знайте что символ и код символа, неодно(строковое значение - их код):
'0' - 30h
'1' - 31h
и т.д.

[Serge_Bliznykov]

Alter прав. файл у Вас двоичный (бинарный).
Вы, наверное, не поняли, почему я сказал, что у Вас расширение (.txt) не соответствует Вашему содержимому.
в TurboPascal'е - тип Integer занимает ровно 2 байта
(можете проверить через WriteLn(SizeOf(Integer)); )
полученный файл 3.txt длиной 6 байт:
09 00 04 00 01 00
(в Intel структуре данных сначала идут старшие байты, потом младшие)...

Либо, можно написать простеньку программу, которая выведет все числа из файла f:file of Integer:

const
  name='Y:\3.txt';
var 
  f:file of integer;
  k:integer;
begin
  assign(f,name);
  reset(f);
  while Not Eof(f) do
  begin
    Read(f,k);
    writeln(k);
  end;
  close(f);
end.