линейные списки

@lex_cobra · Регистрация: 07.12.2009

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

помогите пожалуйста срочно с написанием программы по линейным спискам:

Создать список Р, что состоит из записей: первое полеле-буква, второе поле- адрес следующего элемента. Составить программу для проверки упорядочености элементов по уменьшению кодов букв!

@lexus_ilia · 08.12.2009, 04:49

И Вы наверное поиском по форуму тоже не пользовались, да?

@lex_cobra · 08.12.2009, 10:00 **[ТС]**

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

@Puporev · 08.12.2009, 10:07

lex_cobra, Зайдите на эту страницу, ищите, читайте. Писать Вам все равно никто не будет.
https://www.cyberforum.ru/sear... hid=603538

@lex_cobra · 08.12.2009, 10:25 **[ТС]**

Сейчас просматриваю поиск, но мне просто непонятно еще понятие "уменьшению кодов букв" это они откуда коды хотят что бы взялись?

@Puporev · 08.12.2009, 10:33

lex_cobra, Все символы имеют код, в паскале это коды по таблице ASCII. Таблицу кодов посмотрите в справочных материалах раздела. Принцип сортировки по уменьшению кодов такой

Pascal

for i:=1 to n-1 do
for j:=i+1 to n do
if ord(s[i])<ord(s[j]) then
 begin
  x:=s[i];
  s[i]:=s[j];
  s[j]:=x;
 end;

Это так в массиве.
переменные типа

Pascal

1 2	s:string; x:char;

@lex_cobra · 08.12.2009, 10:41 **[ТС]**

