Создать систему обработки данных однотабличной базы - Turbo Pascal

Формулировка задачи:

всем здруствуйте помогите с некоторыми аспектами я уже разобрался.Создать систему обработки данных однотабличной базы, состоящей из записей следующего типа:
// тип данных номера зачетной книжки
TNumber    = String[MAXNUMBER];
// тип данных фамилии студента
TLastName  = String[MAXNAME];
// тип данных имени студента
TFirstName = String[MAXNAME];
//------------------------------------------------------
// тип данных записи или строки таблицы
TRecord    = record
               // номер зачетной книжки
               strNumber   : TNumber;
               // фамилия студента
               strLastName : TLastName;
               // имя студента
               strFirstName: TFirstName;
               // оценка студента по предмету
               iAssessment : Byte;
               // поле метки для удаления записи
               iDeleteLabel: Byte;
end;
Постоянные MAXNAME и MAXNUMBER выбираются произвольно. Система обработки данных должна быть оформлена в объектном модуле. Объект должен содержать поле таблицы данных, поле числа строк таблицы. Для обработки данных должны использоваться следующие процедуры и функции: – +процедура инициализации таблицы в памяти, удаляющая мусор; – +процедура загрузки таблицы данных из текстового файла; – +процедура ввода табличных данных с консоли; – +процедура вывода таблицы данных на консоль; – +процедура выгрузки таблицы в текстовый файл; – +процедура сортировки данных по номеру зачетной книжки; – +процедура сортировки данных по фамилии студента; – +процедура сортировки данных по имени студента; – +процедура добавления новой записи в таблицу; – +процедура установки метки для удаления записи по фамилии; – +процедура упаковки таблицы: удаление помеченных записей; – функция формирования меню для вызова различных действий; – конструктор для приведения системы в исходное состояние. Написать тестовую программу проверки работы объектного модуля, обрабатывающего данные таблицы.
Unit DataBase;
 
Interface 
      const
      MAXNUBER=11;
      MAXNAME=25;
      Type
        TSysDate=object;
           //тип номера зачетной книжки
          TNumber    = String[MAXNUMBER];
          // тип данных фамилии студента
          TLastName  = String[MAXNAME];
          // тип данных имени студента
          TFirstName = String[MAXNAME];
          // тип данных записи или строки таблицы
              TRecord    = record
               // номер зачетной книжки
               strNumber   : TNumber;
               // фамилия студента
               strLastName : TLastName;
               // имя студента
               strFirstName: TFirstName;
               // оценка студента по предмету
               iAssessment : Byte;
               // поле метки для удаления записи
               iDeleteLabel: Byte;
               end;
          //процедуры инициализации
          Procedure InitTable;
          //процедура загруски базы из файла
          Procedure LoadFromFile;
          //процедура ввода из командной строки
          Procedure LoadFromCmd;
          //процедура вывода данных на консоль
          Procedure WriteToCmd;
          //процедура выгрузки
          Procedure WritetoFile;
          // процедура сортировки данных по номеру зачетной книжки
          Procedure ShortingMAXNUMBER;
          //процедура сортировки данных по фамилии студента
          Procedure ShortingLastName;
          //процедура сортировки данных по имени студента
          Procedure ShortingFirstName;
          // процедура добавления новой записи
          Procedure NewRecord;
          //– процедура установки метки для удаления записи по фамилии
          Procedure LabelForDelLastName;
          //процедура упаковки таблицы: удаление помеченных записей
          Procedure DeleteLabel;
          //функция меню
          Function Menu;
          end;
Implementation
//------------------------------------------------------------------------------
    Procedure TSysDate.InitTable;
        var
          i:integer;
        begin 
          for i:=1 to Lenght[TRecord] do begin
              
            end;
    end;
//-----------------------------------------------------------------------------
    Procedure LoadFromFile;
        type
          TRecord
        begin
          assign(input,'input.txt');
          reset
Добавлено через 4 часа 31 минуту загвостка в том ,что не могу додуматься как считать из файла в поля типа record,ну и турбо паскаль не работает и приходится писать в паскаль abc,а там вроде обьектные нельзя создавать или я чего то не знаю.

Код к задаче: «Создать систему обработки данных однотабличной базы - Turbo Pascal»

textual
for i:=1 to Lenght[TRecord] do begin

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