Файлы данных. типизированные файлы. последовательный доступ

[Elena188]

спасибо) хоть что-то

[type_Oleg]

Вы сделайте поиск по форуму файл записей Паскаль или типизированные файлы Паскаль .
Подобные задачи здесь уже 100500 раз решали.

[Elena188]

вот 2ой задачи нет.. помогите

[type_Oleg]

Создание файла:

var fRe: File of Double; // или Real
  x:Double;
begin
 AssignFile(fRe,'D:\kukuku\kuku\filedat.dat');
 Rewrite(fRe);
// здесь в цикле вводите с клавы числа x
 Write(fRe,x); // запись в файл
// здесь цикл кончается
 CloseFile(fRe);

Это тоже много раз делали. На форуме ищите похожее.

[Serge_Bliznykov]

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

var f:file of real;
  r:real;
  i, n, cnt : integer;
begin
  {создание и заполнение файла}
  Assign(f, 'file1.dat')
  Rewrite(f);
  WriteLn('Введите, сколько чисел будет в файле: ');
  ReadLn(n)
  for i:=1 to n do begin
    Write('Введите ',i,'-е число: '); Read(r); 
    Write(f, r);
  end;
  ReadLn;
  Close(f);

  {подсчёт}
  Reset(f);
  cnt:=0;
  while not eof(f) do begin
    Read(f, r);
    if r>1 then Inc(cnt);
  end; 
  Close(f);

  {вывод результата}
  WriteLn('В файле ',cnt,' чисел больше 1');
end.

[Elena188]

Большое спасибо!!))