Работа с файлами и записями. Помощь с итоговой

[Refenement]

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

[XeN0N]

язык ? я бы написал на питоне но чтото мне подсказывает что не подойдет

[counter]

ну это очень просто делается.

создаеш массив структур (типа вот такой)

struct KNIGA {
         char AVTOR[20];
         char NAZVANIE[20];
         int GOD_IZDANNIYA;
         int CHISLO_STRANIC;
}kn[10];

далее заполняеш ее и записываеш в файл.

поиск оформляеш так:

for(int i=0;i<n;i++) {    
      if(kh[i].GOD_IZDANIYA>2000)
         {
             //пишем kn[i] в другой файл
         }
}

n -количество записей

[Refenement]

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

язык ? я бы написал на питоне но чтото мне подсказывает что не подойдет

надо написать в Паскале

[Serge_Bliznykov]

Refenement, солнышко Вы наше. Ну кто ж за Вас всё делать будет?... нужно немножко и самой поработать...
вот, для затравки, решение первого пункта задания:

program primer1;
uses crt;
type
  RBook = record
    name_book : string[30];
    avtor     : string[20];
    pages     : word;
    year_pub  : word;
  end;
var
  i,n : integer;
  q   : RBook;
  f   : file of RBook;
begin
  assign(f, 'Book.dat');
{$I-}
  reset(f);
{$I+}
  if IOResult <> 0 then
  begin
    rewrite(f);
    WriteLn('Введите, сколько книг будете вводить:');
    ReadLn(n);
    WriteLn('Создаём файл BOOK.DAT на ',n:1,' записей...');
    for i := 1 to n do begin
      write(' Введите название книги: ');
      readln(q.name_book);
      write(' Введите автора: ');
      readln(q.avtor);
      write(' Введите количество страниц: ');
      readln(q.pages);
      write(' Введите год издания: ');
      readln(q.year_pub);
      write(f, q);
    end;
  end;  
  Close(f);
end.

[Refenement]

Я делала. Тока совсем запуталась
Вот что у меня есть

type
    book = record
     name:string[50];
     autor:string[30];
     pages:integer;
     year:integer;
    end;
var
   books:array[1..200] of book;
   booksfile:file of book; 
   textfile:text;
   i,n:integer;
begin
...
     assign(booksfile,'book.dat');
     reset(booksfile);
     assign(textfile,'book.txt');
     rewrite(textfile);
     i:=1;
     while not eof(booksfile) do begin
           read(booksfile,books[i]);
           i:=i+1;
           end;
     n:=i;

Всё дальше мой мозг отказывается понимать, что надо делать дальше.
Что в этом коде не правильно?

[Stilet]

Ну логично далее продолжить твой While, учитывая что ты воспользовавшись любезнейшим советом глубокоуважаемого Сержа, и заполнила файлик DAT примерно таким:

Вывести на экран название самой толстой книги.

var max:integer; CurBook:book;
....
max:=books[1].pages;
while 
...
if books[i].pages>max then begin
  max:=books[i].pages; CurBook:=Books[i];
end;
...
end {while]
writeln(curbook.name);

[Refenement]

Брррр
а как так сразу перепрыгнуть на 4 задание
А как же остальные 2?С первым заданием я как бы разобралась. Поняла, гдя я остановилась.
А как делать 2 и 3 даже не представляю. Да и 4 тоже не знала как делать. Ща тоже немного разобралась

[Greblin]

Лучше каждое задание оформить в виде отдельной процедурки, чтоб не путаться. Напишу код для третьей

procedure after2000(sfname, tfname: string);
//sfname - имя файла с книгами, tfname - имя текстового файла,
//куда будем переписывать
var sf: file of book; tf: text; b: book;
begin
assign(sf, sfname);
reset(sf);
assign(tf, tfname);
rewrite(tf);
while not eof(sf) do
  begin
  read(sf, b);
  if b.year > 2000 then
    writeln(tf, b.author,' ',b.name);
  end;
close(tf);
close(sf);
end;

По поводу второй - с такой вещью как списки знакомы? Если нет, то тупо считывать все записи в массив, сортировать его любым методом, и поэлементно записывать в файл

[Stilet]

упорядоченную в алфавитном по-рядке по авторам.

Это нужно пройти циклом по массиву и в нем применить метод сортировки например пузырька, порой поиском по форуму тут уже были примеры алгоритмов сортировки