Код IT
← Каталог

Справочник по Pascal — Пример 3 — Запись и файл

Фрагмент из «Справочник по Pascal»: Пример 3 — Запись и файл.

pascal pascalencyclopedia711 embed URL статья в энциклопедии
Pascal main.pas 
type
  TStudent = record
    Name: string[30];
    Score: Integer;
  end;

var
  F: file of TStudent;
  S: TStudent;
begin
  Assign(F, 'students.dat');
  Rewrite(F);
  S.Name := 'Иванов';
  S.Score := 85;
  Write(F, S);
  Close(F);
end.
type
  TStudent = record
    Name: string[30];
    Score: Integer;
  end;

var
  F: file of TStudent;
  S: TStudent;
begin
  Assign(F, 'students.dat');
  Rewrite(F);
  S.Name := 'Иванов';
  S.Score := 85;
  Write(F, S);
  Close(F);
end.