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

[Serge_Bliznykov]

думаю, что ожидался примерно такой вариант решения:

program Fib12;
  const
    n=12;
  type
    matrix=array [1..n] of integer;
  var
    i:integer;
    a:matrix;
    f:file of integer;
begin
  a[1]:=1;
  a[2]:=1;
  write (a[1],' ', a[2], ' ');
  assign (f, 'c:\fiba.bin');
  rewrite(f);
  write (f, a[1]);
  write (f, a[2]);
  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.

[Serj_D]

Тогда уж так :

Program LR;
Uses
    Crt;
Const
     MAX=20;
Type
    TMatrix=Array [1..MAX] Of Integer;
Var
   i:Integer;
   arrA,arrB:TMatrix;
   f:File Of TMatrix;
Begin
     arrA[1]:=1;
     arrA[2]:=1;
     Assign (f, 'c:\data.mtx');
     Rewrite(f);
     For i:=3 To MAX Do
         arrA[i]:=arrA[i-2]+arrA[i-1];
     Write (f, arrA);
     Close (f);
//------------------------------------//
     Reset(f);
     Read(f,arrB);
     ClrScr;
     For i:=1 To MAX Do
         Write (arrB[i],' ');
     WriteLn;
     Close(f);
End.

[TinMan]

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

Тогда уж так :

И почему оно лучше?
Что за странная блажь записывать последовательность в файл одной переменной? Кому это и для чего нужно - рассматривать последовательность, как матрицу?.. Последовательность - никак не матрица, и записывать ее в файл нужно почленно.

Не надо с такой уверенностью говорить то, о чем не имеешь представления (тем более, новичкам). И отучись совать CRT и чистить экран везде, где не требуется..

[Serj_D]

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

И почему оно лучше?

Тем, что есть отдельно запись и отдельно считывание из файла. Задача то на "работу с файлами", нэ ?

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

Что за странная блажь записывать последовательность в файл одной переменной? Кому это и для чего нужно - рассматривать последовательность, как матрицу?.. Последовательность - никак не матрица, и записывать ее в файл нужно почленно.

Массив он и в Африке массив, хоть одномерный, хоть дву-, трёх, n-мерные. Почему бы не записать сразу целиком ?
(А вообще нужно смотреть на условия задачи, как и что писать; в конкретно этом случае — не принципиально.)

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

И отучись совать CRT и чистить экран везде, где не требуется..

О, действительно. Больше не к чему было придраться, так хоть к очистке экрана, да ?

[TinMan]

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

Тем, что есть отдельно запись и отдельно считывание из файла. Задача то на "работу с файлами", нэ ?

Нэ.
В условии сказано: "создать файл".

Массив он и в Африке массив, хоть одномерный, хоть дву-, трёх, n-мерные. Почему бы не записать сразу целиком ?
(А вообще нужно смотреть на условия задачи, как и что писать; в конкретно этом случае — не принципиально.)

Если на то пошло - скажи, где в условии про массив? Боюсь, принципиально. Сам сказал - смотреть на условие. Тебе его повторить? "Создать типизированный файл, элементами которого являются 12 первых членов последовательности Фибоначчи. " Обрати внимание на выделенные слова.

О, действительно. Больше не к чему было придраться, так хоть к очистке экрана, да ?

Ну, не все же ругать, надо было что-то и полезное сказать. Совет хоть и бесплатный, но ценный. Когда-нибудь поймешь.

[Serge_Bliznykov]

Serj_D

1) я полность согласен со всеми замечаниями, высказанными TinMan

2) могу немного пояснить.

Массив он и в Африке массив, хоть одномерный, хоть дву-, трёх, n-мерные. Почему бы не записать сразу целиком ?
(А вообще нужно смотреть на условия задачи, как и что писать; в конкретно этом случае — не принципиально.)

это и принципиально. Вы банально не сможете открыть и прочитать массив из типизированного файла, если не знаете сколько в нём элементов и какого они типа.
Да и в целях обучения лучше понимать, что является ТИПОМ типизированного файла. я не уверен, что новичок сможет правильно понять, что в случае file of TMatrix в файле может быть неограниченно МНОГО матриц заданного типа... (Вы то это, надеюсь, понимаете!)

