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

@MrZeuS · Регистрация: 15.10.2016

Author24 — интернет-сервис помощи студентам

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

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 выбираются произвольно. Система обработки данных должна быть оформлена в объектном модуле. Объект должен содержать поле таблицы данных, поле числа строк таблицы. Для обработки данных должны использоваться следующие процедуры и функции:
– +процедура инициализации таблицы в памяти, удаляющая мусор;
– +процедура загрузки таблицы данных из текстового файла;
– +процедура ввода табличных данных с консоли;
– +процедура вывода таблицы данных на консоль;
– +процедура выгрузки таблицы в текстовый файл;
– +процедура сортировки данных по номеру зачетной книжки;
– +процедура сортировки данных по фамилии студента;
– +процедура сортировки данных по имени студента;
– +процедура добавления новой записи в таблицу;
– +процедура установки метки для удаления записи по фамилии;
– +процедура упаковки таблицы: удаление помеченных записей;
– функция формирования меню для вызова различных действий;
– конструктор для приведения системы в исходное состояние.

Написать тестовую программу проверки работы объектного модуля, обрабатывающего данные таблицы.

Pascal

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,а там вроде обьектные нельзя создавать или я чего то не знаю.

@Пытливый · 03.12.2016, 22:02

Скачайте Turbo Pascal School Pak
Эта штука сделана специально для запуска Паскаля под Windows.

@MrZeuS · 03.12.2016, 22:52 **[ТС]**

Мне бы хотя бы одну процедуру ,а точнее вывод из файла в запись.Было бы просто великолепно

@Пытливый · 03.12.2016, 23:05

А вот по вашей задаче есть несколько замечаний:

Delphi

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

Это неправильно.
Поскольку динамического массива в Паскале нет, то вам необходимо сначала зарезервировать массив записей типа TRecord, а уже цикл делать по этому массиву.
Само описание TRecord вынесите из объекта, там ему не место.

Добавлено через 8 минут
Вывод в файл делается примерно так:

Delphi

Const
 MaxRec = 100;
Var 
 ARecords: Array[1..MaxRec] of TRecord;
 F: File of TRecord;
...
Assign(F, 'Student.dat');
Rewrite(F;)
for i := 1 to MaxRec
do Write(F, ARecords[i]);

Чтение соответственно так:

Delphi

Assign(F, 'Student.dat');
Reset(F;)
i := 0;
while not Eof(F)
do begin
    Inc(i);
    Read(F, ARecords[i]);
    end;

@MrZeuS · 03.12.2016, 23:28 **[ТС]**

Спасибо огромное,я счастлив что вы мне помогли ,а то я сам бы наверно до понедельника думал.

Добавлено через 21 минуту
Посмотрел Справку по Pascal ABC.NET и нашел классы.Вот что значит читать документацию.

@Пытливый 3583 / 2193 / 692 Регистрация: 29.05.2013 Сообщений: 9,360
	03.12.2016, 22:02	2
	Скачайте Turbo Pascal School Pak Эта штука сделана специально для запуска Паскаля под Windows. 1

@MrZeuS 2 / 2 / 3 Регистрация: 15.10.2016 Сообщений: 34
	03.12.2016, 22:52 [ТС]	3
	Мне бы хотя бы одну процедуру ,а точнее вывод из файла в запись.Было бы просто великолепно 0

@MrZeuS 2 / 2 / 3 Регистрация: 15.10.2016 Сообщений: 34
	03.12.2016, 23:28 [ТС]	5
	Спасибо огромное,я счастлив что вы мне помогли ,а то я сам бы наверно до понедельника думал. Добавлено через 21 минуту Посмотрел Справку по Pascal ABC.NET и нашел классы.Вот что значит читать документацию. 0

Опции темы

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

Решение