TURBO PASCAL:Учебное пособие. Терёхин В.В. - 110 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

110
Read(f, t);{читаем очередную компоненту из файла и..}
Write(t); {выводим ее на экран}
end;
Close{f); {закрываем файл}
end.
Когда приходится хранить в файле информацию о
множестве объектов, у каждого из которых много различных
признаков (значений различного типа), компонентами типизи-
рованных файлов можно делать записи.
Задача. Создать программу, записывающую в файл
данные о книгах, хранящихся в библиотеке. Для каждой книги
требуется следующая информация: номер, фамилия и. о. авто-
ра, название книги, количество страниц и год издания.
program p47;
type
Books = record
N: Integer;
Avtor: String[45];
Nazv: String[70];
Str: Integer;
God: Integer;
end;
var
bf: file of Books;
r: Books;
n, i: integer;
begin
Writeln('Введите количество книг ');
Readln(n);
Assign(bf, 'bibl. dat');
Rewrite(bf);
for i: = 1 to n do
begin
r. n:= i;
Write('введите фамилию и. о. автора '); 
     Read(f, t);{читаем очередную компоненту из файла и..}
     Write(t);      {выводим ее на экран}
    end;
  Close{f); {закрываем файл}
end.
        Когда приходится хранить в файле информацию о
множестве объектов, у каждого из которых много различных
признаков (значений различного типа), компонентами типизи-
рованных файлов можно делать записи.
        Задача. Создать программу, записывающую в файл
данные о книгах, хранящихся в библиотеке. Для каждой книги
требуется следующая информация: номер, фамилия и. о. авто-
ра, название книги, количество страниц и год издания.
 program p47;
type
  Books = record
               N: Integer;
               Avtor: String[45];
               Nazv: String[70];
               Str: Integer;
               God: Integer;
            end;
var
  bf: file of Books;
  r: Books;
  n, i: integer;
begin
  Writeln('Введите количество книг ');
  Readln(n);
  Assign(bf, 'bibl. dat');
  Rewrite(bf);
  for i: = 1 to n do
    begin
        r. n:= i;
        Write('введите фамилию и. о. автора ');
                                                       110

Страницы