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

[s-andriano]

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

Впрочем я представляю еще одну ситуацию: У тебя 1ТБ инфы в файле, и ты этим методом пробуешь сортировать

Безусловно, 1 ТБ информации нужно сначала считать в ОП и сортировать только там.


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

[Monori]

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

Сортировать записи прямо в файле не получится (даже и не заморачивайся).
Сначала тебе придется вводить список фильмов в память (динамический массив, список...), после в памяти сортировать, а уже только потом переписывать в файл.
В твоем (студенческом) случае проще всего будет так:

Program trololo;
uses crt;
type
    film = record
    name : string;
    avtor : string;
    stud  : string;
    god  : string;
end;
var
i,j     : integer;
q    :array[1..100] of film;
w    :film;
f      : file of film;
f2    : file of string;
Begin

Write('Сколько кинчиков вы вводите?:');readln(n);

{вводим кинчики}
for i := 1 to n do begin
  with q[i] do begin
      write('Введите название фильма:');      readln(name);
      write('Киностудия:');                          readln(stud);
      write('Режиссер:');                            readln(avtor);
      write('Год выпуска:');                        readln(god);
 end;
end;

{Сортирим}
for i := 1 to n do begin
 for j := i to n do begin
  if q[i].god<q[j].god then begin w:=q[i];q[i]:=q[j];q[j]:=w;end;
 end
end;

{А вот теперь записываем}
Assign(F, 'C:\Video.dat');
Rewrite(f);
blockwrite(f,q,n); {Отут могу напутать с параметрами - посмотри в хелпе как точною...}
close(f);

При проверке, Паскаль ругается: Неизвестный идентефикатор Blockwrite.
По идее, BlockWrite - процедура, как ее можно объявить?

[s-andriano]

Не нужно ее объявлять. Ошибка в чем-то другом.
Для начала проверьте, что этот идентификатор не содержит символов кириллицы сходных по написанию с символами латиницы.

Кстати, возможно, неизвестный идентификатор - это "n", я не увидел, где он описан.

[Monori]

Сообщение от s-andriano

Не нужно ее объявлять. Ошибка в чем-то другом.
Для начала проверьте, что этот идентификатор не содержит символов кириллицы сходных по написанию с символами латиницы.

Кстати, возможно, неизвестный идентификатор - это "n", я не увидел, где он описан.

1) Насчет N: я про него заметила в самом начале, и объявила его как тип Integer;
2) Насчет сходного написания: проверила весь код, на всякий, переписала заново, результатов нет.

[Serge_Bliznykov]

BlockWrite тут в программе никаких боком не подходит!

вот, примерчик набросал.
проверяйте, тестируйте, разбирайтесь...

program trololo;
uses crt;

const MaxFilmCount = 100;

type
  film = record
    name: string[100];
    avtor: string[50];
    stud: string[100];
    god: string[4];
  end;
var
  q: film;
  AllFilms : array[1..MaxFilmCount] of film;
  f: file of film;
  f2: text;
  i, j, Choice, n: integer;
begin
  Assign(F, 'C:\Video.dat');
  Assign(F2, 'C:\Film.txt');

  repeat
    ClrScr;
    WriteLn('Выберите действие:');
    WriteLn('1. создание файла Video.dat');
    WriteLn('2. Вывод содержимого файла Video.dat на экран');
    WriteLn('3. Export содержимого в текст с сортировкой по году');
    WriTeln('4. Выход из программы ');

    WriteLn; Write('Ваш выбор:'); Readln(Choice);

    case Choice of
      1: begin

          Rewrite(f);
          Writeln('Сколько фильмов будете вводить?');
          Readln(n);

          for i := 1 to n do begin
            write('Введите название фильма:');
            readln(q.name);
            write('Киностудия:');
            readln(q.stud);
            write('Режиссер:');
            readln(q.avtor);
            write('Год выпуска:');
            readln(q.god);
            write(f, q);
          end;
          close(f);
        end;
      2: begin
           ClrScr;
           WriteLn('Содержимое файла:');
           Reset(f);
           while not eof(f) do begin
             read(f, q);
             WriteLn(q.name:45,' ',q.stud:25,' ',q.god);
           end;
           Close(f);
           WriteLn('Нажмите Enter для продолжения...');
           Readln
         end;
      3: begin
           Reset(f);
           if FileSize(f)>MaxFilmCount then begin
             WriteLn('Извините, но программа сортировки не работает с файлами,');
             Writeln('которые содержат информацию более чем о ',MaxFilmCount, ' фильмах.');
           end
           else begin
             n := FileSize(f);
             for i:=1 to n do read(f, AllFilms[i]);
             Close(f);


             {сортируем по году выпуска}
             for i:=1 to n-1 do
               for j:=i+1 to n do
                 if  AllFilms[i].God>AllFilms[j].God then begin
                   q := AllFilms[i];
                   AllFilms[i] := AllFilms[j];
                   AllFilms[j] := q;
                 end;

             {вывод в текстовый файл}
             rewrite(f2);
             for i := 1 to n do
                writeln(f2, AllFilms[i].name, ' ', AllFilms[i].stud, ' ',
                       AllFilms[i].avtor, ' ', AllFilms[i].god);
             Close(f2);
           end;
           WriteLn('В файл film.txt успешно записаны данные о ',n,' фильмах.');
           WriteLn;
           WriteLn('Нажмите Enter для продолжения...');
           Readln
         end;
    end;

  until Choice = 4;

  WriteLn('Нажмите Enter для выхода из программы');
  Readln
end.

Monori, кстати, а какой у Вас компилятор Паскаля?!