Обсъдени структури ранните данни са статични.
Това означава, че паметта за данни, разпределени по време на компилация. Това разпределение на паметта не винаги е удобно, тъй като трудно да се предвиди предварително, като размер на масива за сортиране или на броя на уравненията в системата. Ето защо, в Turbo Pascal, че е възможно да се разпределят на паметта не се съберат, така и на етапа на изпълнение на програмата - динамичната памет.
процедура за разпределение на паметта Ред, свързани с излизането си след употреба. В Turbo Pascal, има три двойки разпределение на паметта, процедурите за освобождаване. New - Изхвърлете, GetMem - FreeMem, Марк - издаване. Най-често използваният чифт разпределението Нова памет и да се разпорежда да я освободите. Трябва да се подчертае, че използването на Изхвърлете да освободи разпределя паметта на стека не е задължително, след динамична памет на програмата автоматично се освобождава, но честото използване на процедура за разпределение на паметта, без освобождаването й може да доведе до невъзможност за по-нататъшно разпределение на паметта и да се спре програмата.
В началото на програмата се прилага, 5 пациентите записи. Въвеждане на първия запис е описано отделно от останалата част от подготовката за работа на указатели (по-специално, Пред указател към предишния рекорд, който не е съществувал и се определя само след първата стойност на записа). За всяко вписване в началото на референтния поле срещу присвоите нулев, което означава, че няма следващия запис. Впоследствие, на разпределението на следващата процедура запис в паметта в тази нова област е настоящият показалеца, но не и за тока, но за предишна рекорд. На последния запис на място V е нулев.
След това в програмата е описано отстраняването на медицинските досиета на пациентите при налягане по-голямо от 140. Списъкът свързан може да се види от самото начало, което се възлага на ток показалка ТЕК перверзник показалеца на първия запис. Гледани поле налягане ТЕК ^ .davl за текущия запис, и ако тя е по-голяма от 140, записът да бъде изтрита. В същото време има и различия, дали първата подвижна записът или не.
Ако изтриете миналогодишния рекорд (ТЕК ^ .v = нула), тя трябва да бъде в позоваването на предишния списък рекорд набор терминатор Предвиждане ^ .v: = нула. ако съществува предишния рекорд (списъкът не е празен, който не се изтриват всички записи). Ако се премахнат всички записи, трябва да се определят перверзник: = нула.
На следващо място, програмата трябва отпечатване на останалите вписвания, ако списъкът не е празна. Зададохме текущата курсора на първия запис и показване на полета за информация и FIO davl. След това преминете към следващия запис TEK: = ТЕК ^ .v.
Свързани статии