Двунаправленный динамический список

Листингпрограммногоизделия наязыке программирования“С”.

#include

#include

#include

#include

typedef

structinform

{charname[15],fam[15],fanem[15],b_day[3],b_manth[10],b_year[5],zodiak[8];

structinform *next,*prev;};

structinform *first,*cut,*temp;

intn,i;

chars1[10],s2[10];

/*************************************************************/

voidDobav ( )

{

clrscr();

if((temp=(struct inform*)malloc(sizeof(struct inform)))==NULL)exit(1);

printf("Введитефамилию: ");

scanf("%s",(*temp).fam);

printf("Введитеимя: ");

scanf("%s",(*temp).name);

printf("Введитеотчество: ");

scanf("%s",(*temp).fanem);

printf("Введитедень рождения:");

scanf("%s",(*temp).b_day);

printf("Введитемесяц рождения:");

scanf("%s",(*temp).b_manth);

printf("Введитегод рождения:");

scanf("%s",(*temp).b_year);

strcpy(s2,(*temp).b_day);

strncpy(s1,(*temp).b_manth,3);

strcpy((*temp).zodiak," ");

if(strcmp(s1,"апр")==0)

if(strcmp(s2,"21")

elsestrcpy((*temp).zodiak,"телец");

if(strcmp(s1,"мая")==0)

if(strcmp(s2,"21")

elsestrcpy((*temp).zodiak,"близнецы");

if(strcmp(s1,"июн")==0)

if(strcmp(s2,"22")

elsestrcpy((*temp).zodiak,"рак");

if(strcmp(s1,"июл")==0)

if(strcmp(s2,"23")

elsestrcpy((*temp).zodiak,"лев");

if(strcmp(s1,"авг")==0)

if(strcmp(s2,"24")

elsestrcpy((*temp).zodiak,"дева");

if(strcmp(s1,"сен")==0)

if(strcmp(s2,"24")

elsestrcpy((*temp).zodiak,"весы");

if(strcmp(s1,"окт")==0)

if(strcmp(s2,"24")

elsestrcpy((*temp).zodiak,"скорпион");

if(strcmp(s1,"ноя")==0)

if(strcmp(s2,"23")

elsestrcpy((*temp).zodiak,"стрелец");

if(strcmp(s1,"дек")==0)

if(strcmp(s2,"22")

elsestrcpy((*temp).zodiak,"козерог");

if(strcmp(s1,"янв")==0)

if(strcmp(s2,"21")

elsestrcpy((*temp).zodiak,"водолей");

if(strcmp(s1,"фев")==0)

if(strcmp(s2,"21")

elsestrcpy((*temp).zodiak,"рыбы");

if(strcmp(s1,"мар")==0)

if(strcmp(s2,"21")

elsestrcpy((*temp).zodiak,"овен");

if(first==NULL)

{

(*temp).next=NULL;

(*temp).prev=NULL;

first=temp;

cut=temp;

}

else

{

(*temp).next=NULL;

(*temp).prev=cut;

(*cut).next=temp;

cut=temp;

}

}

/*************************************************************/

voidUdal ( )

{

charffam[10],fname[10],ffanem[10];

clrscr();

if(first==NULL) printf("Таблицапустаn");

else

{

printf("Введитефамилию: ");

scanf("%s",ffam);

printf("Введитеимя: ");

scanf("%s",fname);

printf("Введитеотчество: ");

scanf("%s",ffanem);

temp=first;

while((strcmp(ffam, (*temp).fam) ||strcmp(fname,(*temp).name) ||

strcmp(ffanem,(*temp).fanem))&& temp!=NULL)

temp=(*temp).next;

if(temp==NULL) printf("Нет такого");

else

{

if(first!=cut)

if((*temp).prev==NULL)

{

(*(*temp).next).prev=(*temp).prev;

first=(*temp).prev;

}

else

if((*temp).next==NULL)

{

(*(*temp).prev).next=(*temp).next;

cut=(*temp).prev;

}

else

{

(*(*temp).prev).next=(*temp).next;

(*(*temp).next).prev=(*temp).prev;

}

elsefirst=NULL;

free(temp);

}

}

scanf("%s");

}

/*************************************************************/

voidProsm ( )

{

clrscr();

if(first==NULL) printf("Таблицапуста");

else

{

printf("ФамилияИмя Отчество Дата рождения");

printf(" ‡Знакзодиака");

printf("n--------------------------------------------------------------------------------");

temp=first;

do

{

n=strlen((*temp).fam)+strlen((*temp).name)+strlen((*temp).fanem);

printf("n%s %s %s",(*temp).fam,(*temp).name,(*temp).fanem);

i=1;

while(i

{

printf(" ");

i++;

}

printf("%s ",(*temp).b_day);

printf("%s ",(*temp).b_manth);

printf("%s ",(*temp).b_year);

n=n+i+strlen((*temp).b_day)+strlen((*temp).b_manth)+strlen((*temp).b_year);

i=1;

while(i

{

printf(" ");

i++;

}

printf("%s",(*temp).zodiak);

temp=(*temp).next;

}

while(temp!=NULL);

}

scanf("%s");

}

/*************************************************************/

voidSortir ( )

{

structinform *tmp;

intm;

clrscr();

if(first!=NULL)

{

m=1;

while(m==1)

{

m=0;

temp=first;

while((*temp).next!=NULL)

{

if((strcmp((*temp).fam,(*(*temp).next).fam)>0) ||

(strcmp((*temp).fam,(*(*temp).next).fam)==0) &&

(strcmp((*temp).name,(*(*temp).next).name)>0) ||

(strcmp((*temp).fam,(*(*temp).next).fam)==0) &&

(strcmp((*temp).name,(*(*temp).next).name)==0) &&

(strcmp((*temp).fanem,(*(*temp).next).fanem)>0))

{

m=1;

if(temp==first) first=(*temp).next;

else (*(*temp).prev).next=(*temp).next;

if((*temp).next==cut)

{

cut=temp;

tmp=NULL;

}

else

{

(*(*(*temp).next).next).prev=temp;

tmp=(*(*temp).next).next;

}

(*(*temp).next).next=temp;

(*(*temp).next).prev=(*temp).prev;

(*temp).prev=(*temp).next;

(*temp).next=tmp;

}

elsetemp=(*temp).next;

}

m=0;

temp=cut;

while((*temp).prev!=NULL)

{

if((strcmp((*temp).fam,(*(*temp).prev).fam)

(strcmp((*temp).fam,(*(*temp).prev).fam)==0) &&

(strcmp((*temp).name,(*(*temp).prev).name)

(strcmp((*temp).fam,(*(*temp).prev).fam)==0) &&

(strcmp((*temp).name,(*(*temp).prev).name)==0) &&

(strcmp((*temp).fanem,(*(*temp).prev).fanem)

{

m=1;

if(temp==cut) cut=(*temp).prev;

else (*(*temp).next).prev=(*temp).prev;

if((*temp).prev==first)

{

first=temp;

tmp=NULL;

}

else

{

(*(*(*temp).prev).prev).next=temp;

tmp=(*(*temp).prev).prev;

}

(*(*temp).prev).prev=temp;

(*(*temp).prev).next=(*temp).next;

(*temp).next=(*temp).prev;

(*temp).prev=tmp;

}

elsetemp=(*temp).prev;

}

}

}

elseprintf("Таблицапуста");

scanf("%s");

}

/*************************************************************/

voidmain()

{

charch;

first=NULL;

do

{

clrscr();

printf("Выбертедействиеn1-Добавитьn2-Удалитьn");

printf("3-Просмотретьn4-Сортироватьn0-Выход");

scanf("%d",&ch);

switch(ch)

{

case1:Dobav();break;

case2:Udal();break;

case3:Prosm();break;

case4:Sortir();break;

}

}

while(ch);

}

Задание

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

В программномизделии предусмотретьработу со списком,которая включаетв себя:

1. Ввод данных;

2. Удалениеданных из списка;

3. Вывод спискана дисплей;

4. Сортировкусписка по фамилии.

Написатьпрограммноеизделие на двухязыках программирования:C, Pascal.

Описаниеалгоритмапрограммы со структуройданных

Взаимодействиепрограммы спользователемдолжно бытьреализованопо следующемуалгоритму:

Выбориз главногоменю одной изследующихфункций:

а)Добавить;

б)Удалить;

в)Просмотреть;

г)Сортировать;

д) Выход.

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

Привыборе функции«Выход» работапрограммызавершается.

При выборефункции «Добавить»,выделяетсяпамять дляхранения данных,затем пользователюпредлагаетсяввести фамилию,имя, отчествои дату рождениячеловека, этиданные заносятсяв память, послечего автоматическиопределяетсязнак зодиакапо западномукалендарю изаносится впамять.

При выборефункции «Удалить»,проверяетсяналичие данныхв списке. Еслисписок пуст,на дисплейвыводитсясоответствующеесообщение;иначе пользователюпредлагаетсяввести фамилию,имя и отчествочеловека, послечего происходитего поиск всписке. Еслиданные на человекавнесены в список,то происходитудаление этихданных и освобождениепамяти; иначена дисплейвыводитсянадпись об ихотсутствии.

При выборефункции «Просмотреть»,поверяетсяналичие данныхв списке. Если данные отсутствуют,на дисплейвыводитсясоответствующеесообщение;иначе выводитсятаблица, содержащаяфамилию, имя,отчество, датурождения человекаи его знак зодиакапо западномугороскопу.

При выборефункции «Сортировать»,происходитсортировкасписка по фамилии.Если в спискевстречаютсядве одинаковыефамилии, тогдасравниваютсяимена; при совпаденииимён сравниваютсяотчества.

Описаниепрограммы

Для реализациидинамическогосписка в программеприменён типуказателей,указывающийна запись”Inform”, содержащуюфамилию”fam”, имя”name”, отчество”fanem”, деньрождения”bethday”, знакзодиака”zodiak” и указателина следующий”next” и предыдущий”prev” элементысписка.

С помощьюэтого типа”Ukazat” описаныпеременные:“temp” – дляхранения указателяна текущийэлемент; “first”– для храненияуказателя напервый элементв списке; “cut”– для храненияна последнийэлемент в списке.Переменная“ch”используетсядля выборапроцедуры;“s1”, “s2”,“n” – длявычислениязнака зодиака;“m”– для проверкиусловия, присортировке;“ffam”, “fname”,“ffanem” – длявременногохранения фамилии,имени, отчества,при удаленииэлемента изсписка.

Программаначинает выполнятьсяс присвоенияуказателю напервый элемент(first) значения“nil”.После этогопользователюпредлагаетсявыбрать действие:«1-Добавить»,«2-Удалить»,«3-Просмотреть»,«4-Сортировать»,«0-Выход».В зависимостиот того, какоедействие выберетпользователь,начнёт выполнятьсята или инаяпроцедура, илипроизойдётвыход из программы.Это реализованос помощью операциивыбора “case”.Послевыполнениянекоторойпроцедурыпользователювновь предлагаетсявыбрать одноиз вышеуказанныхдействий, покане будет выбранвыход из программы.Это реализованос помощью цикла“repeat until”.

Процедурадобавления“Dobav”.

Сначалавыделяетсяпамять подтекущий элемент(new(temp)), затемв этот элементзаписываетсяфамилия, имя,отчество и датарождения. Подате рождениявычисляетсязнак зодиака.Для этого в s2записываетсячисло рождения,а в s1первые трибуквы месяцарождения, затем,путём сравненияэтих переменныхс числами ичастями словнаходитсясоответствующийзнак зодиака,и заноситсяв текущий элемент.После вводаинформации,проверяетсяналичие элементовв списке. Еслиони отсутствуют,то в текущемэлементе, указателямна следующий(next) ипредыдущий(prev) элементыприсваиваетсязначение “nil”;а указательна сам элемент(temp) присваиваетсяуказателямна первый (first)и последний(cut)элементы всписке. Еслисписок не пустой,то в текущемэлементе, указателюна следующийэлемент(next) присваиваетсязначение “nil”,а указателюна предыдущийэлемент(prev) присваиваетсяуказатель напоследнийэлемент (cut)в списке; а указателюна следующийэлемент (next)последнегоэлемента всписке и указателюна последнийэлемент (cut)присваиваетсяуказатель натекущий элемент(temp). После чегопроцедурадобавлениязавершается.

Процедураудаления“Udal”.

В этой процедуресначала проверяетсяналичие элементовв списке. Еслисписок пуст,то выводитсясообщение:«Таблица пуста».Если же списоксодержит элементы,то пользователюпредлагаетсяввести фамилию,имя и отчествоудаляемого,записывая ихв ffam, fname, ffanemсоответственно.После происходитпоиск удаляемогоэлемента всписке. Этореализованос помощью цикла,который выполняется,пока элементне найден илине просмотренвесь список.Если искомыйэлемент отсутствует,то выводитсясообщение:«Такого нет».Если же искомыйэлемент найден,то текущийуказатель(temp)показываетна него, и происходитего удаление.

Если указателина первый (first)и последний(cut) элементыне равны, топроисходитпоиск местонахожденияэлемента всписке. Есливнутри текущегоэлемента указательна предыдущийэлемент (prev)равен nil,тогда указателюна предыдущийэлемент (prev)внутри следующегоза текущимэлементомприсваиваетсяуказатель напредыдущийэлемент внутритекущего, ауказателю напервый элемент(first) в спискеприсваиваетсяуказатель наследующийэлемент. Есливнутри текущегоэлемента указательна следующийэлемент (next)равен nil,тогда указателюна следующийэлемент (next)внутри предыдущегоперед текущимэлементомприсваиваетсяуказатель наследующийэлемент внутритекущего, ауказателю напоследнийэлемент (cut)в списке присваиваетсяуказатель напредыдущийэлемент. Еслитекущий элементоказался «внутри»списка, тогдауказателю наследующийэлемент (next)внутри предыдущегоперед текущимэлементомприсваиваетсяуказатель наследующийэлемент внутритекущего, ауказателю напредыдущийэлемент (prev)внутри следующегоза текущимэлементомприсваиваетсяуказатель напредыдущийэлемент внутритекущего.

Если же указателина первый (first)и последний(cut) элементыравны, то указателюна первый элементв списке (first)присваиваетсяnil.

После некоторыхпреобразованийвнутри спискапроисходитосвобождениепамяти текущегоэлемента(dispose(temp)). На этомпроцедураудаления завершается.

Процедурапросмотра“Prosm”.

Эта процедуравыполняет выводсодержимогосписка в видетаблицы.

Сначала надисплей выводитсяшапка таблицы,содержащая:«Фамилия ИмяОтчество»,«Дата рождения»и «Знак зодиака».После выводашапки проверяетсяналичие элементовв списке.

Если списоксодержит элементы,то происходитих построчныйвывод. Этореализованос помощью цикла,который выполняется,пока указательна текущийэлемент (temp)не переберётвсе элементысписка. В циклевычисляетсядлина фамилии,имени и отчества,после чего онивыводятся надисплей, а заними выводятсядата рожденияи знак зодиака;затем указателюна текущийэлемент (temp)присваиваетсяуказатель наследующий заним элемент.

Если списококажется пуст,то выводитсясообщение:«Таблица пуста».

После завершенияцикла или выводасообщения,процедурапросмотразавершается.

Процедурасортировки“Sortir”.

Для этойпроцедурыпримененалокальнаяпеременная“tmp”типа “ukazat”.Здесь сначалапроверяетсяналичие элементовв списке.

Если списоксодержит элементы,то переменной“m”присваиваетсязначение “true”,затем выполняетсяцикл, пока “m=true”.В циклепеременной“m”присваиваетсязначение “false”,указателю натекущий элемент(temp)присваиваетсяуказатель напервый элементв списке(first),и выполняетсявложенный цикл,пока указательна следующийэлемент внутритекущего неравен “nil”.В этом циклепроверяетсякакой элементбольше.

Если текущийэлемент окажетсябольше чемследующий заним элемент,тогда переменной“m”присваиваетсязначение “true”,и проверяетсяместонахождениетекущего элементав списке. Еслион окажетсяв начале списка,то указателюна первый элементв списке (first)присваиваетсяуказатель наследующийэлемент затекущим, а иначеуказателю наследующийэлемент (next)внутри предыдущегоперед текущимэлементомприсваиваетсяуказатель наследующийэлемент внутритекущего. Еслиже текущийэлемент окажетсяв конце списка,тогда указателюна последнийэлемент в спискеприсваиваетсяуказатель натекущий элемент,а локальнойпеременной“tmp”присваиваетсязначение “nil”,а иначе указателюна предыдущийэлемент (prev)следующегоэлемента послеследующегоза текущимэлементомприсваиваетсяуказатель натекущий элемент,а локальнойпеременной(tmp)присваиваетсяуказатель наследующийэлемент послеследующегоза текущимэлементом.После выясненияместоположенияи выполнениянекоторыхкоманд, указателюна следующийэлемент послеследующегоза текущимэлементомприсваиваетсяуказатель натекущий элемент,указателю напредыдущийэлемент следующегоза текущимэлементомприсваиваетсяуказатель напредыдущийэлемент передтекущим; а внутритекущего элементауказателю напредыдущийперед текущимприсваиваетсяуказатель наследующийэлемент затекущим, и указателюна следующийэлемент затекущим присваиваетсялокальнаяпеременная“tmp”. Еслиже текущийэлемент окажетсяне больше чемследующий заним элемент,тогда указателюна текущийэлемент (temp)присваиваетсяуказатель наследующий заним элемент(next).На этом выполнениевложенногоцикла завершается.

Переменной“m”снова присваиваетсязначение “false”,а указателюна текущийэлемент (temp)присваиваетсяуказатель напоследнийэлемент в списке(cut),и выполняетсяещё один вложенныйцикл, пока указательна предыдущийэлемент внутритекущего неравен “nil”.В этом циклепроверяетсякакой элементменьше.

Если текущийэлемент окажетсяменьше чемпредыдущийперед ним элемент,тогда переменной“m”присваиваетсязначение “true”,и проверяетсяместонахождениетекущего элементав списке. Еслион окажетсяв конце списка,то указателюна последнийэлемент в списке(cut)присваиваетсяуказатель напредыдущийэлемент передтекущим, а иначеуказателю напредыдущийэлемент (prev)внутри следующегоза текущимэлементомприсваиваетсяуказатель напредыдущийэлемент внутритекущего. Еслиже текущийэлемент окажетсяв начале списка,тогда указателюна первый элементв списке присваиваетсяуказатель натекущий элемент,а локальнойпеременной“tmp”присваиваетсязначение “nil”,а иначе указателюна следующийэлемент (next)предыдущегоэлемента передпредыдущимдо текущегоэлементаприсваиваетсяуказатель натекущий элемент,а локальнойпеременной(tmp)присваиваетсяуказатель напредыдущийэлемент передпредыдущимдо текущегоэлемента. Послевыясненияместоположенияи выполнениянекоторыхкоманд, указателюна предыдущийэлемент передпредыдущимдо текущегоэлементаприсваиваетсяуказатель натекущий элемент,указателю наследующийэлемент предыдущегоперед текущимэлементомприсваиваетсяуказатель наследующий послетекущего; авнутри текущегоэлемента указателюна следующийэлемент присваиваетсяуказатель напредыдущийэлемент, и указателюна предыдущийэлемент присваиваетсялокальнаяпеременная“tmp”. Еслиже текущийэлемент окажетсяне меньше чемпредыдущийперед ним элемент,тогда указателюна текущийэлемент (temp)присваиваетсяуказатель напредыдущийперед ним элемент(prev).На этом выполнениевложенногоцикла завершается.

Если во времяповерки наличияэлементов всписке окажется,что он пуст, товыводитсясообщение:«Таблица пуста».

После завершенияцикла или выводасообщения,процедурасортировкизавершается.

Листингпрограммногоизделия наязыке программирования“Pascal”.

Programkursovik;

usescrt;

typeUkazat=^Inform;

Inform=record fam:string[15];

name:string[15];

fanem:string[15];

bethday:string[21];

zodiak:string[8];

next:Ukazat;

prev:Ukazat;

end;

vartemp,first,cut:Ukazat;

ch:char;

s1,s2:string;

n:integer;

m:boolean;

ffam,fname,ffanem:string[10];

Procedure Dobav;

begin

ClrScr;

new(temp);

write('Введитефамилию: ');

readln(temp^.fam);

write('Введитеимя: ');

readln(temp^.name);

write('Введитеотчество: ');

readln(temp^.fanem);

write('Введитедату рождения:');

readln(temp^.bethday);

n:=1;

s2:=copy(temp^.bethday,n,1);

while((s2'9')) and (n

begin

inc(n);

s2:=copy(temp^.bethday,n,1);

end;

inc(n);

s1:=copy(temp^.bethday,n,1);

if(s1>='0') and (s1

elses2:='0'+s2;

while((s1'я')) and (n

begin

inc(n);

s1:=copy(temp^.bethday,n,1);

end;

s1:=copy(temp^.bethday,n,3);

temp^.zodiak:='';

ifs1='апр' then

ifs2

elsetemp^.zodiak:='телец';

ifs1='мая' then

ifs2

elsetemp^.zodiak:='близнецы';

ifs1='июн' then

ifs2

elsetemp^.zodiak:='рак';

ifs1='июл' then

ifs2

elsetemp^.zodiak:='лев';

ifs1='авг' then

ifs2

elsetemp^.zodiak:='дева';

ifs1='сен' then

ifs2

elsetemp^.zodiak:='весы';

ifs1='окт' then

ifs2

elsetemp^.zodiak:='скорпион';

ifs1='ноя' then

ifs2

elsetemp^.zodiak:='стрелец';

ifs1='дек' then

ifs2

elsetemp^.zodiak:='козерог';

ifs1='янв' then

ifs2

elsetemp^.zodiak:='водолей';

ifs1='фев'

thenif s2

elsetemp^.zodiak:='рыбы';

ifs1='мар'

thenif s2

elsetemp^.zodiak:='овен';

iffirst=nil then

begin

temp^.prev:=nil;

temp^.next:=nil;

first:=temp;

cut:=temp;

end

elsebegin

temp^.next:=nil;

temp^.prev:=cut;

cut^.next:=temp;

cut:=temp;

end;

end;{procedure}

Procedure Udal;

begin

ClrScr;

{1}iffirst=nil then

begin

writeln('Таблицапуста');

readln;

end

else

begin{else1}

write('Введитефамилию: ');

readln(ffam);

write('Введитеимя: ');

readln(fname);

write('Введитеотчество: ');

readln(ffanem);

temp:=first;

while((ffamtemp^.fam) or (fnametemp^.name) or

(ffanemtemp^.fanem)) and (tempnil)do

temp:=temp^.next;

{2}iftemp=nil then

begin

write('Такого нет');

readln;

end

else

begin{else2}

{3}if firstcut then

{4}if temp^.prev=nil then

begin

temp^.next^.prev:=temp^.prev;

first:=temp^.next;

end

else{4}

{5}if temp^.next=nil then

begin

temp^.prev^.next:=temp^.next;

cut:=temp^.prev;

end

else begin{else5}

temp^.prev^.next:=temp^.next;

temp^.next^.prev:=temp^.prev;

end{else5}

else {3} first:=nil;

dispose(temp);

end;{else2}

end;{else1}

end;{procedure}

Procedure Prosm;

begin

ClrScr;

temp:=first;

writeln('Фамилия Имя Отчество':27,'Дата рождения':27,'Знакзодиака':20);

write('________________________________________________________________');

iffirstnil then

begin

whiletempnil do

begin

n:=length(temp^.fam)+length(temp^.name)+length(temp^.fanem);

writeln(temp^.fam,'',temp^.name,' ',temp^.fanem,

temp^.bethday:55-n,temp^.zodiak:15);

temp:=temp^.next;

end;

end

elsewriteln('Таблицапуста':40);

readln;

end;

Procedure Sortir;

var

tmp:ukazat;

begin

ClrScr;

iffirstnil then

begin

m:=true;

{0}while m=true do

begin

m:=false;

temp:=first;

while temp^.nextnil do

begin{1}

if (temp^.fam>temp^.next^.fam) or

(temp^.fam=temp^.next^.fam) and

(temp^.name>temp^.next^.name) or

(temp^.fam=temp^.next^.fam) and

(temp^.name=temp^.next^.name) and

(temp^.fanem=temp^.next^.fanem) then

begin{2}

m:=true;

if temp=first then

first:=temp^.next

else temp^.prev^.next:=temp^.next;

if temp^.next=cut then

begin

cut:=temp;

tmp:=nil;

end

else begin{3}

temp^.next^.next^.prev:=temp;

tmp:=temp^.next^.next;

end;{3}

temp^.next^.next:=temp;

temp^.next^.prev:=temp^.prev;

temp^.prev:=temp^.next;

temp^.next:=tmp;

end{2}

else temp:=temp^.next;

end;{1}

m:=false;

temp:=cut;

while temp^.prevnil do

begin{2.1}

if (temp^.fam

(temp^.fam=temp^.prev^.fam) and

(temp^.name

(temp^.fam=temp^.prev^.fam) and

(temp^.name=temp^.prev^.name) and

(temp^.fanem

begin{2.2}

m:=true;

if temp=cut then cut:=temp^.prev

else temp^.next^.prev:=temp^.prev;

if temp^.prev=first then

begin

first:=temp;

tmp:=nil;

end

else

begin{2.3}

temp^.prev^.prev^.next:=temp;

tmp:=temp^.prev^.prev;

end;{2.3}

temp^.prev^.prev:=temp;

temp^.prev^.next:=temp^.next;

temp^.next:=temp^.prev;

temp^.prev:=tmp;

end{2.2}

else temp:=temp^.prev;

end;{2.1}

end;{0}

end

elsebegin

writeln('Таблицапуста');

readln;

end;

end;

begin

first:=nil;

repeat

ClrScr;

writeln('Выберитедействие:');

writeln('1-Добавить');

writeln('2-Удалить');

writeln('3-Просмотреть');

writeln('4-Сортировать');

writeln('0-Выход');

readln(ch);

casech of

'1':Dobav;

'2':Udal;

'3':Prosm;

'4':Sortir;

end;

untilch='0';

end.

КазанскийГосударственныйТехническийУниверситет им. А.Н.Туполева

Курсоваяработа по дисциплине:

Алгоритмическиеязыки и программирование.

Тема: “Двунаправленныйдинамическийсписок “.

Выполнил:

студентгр.****

******** *.*.

Проверил:

Ст. преподаватель

Каф. ПМИ

******** *.*.

Оценка:

отлично

Казань2001