37807

Вказівники

Лабораторная работа

Информатика, кибернетика и программирование

Мета: навчитися програмувати з використанням вказівників та динамічних змінних, створювати та опрацьовувати черги та стеки.

Украинкский

2013-09-25

2.14 MB

1 чел.

3

Міністерство освіти і науки України

Хмельницький національний університет

Кафедра системного програмування

Лабораторна робота №1

з програмування

на тему:

«Вказівники»

Виконав:

Студент групи КІ-10-1

Ноль М.Г.

Перевірив:

Мостовий С.В.

Хмельницький

2011

Лабораторна робота №1

Тема: вказівники.

Мета: навчитися програмувати з використанням вказівників та динамічних змінних,  створювати та опрацьовувати черги та стеки.

Завдання

Дано число D і «покажчики» P1 й P2 на початок і кінець черги (якщо черга порожня, то P1=P2=nil). Записати елемент зі значенням  D у кінець черги та вивести нові адреси початку і кінця черги.

uses crt;

type vkaz=^cherga;

       cherga=record

           num:integer;

           next:vkaz

           end;

procedure add(var a:vkaz);

   var temp:vkaz;

   begin

   new(temp);

   temp^.next:=a;

   temp^.num:=random(100);

   a:=temp;

   end;

procedure addnew(var a:vkaz; D:integer);

   var temp:vkaz;

   begin

   new(temp);

   temp^.next:=a;

   temp^.num:=D;

   a:=temp;

   end;

function tail(a:vkaz):vkaz;

   begin

   while a<>nil do

       begin

       tail:=a;

       a:=a^.next;

       end;

   end;

procedure create(var a,p1,p2:vkaz; var n:integer);

   var i:integer;

   begin

   write('vvedit kilkist chysel: ');

   readln(n);

   if n<>0 then

       begin

       for i:=1 to n do

           begin

           add(a); write(a^.num,' ');

           if i=1 then p1:=a;

           a:=a^.next;

           end;

        p2:=tail(a);

       writeln;

       writeln('pochatok: ',seg(p1^),ofs(p1^));

       writeln('kinets: ',seg(p2^),ofs(p2^));

       end

       else writeln('pochatok i kinets = NIL');

   end;

procedure newP(var a,p1,p2:vkaz; n:integer);

    begin

    if n=0 then p1:=a;

    p2:=tail(a);

    writeln('pochatok: ',seg(p1^),ofs(p1^));

    writeln('kinets: ',seg(p2^),ofs(p2^));

    end;

procedure free(var a:vkaz; p1:vkaz);

    var temp:vkaz;

    begin  a:=p1;

    while a<>nil do

        begin

       temp:=a;

       a:=a^.next;

       dispose(temp);

       end;

    end;

   var el,p1,p2:vkaz; n,d:integer;

begin clrscr; randomize;

create(el,p1,p2,n);

write('vvedit chyslo D: ');  readln(d);

addnew(el,d);

newP(el,p1,p2,n);

free(el,p1);

repeat until keypressed

end.

Висновок.  Виконавши лабораторну роботу, я навчився працювати з вказівниками та динамічними змінними, створювати черги та додавати нові елементи, виділяти пам'ять для динамічних змінних та звільняти її, а також виводити адреси початку та кінця черги.


 

А также другие работы, которые могут Вас заинтересовать

45828. Состояние и развитие рекламного рынка в России и мире. Законодательное регулирование рекламных процессов 21.03 KB
  Что такое реклама социальная реклама дальше требования к закону общие и специальныеконкретные категории виды рекламы Защита этих прав и ответственность. История рекламы исчисляется не годами а тысячелетиями. С момента возникновения такой экономической категории как товар и установления товарного производства началось развитие рекламы как искусства. Журнал Лаборатория рекламы маркетинга и PR №1.
45829. Основы отношений со СМИ 28.42 KB
  Массовая информация предназначенные для неограниченного круга лиц печатные аудио аудиовизуальные и иные сообщения и материалы; СМИ периодическое печатное издание радио теле видеопрограмма кинохроникальная программа иная форма периодического распространения массовой информации; При осуществлении своей деятельности специалисты PR должны помнить о Федеральном законе Об информации информационных технологиях и о защите информации который является основой для правового регулирования. ФЗ Об информации информационных...
45831. Типология и характеристика СМИ 17.6 KB
  Под СМИ понимается периодическое печатное издание радио теле видеопрограмма кинохроникальная программа иная форма периодического распространения массовой информации ФЗ о СМИ. Существующая система СМИ складывалась постепенно: вначале были только газеты и журналы в 19м веке добавились информационные службы в 20м сначала радиостанции а потом и студии телевидения а сейчас широкое распространение получили электронные СМИ. Классификация СМИ: по формам распространения носителю по региону распространения по формам собственности...
45832. Стилистические особенности информационных жанров прессы 18.67 KB
  Цель информационного жанра сообщить факт Пять групп жанров: оперативноновостные заметка во всех ее разновидностях; оперативноисследовательские интервью репортажи отчеты; исследовательсконовостные корреспонденция комментарий колонка рецензия; исследовательские статья письмо обозрение; исследовательскообразные художественнопублицистические очерк эссе фельетон памфлет. К информационным жанрам относятся: Заметка; Отчет; Интервью; Репортаж и др. Интервью представляющие общественный интерес ответы...
45833. Особенности работы редактора над телевизионной информационной заметкой 352.5 KB
  В этой работе мне бы хотелось выработать некую общую методику по работе над текстами телевизионных информационных заметок, рассмотреть основные их стилеобразующие черты, обобщить лексические, морфологические и синтаксические особенности телевизионной информационной заметки.
45834. ОСОБЕННОСТИ РАБОТЫ ДЛЯ ИНФОРМАЦИОННЫХ АГЕНТСТВ 17.47 KB
  Для примера возьмем одно из крупнейших мировых информационных агентств ИТАРТАСС. Его почти вековая история позволила тассовцам накопить уникальный творческий и профессиональный опыт. Богатейшими возможностями обладает банк данных ИНФОТАСС уникальный фотоархив включает в себя около 1 млн. Приведенные данные говорят об исключительно напряженной и масштабной работе сотрудников ИТАРТАСС.