Листингпрограммногоизделия наязыке программирования“С”.
#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);
}
Задание
Реализоватьбазу данныхна основедвунаправленногодинамическогосписка, содержащегофамилию, имя,отчество человека,дату его рожденияи знак зодиакапо западномукалендарю.
В программномизделии предусмотретьработу со списком,которая включаетв себя:
Ввод данных;
Удалениеданных из списка;
Вывод спискана дисплей;
Сортировкусписка по фамилии.
Написатьпрограммноеизделие на двухязыках программирования: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 студентгр.****
Ст. преподаватель