Задача ИПС, немножко подскажите Опции

[Димас]

Общем задали вот такую задачу:


Сделать с помощью способов языка программирования Pascal Информационно - Поискову Систему (ИПС):
--------------------------------------------------------------------------------------------------
Добавления новых специальностей , груп та студентов;
Поиск студентов за группой ,за Фамилией, за специальностью ,за средним балом;
Просмотр всех существующих специальностей, груп та студентов;
Удаление указанной специальности , группы студента (с безопасностью сохранения ценности данных)
--------------------------------------------------------------------------------------------------
Требование к разработки ИПС:

Все операции с данными в ИПС должны быть сделаны в форме процедур или функций, которые должны быть собранные в Модуль!

Работа с ИПС должна быть реализованная в режиме диалогу, в котором надо предвидеть основные режимы роботы с данными (Добавление новых, вывод уже существующих, Искать за указанными критериями, Удаление данных, выход с системы)

ИПС реализовать у виде Файловой Системы, тоисть все основные объекты базы данных(мой комент: имеется веду не БД , мы не учили еще, а *.txt файлы) должны сохранятся у отдельных файлах, между которыми взаимодействует связь через специальные поля.


Вот такую жесть задали

Подскажите с чего начать? (я имею виду не код, а саму идею алгоритма)

Сообщение отредактировано: Димас - 10.05.2007 13:48

[Димас]

Эх.. начал делать пока что без модуля(потом запихну всё это дело в модуль и т.к)

Program k1;

uses Crt;
var
 c : char;
{///////////////////////////// Types  /////////////////////////////////////////}

{```````````````````````````}
Type Specialnist = record

     id          : integer;
     name        : string ;
     status      : string[1];
end;
{```````````````````````````}

{```````````````````````````}
Type Groups     = record

     id         : integer;
     name       : string ;
     status     : string[1];
     id_spec    : integer;
end;
{````````````````````````````}

{````````````````````````````}
Type student    = record
     id         : integer;
     name       : string ;
     id_group   : integer;
     ser_bal    : integer;
end;
{````````````````````````````}

{//////////////////////////// Types end //////////////////////////////////////////}

{///////////////// Procedur's and Function's ////////////////////////////////////////}
 procedure add_spec;
 var
 f1: file of Specialnist;
 a: Specialnist;
 b: Specialnist;
 i: integer;
 begin
 clrscr;
 writeln('ADD Spec');

{ Бред пока что, но не знаю как довести его до ума }
 Assign(f1,'c:\Spec.txt');
 reset(f1);
 read(f1,b);

   writeln(' =',b.id,' =',b.name);
   end;
   Close(f1);

 Assign(f1,'c:\Spec.txt');

 Rewrite(f1);
 for i:=b.id to b.id do
 begin
  Writeln('введите названия специальности=');
 a.id:=a.id+1;
 a.status:='t';
 readln(a.name);
 write(f1,a);
 end;

{Конец Бреда   } 

 Close(f1);
 readln;
 end;

 procedure A1;
    begin
   clrscr;
   repeat
  clrscr;
  writeln ('1  - Добавить Специальность,');
  writeln ('2  - Добавить Групу');
  writeln ('3  - Добавить Студента');
  writeln ('4  - Вернутся в Главное Меню');
  c := readkey;
  case c of
         '1' :add_spec;
         '2' :;
	 '3' :;
         '4' :;
	  end;
 until c = '4';

   end;

 {///////////////// Procedur's and Function's   END////////////////////////////////////////}

{////////////////////////// Main Program     /////////////////// ////////////////}

Begin
repeat
 clrscr;
  writeln ('1  - Добавить Студента, Групу, Студента');
  writeln ('2  - Поиск Студентов');
  writeln ('3  - Просмотр Специальностей, Груп, Студентов');
  writeln ('4  - Удаления специальностей, Груп, Студентов');
  writeln ('5  - Выход');
   c := readkey;
  case c of
         '1' : A1;
         '2' : ;
	 '3' : ;
	 '4' : ;
	 '5' : ;
	  end;
 until c = '5';
end.

Вот что не получается:

Короче я решыл не делать всё сразу, а по полочкам...

значит сейчас остановился на: 1. Добавления Специальностей

есть вопросец:
Как можно добавлять специальности в файл??? и что бы при этом ранее добавленые специальности оставлялись... Как такое сделать?