Pascal, работа с файлами

[Monori]

Всем добрый вечер, имеется вот такая задача:
1.Создать нетекстовый файл Book.dat, в котором хранятся данные о книгах (название книги, автор, число страниц, год издания).
2.Переписать в текстовый файл информацию о книгах, упорядоченную в алфавитном по-рядке по авторам.
3.Переписать в отдельный файл авторов и названия книг, изданных после 2000 г.
4.Вывести на экран название самой толстой книги.

1-й пункт - понятен.
2-й пункт - как переписать все сведения в текстовый файл понятно, НО непонятно как это сделать с упорядочиванием, да еще и в алфавитном порядке.
3-й пункт - как переписать все сведения в текстовый файл тоже понятно, но непонятно как это делать с условием, что год книги>2000г.
4-й пункт понятен полностью.

Нужна ваша помощь с 2 и 3 пунктами, заранее спасибо

[DiemonStar]

2-й пункт - как переписать все сведения в текстовый файл понятно, НО непонятно как это сделать с упорядочиванием, да еще и в алфавитном порядке.

1. Загружаете исходный файл в массив
2. сортируете массив
3. сохраняете из массива как текст
(можно совместить 2 и 3 пункты)

3-й пункт - как переписать все сведения в текстовый файл тоже понятно, но непонятно как это делать с условием, что год книги>2000г.

1. см. п.1 из предыдущего примера
2. сохраняете массив как текст, для книг старше 2000г.

всё как-бы просто)

[whatever]

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

Пункт два: сотрируешь массив по выбранному полю (в задании четко не сказано, по какому, но я думаю по названию будет в самый раз).

Пункт три: вообще нет ничего проще. Код будет выглядеть примерно так:

for i:=0 to high(books) do
  if books[i].year>2000 then
    write (T,books[i])

где books - массив записей, year - поле обозначающее год в записи, T - открытй для записи file of `название записи`

[Monori]

Пункты между собой не получается соединить

program var12;
uses crt;
type
  RBook = record
    name: string;
    author: string;
    pages:integer;
    year:integer;
  end;
var
  i,n : integer;
  q   : RBook;
  f   : file of RBook;
  f2  :text;
begin
  assign(f, 'C:\Book.dat');
  assign(f2,'C:\book.txt');
    rewrite(f);
    WriteLn('Сколько книг хотите ввести?');
    ReadLn(n);
    for i := 1 to n do begin
      write(' Введите название книги: ');
      readln(q.name);
      write(' Введите автора: ');
      readln(q.author);
      write(' Введите количество страниц: ');
      readln(q.pages);
      write(' Введите год издания: ');
      readln(q.year);
      write(f, q);
  end;  
  Close(f);
  Reset(f);
  Size := FileSize(F);
  for i := 1 to Size do
    for j := 1 to Size - i do begin
      Seek(F, j-1); 
      Read(F, q); 
      Read(F, q1);
      if q.author > q1.author then begin
        Seek(F, j-1);
        Write(F,q1);
        Write(F,q);
      end;
    end;
rewrite(f2);
read(f2, q)
writeln(f2, q);
close(f);close(f2);

end.

[whatever]

Так массив то где?

  Tbooks=array[1..50]of RBook;  //лучше динамический, но непонятно, в какоми паскале ты пишешь

var
  i,j,n : integer;
  q   : TBooks;
  f   : file of rbook;
  f2:text;
//  f2  :text;
  tmp:Rbook;
  size:integer;
begin
  assign(f, 'C:\Book.dat');
  assign(f2,'C:\book.txt');
    rewrite(f);
    WriteLn('Сколько книг хотите ввести?');
    ReadLn(n);
    for i := 1 to n do begin
      write(' Введите название книги: ');
      readln(q[i].name);
      write(' Введите автора: ');
      readln(q[i].author);
      write(' Введите количество страниц: ');
      readln(q[i].pages);
      write(' Введите год издания: ');
      readln(q[i].year);
      write(f, q[i]);
  end;
  Close(f);
//.........

[Monori]

Error:тип параметра не совпадает с типом элемента файла.
Ошибка как и в прошлый раз. указывает на ....
Read(F, q);
Read(F, q1);


Что значит? как исправить?

[whatever]

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

Error:тип параметра не совпадает с типом элемента файла.
Ошибка как и в прошлый раз. указывает на ....
Read(F, q);
Read(F, q1);


Что значит? как исправить?

А у меня машина не заводится. Как так то? Че делать?

P.S. Улавливаешь, к чему я это?

[Monori]

Честно? Не особо.

[whatever]

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

Честно? Не особо.

:facepalm:

Ты не видишь мою машину. Ты не знаешь, что я с ней делал. Ты мне можешь дать совет?

Кароче, код покажи. Или регистрируйся на форуме с экстрасенсами, тут таких нет, мы все вместе искали.

[Monori]

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

:facepalm:

Ты не видишь мою машину. Ты не знаешь, что я с ней делал. Ты мне можешь дать совет?

Кароче, код покажи. Или регистрируйся на форуме с экстрасенсами, тут таких нет, мы все вместе искали.

program trololo;
uses crt;
type
  RBook = record
    name: string;
    author: string;
    pages:integer;
    year:integer;
  end;
Tbooks=array[1..50]of RBook;  //ëó÷øå äèíàìè÷åñêèé, íî íåïîíÿòíî, â êàêîìè ïàñêàëå òû ïèøåøü

var
  i,j,n : integer;
  q   : TBooks;
  f   : file of rbook;
  f2:text;
//  f2  :text;
  tmp:Rbook;
  size:integer;
begin
  assign(f, 'C:\Book.dat');
  assign(f2,'C:\book.txt');
    rewrite(f);
    WriteLn('Ñêîëüêî êíèã õîòèòå ââåñòè?');
    ReadLn(n);
    for i := 1 to n do begin
      write(' Ââåäèòå íàçâàíèå êíèãè: ');
      readln(q[i].name);
      write(' Ââåäèòå àâòîðà: ');
      readln(q[i].author);
      write(' Ââåäèòå êîëè÷åñòâî ñòðàíèö: ');
      readln(q[i].pages);
      write(' Ââåäèòå ãîä èçäàíèÿ: ');
      readln(q[i].year);
      write(f, q[i]);
  end;
  Close(f);
Close(f);
  Reset(f);
  Size := FileSize(F);
  for i := 1 to Size do
    for j := 1 to Size - i do begin
      Seek(F, j-1);
      Read(F, q);
      Read(F, q1);
      if q.author > q1.author then begin
        Seek(F, j-1);
        Write(F,q1);
        Write(F,q);
      end;
    end;
rewrite(f2);
read(f2, q)
writeln(f2, q);
close(f);close(f2);

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

Блин, русские символы скопировались плохо