Рефераты, дипломные проекты и тд. Скачать бесплатно!

Категории работ

Социология

Менеджмент (Теория управления и организации)

Психология, Общение, Человек

Культурология

Технология

Химия

История

Материаловедение

Историческая личность

Политология, Политистория

Международные экономические и валютно-кредитные отношения

Гражданская оборона

Экономическая теория, политэкономия, макроэкономика

Теория государства и права

Литература, Лингвистика

Искусство

Философия

Физкультура и Спорт

История экономических учений

Бухгалтерский учет

Маркетинг, товароведение, реклама

Религия

Педагогика

Медицина

Банковское дело и кредитование

Налоговое право

Криминалистика и криминология

Уголовное право

Российское предпринимательское право

Техника

Компьютерные сети

Математика

Микроэкономика, экономика предприятия, предпринимательство

Семейное право

Физика

Биология

Музыка

География, Экономическая география

Здоровье

Программирование, Базы данных

Международное частное право

Программное обеспечение

Теория систем управления

Охрана природы, Экология, Природопользование

Иностранные языки

Сельское хозяйство

Государственное регулирование, Таможня, Налоги

Компьютеры и периферийные устройства

Транспорт

Разное

Ценные бумаги

Римское право

Москвоведение

Правоохранительные органы

Космонавтика

Трудовое право

Астрономия

История государства и права зарубежных стран

Гражданское право

Радиоэлектроника

Страховое право

Военная кафедра

Право

Таможенное право

Прокурорский надзор

Конституционное (государственное) право России

Юридическая психология

Уголовный процесс

Подобные работы

Экспертные системы. Классификация экспертных систем. Разработка простейшей экспертной системы

echo "Главным достоинством экспертных систем является возможность накопления знаний и сохранение их длительное время. В отличии от человека к любой информации экспертные системы подходят объективно, ч

Информационные технологии в экономике

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

Информация и информатика

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

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

echo "Описание программы Для реализации динамического списка в программе применён тип указателей, указывающий на запись ” Inform ”, содержащую фамилию ” fam ”, имя ” name ”, отчество ” fanem ”, день р

Информационные системы в экономике

echo "Значительное внимание уделено вопросам документирования технологических процессов, которые вызывают значительные затруднения. Сформулированы основные требования, предъявляемые к оформлению техн

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

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

Описание программы Для реализации динамического списка в программе применён тип указателей, указывающий на запись ” Inform ”, содержащую фамилию ” fam ”, имя ” name ”, отчество ” fanem ”, день рождения ” bethday ”, знак зодиака ” zodiak ” и указатели на следующий ” next ” и предыдущий ” prev ” элементы списка. С помощью этого типа ” Ukazat ” описаны переменные: “ temp ” – для хранения указателя на текущий элемент; “ first ” – для хранения указателя на первый элемент в списке; “ cut ” – для хранения на последний элемент в списке.

Переменная “ ch ” используется для выбора процедуры; “ s 1”, “ s 2”, “ n ” – для вычисления знака зодиака; “ m ” – для проверки условия, при сортировке; “ ffam ”, “ fname ”, “ ffanem ” – для временного хранения фамилии, имени, отчества, при удалении элемента из списка.

Программа начинает выполняться с присвоения указателю на первый элемент ( first ) значения “ nil ”. После этого пользователю предлагается выбрать действие: «1-Добавить», «2-Удалить», «3-Просмотреть», «4-Сортировать», «0-Выход». В зависимости от того, какое действие выберет пользователь, начнёт выполняться та или иная процедура, или произойдёт выход из программы. Это реализовано с помощью операции выбора “ case ”.После выполнения некоторой процедуры пользователю вновь предлагается выбрать одно из вышеуказанных действий, пока не будет выбран выход из программы. Это реализовано с помощью цикла “ repeat until ”. Процедура добавления “ Dobav ”. Сначала выделяется память под текущий элемент ( new ( temp )), затем в этот элемент записывается фамилия, имя, отчество и дата рождения. По дате рождения вычисляется знак зодиака. Для этого в s 2 записывается число рождения, а в s 1 первые три буквы месяца рождения, затем, путём сравнения этих переменных с числами и частями слов находится соответствующий знак зодиака, и заносится в текущий элемент. После ввода информации, проверяется наличие элементов в списке. Если они отсутствуют, то в текущем элементе, указателям на следующий ( 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 ”. Program kursovik; uses crt; type Ukazat=^Inform; Inform=record fam:string[15]; name:string[15]; fanem:string[15]; bethday:string[21]; zodiak:string[8]; next:Ukazat; prev:Ukazat; end; var temp,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 else s2:='0'+s2; while ((s1 А ') or (s1>' я ')) and (n begin inc(n); s1:=copy(temp^.bethday,n,1); end; s1:=copy(temp^.bethday,n,3); temp^.zodiak:=' '; if s1=' апр ' then if s2 овен ' else temp^.zodiak:=' телец '; if s1=' мая ' then if s2 телец ' else temp^.zodiak:=' близнецы '; if s1=' июн ' then if s2 близнецы ' else temp^.zodiak:=' рак '; if s1=' июл ' then if s2 рак ' else temp^.zodiak:=' лев '; if s1=' авг ' then if s2 лев ' else temp^.zodiak:=' дева '; if s1=' сен ' then if s2 дева ' else temp^.zodiak:=' весы '; if s1=' окт ' then if s2 весы ' else temp^.zodiak:=' скорпион '; if s1=' ноя ' then if s2 скорпион ' else temp^.zodiak:=' стрелец '; if s1=' дек ' then if s2 стрелец ' else temp^.zodiak:=' козерог '; if s1=' янв ' then if s2 козерог ' else temp^.zodiak:=' водолей '; if s1=' фев ' then if s2 водолей ' else temp^.zodiak:=' рыбы '; if s1=' мар ' then if s2 рыбы ' else temp^.zodiak:=' овен '; if first=nil then begin temp^.prev:=nil; temp^.next:=nil; first:=temp; cut:=temp; end else begin temp^.next:=nil; temp^.prev:=cut; cut^.next:=temp; cut:=temp; end; end;{procedure} Procedure Udal; begin ClrScr; {1}if first=nil then begin writeln(' Таблица пуста '); readln; end else begin {else1} write(' Введите фамилию : '); readln(ffam); write(' Введите имя : '); readln(fname); write(' Введите отчество : '); readln(ffanem); temp:=first; while ((ffam<>temp^.fam) or (fname<>temp^.name) or (ffanem<>temp^.fanem)) and (temp<>nil) do temp:=temp^.next; {2}if temp=nil then begin write(' Такого нет '); readln; end else begin{else2} {3}if first<>cut 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('________________________________________________________________'); if first<>nil then begin while temp<>nil 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 else writeln(' Таблица пуста ':40); readln; end; Procedure Sortir; var tmp:ukazat; begin ClrScr; if first<>nil then begin m:=true; {0}while m=true do begin m:=false; temp:=first; while temp^.next<>nil 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^.prev