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.

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


 

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

54435. Пояснювальна записка до інтегрованого уроку (англійська, німецька мови, інформатика) 115 KB
  Тема: Die Brücke vom Herzen zum Herzen The Bridge from Hert to Hert Міст від серця до серця Мета уроку: 1 практична: розвивати навички монологічного та діалогічного мовлення; стимулювати інтерес учнів до теми уроку активізуючи використання вивченого лексичного матеріалу з теми; повторити правила утворення ступенів порівняння прикметників тренувати їх вживання; розвивати навички читання пошуку потрібної інформації в тексті; повторити географічні назви країн та...
54436. Мотивація навчальної діяльності учнів 58.5 KB
  Мотивація навчальної діяльності учнів Найважливіший сенс учительської праці навчити учнів так щоб вони не розгубилися в бурхливому вирії сучасного життя. Треба зацікавити учнів не лише конкретним предметом а й процесом отримання знань. За словами французького письменника вчитись треба тільки весело; щоб переварити знання треба поглинати їх з апетитом Саме тому однією з моїх методичних тем є проблема Мотивація навчальної діяльності учнів Будь яка діяльність людинив тому числі і навчання підкоряється загальній схемі: 1. Навіщо...
54437. Мотивація - один і з структурних елементів інтерактивного навчання 68.5 KB
  Використовую різноманітні прийоми мотивації: Мотивація навчальної діяльності шляхом бесіди Шляхом створення проблемної ситуації Шляхом використання технології мозкова атака Шляхом опрацювання тексту періодичних видань За технологією незакінчене речення Шляхом виготовлення саморобних наочних посібників Шляхом використання творчих завдань Шляхом використання художньої та науковопопулярної літератури Шляхом створення ситуацій успіху На основі діяльнісного підходу до навчання За допомогою екстраполяції прогнозування...
54438. Die Ukraine − unsere Heimat 49.5 KB
  Die Ukrine − unsere Heimt Мета. Мовна зарядка Welche Tg ist heute Der wievielte ist heute Sind lle Schen in Ordnung Ist die Tfel suber 3. Де ви живете Ви живете в Києві Ми живемо на вулиці Шевченка 12 Konjugiert die folgenden Verben im Präsens sprechen wohnen leben. Die Hupstdt der Ukrine heißt Kyjiw.
54439. Лексикологія. Багатозначність слів, вживання їх у прямому та переносному значеннях, синоніми і антоніми 44.5 KB
  Сухомлинський Мова жива сходинка людського духу Панас Мирний Мова коштовній скарб народу І. Франко Мова життя духовного основа М. Рильский Мова генофонд культури О.Завжди йдуть у парі мова й думка.
54440. Голос рідної природи серцем слухати навчись 84.5 KB
  Полтави Голос рідної природи серцем слухати навчись Мова – найбільший скарб який є у кожного народу. Навчальний процес в початковій школі ми намагаємося організувати так щоб перші кроки до науки маленькі школярі робили на уроках мислення серед природи гортаючи сторінку за сторінкою Книгу рідної землі. Дитина від своєї природи писав Сухомлинський допитливий дослідник відкривач світу. Один із перших кроків наближення дітей до природи розуміння її – це спостереження що проводиться безпосередньо в довкіллі.
54441. ЦІКАВИНКИ РІДНОЇ МОВИ 53 KB
  Закріплювати знання учнів формувати вміння думатислухати. Ви підросли порозумнішали навчилися застосовувати практично наявні знання. Вітаю тих хто не отримав перемогу але показав міцні знання стійкий бійцівський характер.
54442. ЦВІТИ І СМІЙСЯ, РІДНЕ СЛОВО! У СЕРЦІ ЩИРОМУ ЗВУЧИ! 66 KB
  Нам стежку в світ дано топтати Поки в нас рідна мова є Учениця І як гуртом не поодинці Почнемо в світ її нести То й доти будем – українці Поміж народів сміло йти Учень А знехтуємо рідне слово – Земля цього нам не простить То ж сяй над світом рідна мово Тобі в віках судилось жить Учениця Цвіти і смійся рідне слово У серці щирому звучи Моя чарівна рідна мово Лети над світом не мовчи Звучить музика Ведучий. Ведучий. Ведучий. Ведучий.
54443. Соловїна, барвінкова, українська рідна мова 205 KB
  Мета: навчальна поглибити знання учнів про рідну мову її символи традиції впроваджувати елементи естетичного виховання культури спілкування; розвивальна – розвивати українське мовлення культуру поведінки; виховна – виховувати любов і повагу до своєї Батьківщини України її символів традицій обрядів почуття глибокої поваги до предків своїх рідних і близьких творчу самостійність і відповідальність уміння самоорганізовуватись вміння...