begin

      i:=1;

      p:=l;

      while (i<>num)and(p<>nil) do begin

        i:=i+1;

        p:=p^.next;

      end;

      if p<>nil then begin

        if p^.next<>nil then begin

          q:=p^.next^.next;

          dispose(p^.next);

          p^.next:=q;

          DeleteItemAfter:=true;

        end

          else DeleteItemAfter:=false; {не удалён}

      end

        else DeleteItemAfter:=false;

    end; 

    function Count(l: tItemPtr): word;

    var p: tItemPtr;

        i: word;

    begin

      i:=0;

      p:=l;

      while p<>nil do begin

        i:=i+1;

        p:=p^.next;

      end;

      count:=i;

    end; 

    function GetItem(l: tItemPtr; num: word; var d: tData): boolean;

    var p: tItemPtr;

        i: word;

    begin

      i:=1;

      p:=l;

      while (i<>num)and(p<>nil) do begin

        i:=i+1;

        p:=p^.next;

      end;

      if p<>nil then begin

        d:=p^.data;

        GetItem:=true;

      end

        else GetItem:=false;

    end; 

    procedure ClearList(var l: tItemPtr);

    var p: tItemPtr;

    begin

      while (l<>nil) do begin

        p:=l^.next;

        dispose(l);

        l:=p;

      end;

    end; 

    end.

 

Заключение

 

    Фирма Borland / Inprise завершила линию продуктов  Турбо Паскаль и перешла к  выпуску системы визуальной разработки для Windows - Delphi. Несмотря на это, Турбо  Паскаль сохраняет свое значение отличного языка для первого знакомства с миром «серьезного» программирования. Это связано как с его четкой логической структурой, так и с теми возможностями, которые позволяют использовать Турбо Паскаль для решения разнообразных задач. Среди них вычисления и обработка данных, компьютерная графика, работа со звуком, системно программирование. Турбо Паскаль позволяет применять приемы объектно-ориентированного программирования, которое стало одной из ведущих современных технологий программирования.

    В ходе исследования темы курсовой работы было выполнено следующее:

• изучены понятия указателей и динамической памяти.
• рассмотрены процедуры и функции с использованием указателей.
• рассмотрены применение указателей и работы с динамической памятью.
• рассмотрен пример программы, использующей динамическую память.

    После чего можно сделать выводы, что динамическая память - это фактически единственная возможность обработки массивов данных большой размерности.

    Динамическую  память обычно используют при:

1. обработке больших массивов данных;
2. разработке САПР;
3. временном запоминании данных при работе с графическими и звуковыми средствами ЭВМ.

    Турбо Паскаль предоставляет в распоряжение программиста гибкое средство управления динамической памятью - так называемые указатели.  
Список использованной литературы 

    

1. Васильев  П.П. Турбо Паскаль - мой друг. М.: Компьютер, ЮНИТИ, 1995.
2. Белецкий Я. Турбо Паскаль с графикой для персональных компьютеров/Пер. с польск. Д.И.Юренкова. М.: Машиностроение, 1991.
3. Лукин С.Н. Турбо-Паскаль. -М.: Диалог МИФИ, 2000.
4. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс : учебное пособие. – М.: КНОРУС, 2007.
5. Turbo Pascal: практикум. - СПб.: Питер, 2002. - 256 с.: ил.
6. Turbo Pascal / 2-е изд., перераб., - Вологда: МП "МИК", 1991. - 342с.
7. Turbo Pascal / С.А. Немнюгин. – СПб: Издательство «Питер», 2000. – 496 с.: ил.
8. Turbo Pascal в задачах и программах.  – СПб.: БХВ – Петербург,, 2002. – 560 с.: ил.