Записи, Динамика, Текстовые и Типизированые файлы, простая база Опции

[punkska]

Поля
1. ф
2. И
3. О
4. оценка
5. др
пойск по оценке

Проверте пожалуйста правильность написанной программы
особенно с файлами! не на путал ли я что...
может есть излишества или глупости!

 Lab3_4.zip ( 2.15 килобайт ) Кол-во скачиваний: 312


и может кто поможет с процедурой пойска...а то что-то она не получаеться...

[volvo]

Вроде никаких явно бросающихся в глаза недочетов нет, за исключением, возможно, вот чего:

У тебя в программе сразу выделяется память под 1000 записей, так? Зададимся вопросом: "А почему именно 1000?" Не в том ли дело, что больше при таком размере структуры New может и не дать, ибо есть ограничение на размер блока, выделяемого с помощью New?

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

Так вот, собственно, предложение:

Type
  PClass_r = ^Class_r;
  Class_r = Record
    { Ну, тут то что у тебя и было... }
  End;

Const
  q = 65520 div sizeof(PClass_r);

  _class = array [1 .. q] of PClass_r; { <--- Чувствуешь разницу? }
  PtrClass = ^_class;

И потом Выделить, как ты и делал, память под массив Stud, только он будет содержать НЕ сами данные, а указатели на них.

Тогда при необходимости добавить данные в массив - делается так:

  { где-то в начале программы}
  new(Stud);

  { ... }
  { а при добавлении студентов: }
  writeln('Tape quantity of adding students'); readln(n);
  for i:=1 to n do begin

    new(stud^[i]); { Выделяем память под ДАННЫЕ }

    with Stud^[i]^ do begin
      // Все действия - как у тебя и было
    end;
...

Как результат - более гибкая работа с памятью (которой, как известно, много никогда не бывает), да и обрабатывать сможешь не до 1000, а до 16380 записей, что, согласись, серьезнее

Как тебе такой вариант?


А насчет поиска - что именно у тебя не получается? Что надо сделать с теми, кто критерию поиска удовлетворяет? Просто распечатать? Или где-то сохранить? Так ведь множества тоже никто не отменял. Или эмуляторы множеств для большего числа элементов Надо - покажу, как...