VPF::Задачка - Форум программистов

crazysun

Дата 29.3.2005, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 27.12.2004

Репутация: нет
Всего: нет

Если есть время посмотрите пожалуйста
Написать подпрограмму для удаления элемента из односвязного упорядоченного списка.

Fedor

Дата 29.3.2005, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Пиши.

А если будет что-то не получаться, мы поможем.
Или задавай конкретные вопросы.

--------------------

Мы - Днепряне. Мы всех сильней.

Poseidon

Дата 29.3.2005, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

Цитата(crazysun @ 29.3.2005, 20:51)

Если есть время посмотрите пожалуйста

А куда смотреть-то? Где код? Или ты просишь "Напишите с нуля?" Если так, то тебе сюда

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Pakshin A. S.

Дата 1.4.2005, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Код


Type
 TSps = ^TSpsEl;
 ...
begin
 ...
 idel:=HeadSps^.el = obr;
 if Idel
  then
   HeadSps:=HeadSps^.Next;
  else
   Sps:=HeadSps;
 while (Sps <> nil) and (not del) do
  begin
   if Sps^.Next^.el = obr
    then
     begin
      del:=true;
      Sps^.Next:=Sps^.Next^.Next;
     end
    else
     Sps:=Sps^.Next;
  end;
...

Так?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »