типизированный файл,последовательность Фибоначчи

[evg94]

задача на использование файлов в Паскале. Создать типизированный файл, элементами которого являются 12 первых членов последовательности Фибоначчи.

программа выводит на экран числа, но не пишет их в файл...

program Fibannachchi;
  const
    n=12;
  type
    fil= file of integer;
    matrix=array [1..n] of integer;
  var
    i:integer;
    a:matrix;
    f:fil;
begin
  assign (f, 'c:\fiba.txt');
  rewrite(f);
  a[1]:=1;
  a[2]:=1;
  write (a[1],' ', a[2], ' ');
   for i:=3 to n do
     begin
     a[i]:=a[i-2]+a[i-1];
     write (a[i],' ');
     end;
  close (f);
end.

[Alex11223]

Я не вижу в этой программе записи в файл. http://pascal.guti.ru/files.html , например, коротко все основные операции с файлами.

[evg94]

 write (f, a[1],' ', a[2], ' ');

write (f, a[i],' ');

ошибка: нельзя преобразовать выражение типа char к типу integer

[Alex11223]

Это типизированный файл. Не текстовый. В file of integer могут содержаться только целые числа соответственно)

[evg94]

чет у меня ничего не сходится..... то ли я торможу, то ли просто что то не понимаю)

[Alex11223]

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

Типизированный — в него можно записать только данные соответствующего типа (указанного при объявлении). Точнее записано-то там может быть, что угодно (можно попробовать написать что-то в файле с помощью Блокнота и потом попытаться прочитать как типизированный), но читать программа их будет так, как указано (если вначале в одной программе записали целые числа, а потом в другой программе читаем как с плавающей запятой, то числа получим совсем другие либо вообще ошибку). т.к. все компоненты содержат одинаковое число байт (как массив, все данные одного типа), то можно легко по файлу перемещаться от 1 компонента к другому (в текстовом это невозможно\не нужно).

Как-то так.

[evg94]

теперь программа запоминает последнее число

program Fib12;
  const
    n=12;
  type
    matrix=array [1..n] of integer;
  var
    i:integer;
    a:matrix;
    f:text;
begin
  a[1]:=1;
  a[2]:=1;
  write (a[1],' ', a[2], ' ');
   for i:=3 to n do
     begin
     a[i]:=a[i-2]+a[i-1];
     write (a[i],' ');
       begin
        assign (f, 'c:\fiba.txt');
        rewrite(f);
        write (f, a[i]);
        close (f);
       end;
     end;

end.

[Alex11223]

Файл перед циклом открой и закрой в конце. Ты его каждый раз уничтожаешь и заново.

[evg94]

program Fib12;
  const
    n=12;
  type
    matrix=array [1..n] of integer;
  var
    i:integer;
    a:matrix;
    f:text;
begin
  a[1]:=1;
  a[2]:=1;
  write (a[1],' ', a[2], ' ');
    begin
      assign (f, 'c:\fiba.txt');
      rewrite(f);
      writeln (f, ' первые 12 членов последовательности Фибоначчи');
      write (f, a[1], ' ',a[2], ' ');
    end;
   for i:=3 to n do
     begin
     a[i]:=a[i-2]+a[i-1];
     write (a[i],' ');
     write (f, a[i], ' ');
     end;
close (f);
end.

как то так) начало работать) возможно где то перемудрила) но вроде все по заданию)

[ViktorR]

Осталось чуток.
Типизированный (компонентный) файл это когда твоя файловая переменная определена так:

var fcomp : file of matrix;

Это если по тексту программы.
Тогда запись полученного массива делать просто. Сразу за последним циклом:

write(fcomp,a);
close(fcomp);

Это ближе к теме задания