База данных «Расписание поездов»

            begin

                 nRec:= nRec+1;

                 readln(f,name[nRec]);

                 readln(f,adres[nRec]);

                 readln(f,phone[nRec]);

                 readln(f,rayon[nRec]);

            end;

      close(f);{Закрытие файла}

      clrscr;{Очистка экрана}

    end; 
 

Листинг 6.2. Процедура просмотра информации 

procedure ShowDB;{Процедура вывода на экран}

   var

    i:integer;

      Begin

       writeln ('Nazvanie_____________|Adres___________________________|Phone____|Rayon_______________');

             for i:=1 to  nRec do {Вывод всех записей-цикл выполняется столько

             раз сколько было найдено записей  в базе данных}

           begin 

              write (name[i]:20,' | ');

               write (adres[i]:30,' | ');

               write (phone[i]:7,' | ');

               writeln (rayon[i]:15);

             end;

         readln;

       end; 

    

Листинг 6.3. Процедура поиска в БД 

procedure Search;{Процедура поиска}

    var

     Words:string;{Переменная  для поиска слова}

     i:INTEGER;

     found:boolean;

    begin

             found:=FALSE;

             Writeln('Поиск по району');

             Write('Введите район:_');

             readln(Words); 
 

        For i:=1 to nRec do 

          if rayon[i]=Words{Если элемент массива year совподет

          со значением поискового слова то выполнится действие вывода на

          экран а переменная found  примит  значение TRUE}

          then

          Begin

           Writeln('В базе данных найдены  сведения ') ;

           writeln(name[i],' | ',adres[i],' | ',phone[i],' | ',rayon[i]);

           writeln;

               found:=True; 

               i:=i+1;

          end;

          readln; 

          if found=False then{Если переменная found не  была изенена на

          значение TRUE (то есть поиск закончился  неудачей , то будет

          выведено сообщение что такого  элемента найдено не было}

             begin

              Writeln('В базе данных не найдено сведений об этом районе');

              readln;

             end; 
 

    end; 
 
 

Листинг 6.4. Процедура добавления информации в БД 

Procedure AddDB;{Процедура добавления в базу данных}

  var

   f:text; 

    begin 

     nRec:=nRec+1;{Увеличиваем значение записей на единицу}

     Write('Введите назване: ');

       Readln(name[nRec]);

     Write('Введите адрес: ');

       Readln(adres[nRec]);

     Write('Введите телефон: ');

       Readln(phone[nRec]);

     Write('Введите район: ');

       Readln(rayon[nRec]);

    end; 
 
 
 

7. Выводы

 

     В  процессе работы над проектом  получен опыт разработки и  отладки компьютерной программы  средней сложности. Разделение  задачи на подзадачи и реализация  каждой задачи в виде процедуры  или функции позволяет структурировать программу и сделать ее более наглядной. Кроме того, благодаря работе с программой Turbo Pascal, мы приобрели навыки командной работы над проектом, научились разделять обязанности и нести за них ответственность.   

8. Литература 

1. Культин Н. Б. «Программирование в Turbo Pascal 7.0 и Delphi»: 3-е изд. – СПб.: БХВ- Петербург, 2007.

 

2. Вирт Н. «Алгоритмы и структуры данных»: пер. с англ. – М.: Мир, 1989. 360 с.
3. Гринзоу Лу. «Философия программирования для Windows 95/NT»: пер. с англ. — СПб.: Символ-Плюс, 1997. — 640 с.
4. Зелковиц М., Шоу А, Гэннон Дж. «Принципы разработки программного обеспечения»: пер. с англ. – М.: Мир, 1982. 368 с.
5. Фокс Дж. «Программное обеспечение и его разработка»: пер. с англ. – М.: Мир, 1985. 368 с.