динамические структуры данных

@Fanto · Регистрация: 20.12.2009

Студворк — интернет-сервис помощи студентам

Дан упорядоченный список информации о книге (ФИО автора, название книги, год издания). Список упорядочен по фамили автора. Добавить информацию о новой книге, сохранив упорядоченность списка.

Пожалуйста, подскажитекак упорядочить список по фамилии автора...

Добавлено через 2 часа 54 минуты
heeelp)

@Wizzy · 27.05.2010, 02:20

Тип стринг свободно сравнивается -) так что просто сравнением ищем место вставки и вставляем новый елемент списка...

Pascal
1
2
3
   read(s);p:=begl;
   while s<p^.fio do 
       p:=p^.link;

дальше вставляем на нужную позицию елемент

сами додумаете?

@Fanto · 27.05.2010, 02:24 **[ТС]**

вы не могли бы половинку кода написать, до вставки нового элемента? Дальше сам додумаю

просто на этой теме болел и не догоняю ее совсем(

@Wizzy · 27.05.2010, 02:32

Создание списка:

Pascal
1
2
3
4
5
6
7
 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 beql:=p;
 endl:=p;

добавление елементов:

Pascal
1
2
3
4
5
6
7
8
9
for i:=2 to n do
 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 endl^.link:=p;
 endl:=p;
 end;

все данные вводятся любым образом.

вставка в середину списка после заданого елемента(того что мы нашли):

Pascal
1
2
3
4
5
6
 {Pk находится на первом елементе где ФИО больше нашего}
 new(p);
 ...{заполнение}
 p^.link:=pk^.link;
 pk^.link:=p;
 p:=nil;

ну собственно теор. выписку я сделал ))) слепите что-нибудь, удачи Вам

задержатся более не могу

@Fanto · 27.05.2010, 23:22 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program dinam;
       type spisok=^elem;
        elem=record
                    fio, nazvanie:string;
                    god:integer;
                    link:spisok;
        end;
var p, pk, beql, endl: spisok;
    str, nazv:string;
    n, i, g:integer;
Begin
 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 beql:=p;
 endl:=p;
 
for i:=2 to n do begin
 new(p);
 writeln ('vvedite FIO avtora');
 readln (str);
 p^.fio:=str;
 writeln ('vvedite nazvanie knigi');
 readln (nazv);
 p^.nazvanie:=nazv;
 writeln ('vvedite god izdaniya');
 readln (g);
 p^.god:=g;
 p^.link:=nil;
 endl^.link:=p;
 endl:=p;end;
 
 new(p);
  writeln ('vvedite FIO avtora');
      readln (str);
      writeln ('vvedite nazvanie knigi');
      readln (nazv);
      writeln ('vvedite god izdaniya');
      readln (g);
p^.fio:=str;
p^.nazvanie:=nazv;
p^.god:=g;
 p^.link:=pk^.link;
 pk^.link:=p;
 p:=nil;
 
End.

хоть примерно так?

Добавлено через 55 минут
кто-нибудь хееееелп)) завтра сдать надо лабу(
отплюсую щедро!

Добавлено через 1 час 52 минуты
....

@Wizzy · 27.05.2010, 23:42

похоже на правду ))) Ну знаешь самое главное что бы пахало )

@Fanto · 28.05.2010, 00:03 **[ТС]**

так вот в том то и проблема)
поможете?

@Wizzy · 28.05.2010, 00:08

Сообщение от Fanto

так вот в том то и проблема)
поможете?

надо думать ))

@Fanto · 28.05.2010, 00:16 **[ТС]**

ну плиз) завтра сдать надо((

@Wizzy · 28.05.2010, 00:20

Сообщение от Fanto

ну плиз) завтра сдать надо((

извените пожалуйста, но у меня сегодня тяжёлый день был ) ну никак не напишу вам нормальную программу...

@Fanto · 29.05.2010, 22:25 **[ТС]**

аа...

может тогда хоть на выходных посмотрите или завтра?
получу завтра по шляпе, попрошу в понедельник донести

Добавлено через 14 часов 33 минуты
кто нибудь хелп :-)

Добавлено через 3 часа 39 минут

Pascal
1
2
3
4
5
6
7
8
9
program dinam;
  type spisok=^elem;
  kniga =record fio, nazvanie:string;
  god:integer;
  end;
 
  elem=record
  data: kniga;
  link:spisok

начало такое, препод подсказал :-)

Добавлено через 4 часа 26 минут
отзовитесь пожалуйста :-)

Добавлено через 50 минут
...... :-(

Добавлено через 22 часа 31 минуту
sos :-(

@Fanto · 31.05.2010, 23:53 **[ТС]**

прийдите кто-нибудь напомощь

Добавлено через 4 часа 53 минуты
///

Добавлено через 1 час 55 минут
(((((

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47

	динамические структуры данных 27.05.2010, 02:04. Показов 1171. Ответов 11 Метки нет (Все метки) Дан упорядоченный список информации о книге (ФИО автора, название книги, год издания). Список упорядочен по фамили автора. Добавить информацию о новой книге, сохранив упорядоченность списка. Пожалуйста, подскажитекак упорядочить список по фамилии автора... Добавлено через 2 часа 54 минуты heeelp) 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 02:24 [ТС]
	вы не могли бы половинку кода написать, до вставки нового элемента? Дальше сам додумаю просто на этой теме болел и не догоняю ее совсем( 0

@Wizzy 41 / 40 / 11 Регистрация: 12.11.2009 Сообщений: 115
	27.05.2010, 23:42
	похоже на правду ))) Ну знаешь самое главное что бы пахало ) 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	28.05.2010, 00:03 [ТС]
	так вот в том то и проблема) поможете? 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	28.05.2010, 00:16 [ТС]
	ну плиз) завтра сдать надо(( 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	31.05.2010, 23:53 [ТС]
	прийдите кто-нибудь напомощь Добавлено через 4 часа 53 минуты /// Добавлено через 1 час 55 минут ((((( 0