О, действительно. Больше не к чему было придраться, так хоть к очистке экрана, да ?

ну это была не придирка, а совет.
Дело в том, что нормальный модуль CRT имеется только в DOS. При попытке откомпилировать данный текст программы, например в Delphi, прийдётся убрать все упоминания CRT и функций, вызванных из него.
Впрочем, конечно, бывают задачи, где использование этих функция функционально оправдано. В данном случае я в этом острой необходимости не вижу...
впрочем, соглашусь, к сути решаемой задачи использование CRT никак не относится.


p.s. Serj_D, поймите, что замечания на ваше решение делают не для того, чтобы показать, какой Вы плохой код написали, а для того, чтобы помочь автору топика и Вам разобраться в решении. Поэтому замечания не надо встречать в штыки!

[Serj_D]

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

Если на то пошло - скажи, где в условии про массив? Боюсь, принципиально. Сам сказал - смотреть на условие. Тебе его повторить? "Создать типизированный файл, элементами которого являются 12 первых членов последовательности Фибоначчи. " Обрати внимание на выделенные слова.

Ага, повторить. =) Я решил, что ты совершенно к другому придираешься.

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

это и принципиально. Вы банально не сможете открыть и прочитать массив из типизированного файла, если не знаете сколько в нём элементов и какого они типа.

Да, но мы то знаем.

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

Дело в том, что нормальный модуль CRT имеется только в DOS. При попытке откомпилировать данный текст программы, например в Delphi, прийдётся убрать все упоминания CRT и функций, вызванных из него.

ТС сказал : "В Паскале". При чём тут Delphi ? Изначальный язык среды Delphi — Object Pascal, который давно переименовали в Delphi, что бы не путаться. Зачем же сейчас опять всё запутывать ?

По большому счёту, очистка экрана была нужна мне, я её просто забыл убрать вместе со всем тем, что убирал перед тем, как выложить текст.

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

Serj_D, поймите, что замечания на ваше решение делают не для того, чтобы показать, какой Вы плохой код написали, а для того, чтобы помочь автору топика и Вам разобраться в решении.

Я же и не обещал, что напишу полностью рабочую программу за ТС’а, да ещё и без ошибок. Пусть смотрит на все варианты и сам уж делает так, как посчитает нужным.

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

Поэтому замечания не надо встречать в штыки!

Да нормально я реагирую.
Нужно было в принципе никакого кода не выкладывать. Всё что я хотел, это сказать, что стоит сделать отдельно запись в файл и отдельно считывание, перед выводом на экран. Именно так, обычно, это учителя и требуют делать. Нужно было просто написать словами, а то ТС молчит, зато прибежала толпа и придралась к той части кода, которая, в данном случае, абсолютно не важно как написана.

[Serge_Bliznykov]

Всё что я хотел, это сказать, что стоит сделать отдельно запись в файл и отдельно считывание, перед выводом на экран.

Как Вы не поймёте! принципиальные отличия не в этом.
А в том, file of Integer или file of TMatrix !

я лично считаю, что Вы ошибаетесь, когда говорите "Тогда уж так :" (пост #12)
Это не то, что нужно автору топика.


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

[Serj_D]

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

Как Вы не поймёте! принципиальные отличия не в этом.
А в том, file of Integer или file of TMatrix !

Да блин. Не важно это. Я не для этого пример написал, а для :

какой то код
rewrite
какой то код
write
какой то код
reset
read
какой то код

Всё. Ни код вне указанных команд, ни конкретные аргументы (по одному аргументу сохраняем или нет) НЕ ВАЖНЫ ! Важен сам принцип : пишем отдельно, считываем отдельно, выводим на экран отдельно.
Вы же придираетесь к тому, что, в данном случае, роли не играет.

Поэтому и написал, что изначально лучше бы указал словами, без всяких примеров, а то вы не на то смотрите, на что надо.