я так и подозревал что нужно будет через ASCII только не поняйму справочные материалы где посмотреть??? у меня вобще просто все что есть это методичка по которой нужно сделать программы, и я на последней завис, а уже сдавать нужно готовить и поэтому попросил помощи (

@Puporev · 08.12.2009, 10:57

только не поняйму справочные материалы где посмотреть???

Вверх страницы раздела Паскаль поднимитесь, там есть важные темы.

@Dnnn · 08.12.2009, 12:29

собственно если сами символы сравнивать - они по-моему так и сравниваются внутри по коду.
т.е. список нужно упорядочить по убыванию информационных частей.
var c, s: char;

if c< s <=> if ord(c)<ord(s)

@lex_cobra · 08.12.2009, 12:59 **[ТС]**

вот что получилось, но выдает какуюто полную чушь при работе (((

Pascal

Procedure srav(var t:pt;n:integer);
var
 j,i:integer;
 x:char;
begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ord(t^.data[i])<ord(t^.data[j]) then
     begin
      x:=t^.data[i];
      t^.data[i]:=t^.data[j];
      t^.data[j]:=x;
     end;
end;

@Puporev · 08.12.2009, 13:20

Сортировать нужно не только одно поле, а всю запись. Как-то так.

Pascal

Procedure srav(var t:pt;n:integer);
var
 j,i:integer;
 x:pt;
begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ord(t^.data[i])<ord(t^.data[j]) then
     begin
      x:=t^[i];
      t^[i]:=t^[j];
      t^[j]:=x;
     end;
end;

@lex_cobra · 08.12.2009, 13:25 **[ТС]**

Invalid qualifier тогда выдает я уже так пробовал (((, это ж не массив

@lexus_ilia · 08.12.2009, 13:28

Puporev, нет, не правильно, не вводите в заблуждение людей )
Сортировать можно на самом деле 2-мя способами:
1)Меня местами элементы, без изменения значения (быстрый способ, т.к. если у Вас один элемент будет состоять из 100 полей, Вам не потребуется их все менять с другим элементом, а надо будет лишь найти куда его вставить в списке)
2)С изменением значения. Тут тоже самое что с массивом, только вы забываете, что это список и что переход надо делать не по индексу (как в массиве), а через адрес, как то так:

Pascal

Procedure srav(var nach:pt;n:integer); 
var        {nach- указатель на начало списка}
 j,i:integer;
 t,tt:pt;
 tmp:char;
begin
  t:=nach;
  While t<>nil do
  begin
    tt:=t^.next;
    while tt<>nil do
    begin
      if ord(tt^.data)<ord(t^.data) then
      begin
        tmp:=tt^.data;
        tt^.data:=t^.data;
        t^.data:=tmp;
      end;
      tt:=tt^.next;
    end;
    t:=t^.next;
  end;
end;

@Puporev · 08.12.2009, 13:31

lexus_ilia, Я написал сам принцип, что сортировать нужно не поле а записи целиком, а как они организованы, это дело автора, я его программу в глаза не видал.

@lex_cobra · 08.12.2009, 13:39 **[ТС]**

Ordinal expression expected в строке

Pascal

1	if ord(tt^.data)<ord(t^.data) then

@Puporev · 08.12.2009, 13:43

lex_cobra, tt^.data какого типа у Вас? Должно быть char;

@lexus_ilia · 08.12.2009, 13:51

lex_cobra, Весь проект показывайте...

@lex_cobra · 08.12.2009, 13:55 **[ТС]**

Все добил ее, Всем большое Спасибо за помощь в этом деле!!!

@Dnnn · 08.12.2009, 14:10

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

@Puporev · 08.12.2009, 14:12

Не по теме:

Dnnn, Ему в ближайшие 10 минут ничего не нужно, у него все работает до очередного бага, тогда еще строку кода выложит. Программа-то секретная.

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.12.2009, 13:43	16
	lex_cobra, tt^.data какого типа у Вас? Должно быть char; 1

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	08.12.2009, 13:51	17
	lex_cobra, Весь проект показывайте... 0

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
	08.12.2009, 13:55 [ТС]	18
	Все добил ее, Всем большое Спасибо за помощь в этом деле!!! 0

@Dnnn 1063 / 130 / 34 Регистрация: 09.10.2009 Сообщений: 271
	08.12.2009, 14:10	19
	Вы уж тогда или всю программу приведите или хотя бы описание типов и переменных - если там просто динамический список, то откуда массив с индексами? и проверить список на упорядоченность или отсортировать его - задачи разные, Вам что нужно ? 0

Новые блоги и статьи Все статьи Все блоги /
Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .	Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .	Laravel или Symfony: что лучше для старта? Wired 18.02.2025 В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .	Что нового в Laravel 12 Wired 18.02.2025 С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .	Роутер в Laravel: как работать с маршрутами Wired 18.02.2025 Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .	Интеграция шаблона Bootstrap в Laravel PHP Wired 18.02.2025 Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
		1
	линейные списки 07.12.2009, 12:43. Показов 2363. Ответов 21 Метки нет (Все метки) помогите пожалуйста срочно с написанием программы по линейным спискам: Создать список Р, что состоит из записей: первое полеле-буква, второе поле- адрес следующего элемента. Составить программу для проверки упорядочености элементов по уменьшению кодов букв! 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	08.12.2009, 04:49	2
	И Вы наверное поиском по форуму тоже не пользовались, да? 1

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
	08.12.2009, 10:00 [ТС]	3
	скажу честно не пользовался потому что не знаю в принципе что в поиске задавать что бы то что нужно найти 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.12.2009, 10:07	4
	lex_cobra, Зайдите на эту страницу, ищите, читайте. Писать Вам все равно никто не будет. https://www.cyberforum.ru/sear... hid=603538 1

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
	08.12.2009, 10:25 [ТС]	5
	Сейчас просматриваю поиск, но мне просто непонятно еще понятие "уменьшению кодов букв" это они откуда коды хотят что бы взялись? 0

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
	08.12.2009, 10:41 [ТС]	7
	я так и подозревал что нужно будет через ASCII только не поняйму справочные материалы где посмотреть??? у меня вобще просто все что есть это методичка по которой нужно сделать программы, и я на последней завис, а уже сдавать нужно готовить и поэтому попросил помощи ( 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.12.2009, 10:57	8
	только не поняйму справочные материалы где посмотреть??? Вверх страницы раздела Паскаль поднимитесь, там есть важные темы. 1

@Dnnn 1063 / 130 / 34 Регистрация: 09.10.2009 Сообщений: 271
	08.12.2009, 12:29	9
	собственно если сами символы сравнивать - они по-моему так и сравниваются внутри по коду. т.е. список нужно упорядочить по убыванию информационных частей. var c, s: char; if c< s <=> if ord(c)<ord(s) 1

@lex_cobra 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 36
	08.12.2009, 13:25 [ТС]	12
	Invalid qualifier тогда выдает я уже так пробовал (((, это ж не массив 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.12.2009, 13:31	14
	lexus_ilia, Я написал сам принцип, что сортировать нужно не поле а записи целиком, а как они организованы, это дело автора, я его программу в глаза не видал. 1

	07.12.2009, 12:43

@Puporev
	08.12.2009, 14:12 линейные списки #20
	Не по теме: Dnnn, Ему в ближайшие 10 минут ничего не нужно, у него все работает до очередного бага, тогда еще строку кода выложит. Программа-то секретная. 0