Типизированные файлы

[Maks2396]

Сообщение от Аватар

Ну и создайте его, рандомно заполнив данными. Там программы на 5 строчек. Преподу понравится

напишите код, пожалуйста. а то у меня кроме этого задания еще много других, не успеваю

[Maks2396]

Program Srednee;
Uses
  Crt;
Var
  Kol,
  Element,{переменная для хранения очередного элемента файла}
  Summa {переменная для хранения суммы элементов файла}
    :integer;
  f : file of integer;
  SrAriph : real;
Begin
  ClrScr;
  assign(f,'file.dat');{связываем файловую переменную f с физическим файлом file.dat}
  reset(f);{открываем файл для чтения}
  Summa :=0;{обнуление суммы}
  Kol :=0;{обнуление количества элементов}
  while not Eof(f) do{просматриваем файл до конца}
    begin
      read(f, Element);{считываем из файла очередной элемент в переменную Element}
      Inc(Kol);{увеличиваем счетчик количества элементов файла}
      Inc(Summa, Element);{увеличиваем переменную Summa на Element}
    end;
  if Kol > 0 then 
    begin
      SrAriph := Summa/Kol;{вычисляем среднее арифметическое чисел}
      write('Среднее арифметическое элементов файла равно ', SrAriph:5:2);
    end
  else
      write('Файл пуст');
  close(f);{закрываем файл}
  readln;
End.

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

Модератор.

[Serge_Bliznykov]

Maks2396, программа из пост #12 выглядит вполне пристойно! (можно немножко оптимизировать/сократить, но, это совсем не обязательно!)
Если Вы её написали самостоятельно - поздравляю!

[Maks2396]

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

Maks2396, программа из пост #12 выглядит вполне пристойно! (можно немножко оптимизировать/сократить, но, это совсем не обязательно!)
Если Вы её написали самостоятельно - поздравляю!

а как записать числа именно на файл. и кстати она у меня почему-то не работает. пишет что не найдено файл

[ZX Spectrum-128]

Так вы его и не создали.

Assign(f,'file.dat');
Rewrite(f);
For i:=1 to n do
  Begin
    X:=random;
    Write(f,x);
  End;
Close(f);

[Serge_Bliznykov]

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

а как записать числа именно на файл. и кстати она у меня почему-то не работает. пишет что не найдено файл

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

Теперь по сути вопроса.
код (c) ZX Spectrum-128 в пост #15 создаст и заполнит файл случайными числами.

а вот таким кодом можно заполнить файл путём ввода чисел с клавиатуры:

Program CreaFile;
Var
  i, Kol,
  Element,{переменная для хранения очередного элемента файла}
    : integer;
  f : file of integer;
Begin
  repeat
    WriteLn('Vvedite chislo elementov v sozdavaemom faile:');
    Readln(Kol);
  until Kol>0;

  assign(f,'file.dat');{связываем файловую переменную f с физическим файлом file.dat}
  rewrite(f);{перезаписываем файл. Внимание, если был файл, то он будет стёрт и создан заново}
  
  for i:=1 to Kol  do begin
    Write('Vvedite ',i,'-e znachenie : ');
    ReadLn(Element); {прочитали с клавиатуры в переменную Element}
    Write(f, Element); {записали переменную Element в файл}
  end;

  Close(f); {закрыли файл}

  WriteLn('Done!');
  Readln
end.