VPF::[Turbo Pascal] Односвязный список. - Форум программистов

Rishat

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

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

Загрузка ...

Новичок

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

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

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

Вот та самая задачка:

Составить программу, которая удаляет из списка L второй элемент, если такой есть.

помогите, пожалуйста ее решить.

Заранее большой респект и человеческое спасибо!!!

Rodman

Дата 12.1.2007, 22:27 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Код


uses crt;
type PSTRC=^Strc;
     Strc=record
     inf:integer;
     ptr:Pstrc;
end;
var S1,s2:PSTRC;
    i,k,g,p:integer;
    err:boolean;
Procedure Dop(var S:Pstrc;dat:integer);
var nov:Pstrc;
begin
New(nov);
nov^.inf:=dat;
nov^.Ptr:=s;
S:=nov;
end;
Function Ud(var S:Pstrc; var err:boolean):integer;
var old:Pstrc;
begin
 if s<>Nil then
  begin
   old:=S;
   S:=S^.ptr;
   Ud:=old^.inf;
   dispose(old);
   err:=false
  end
 else
  begin
   Ud:=0;
   err:=true
  end
end;
Function Cht(s:PSTRC; var err:boolean):integer;
begin
if s<>Nil then
 begin
  write('inf=',s^.inf:3);
  err:=false;
  Cht:=s^.inf;
 end
else begin
      writeln('stack pust');
      err:=True;
      cht:=0;
     end;
end;
BEGIN
 clrscr;
 i:=1;
 k:=1;
 while k<>0 do
  begin
   readln(k);
   Dop(s1,k);
  end;
  k:=cht(s1,err);
  Ud(s1,err);
  Dop(s1,k);
  while s1<>Nil do
    writeln(Ud(s1,err));
readln;
END.

вродь так... если что пофиксь сам... все методы работы со списком есть...

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

CRM с функцией АвтоОбзвона

Лотереи мира

Rishat

Дата 12.1.2007, 22:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо огромное, незнаю даже, как отблагодарить.
У меня есть еще один вопрос, у меня прсто еще одна лаба весит, точно такое же задание:

Составить программу, которая удаляет из списка L второй элемент, если такой есть.

Только это надо проделать с не односвязным списком, а с двухсвязным.

Romikgy

Дата 12.1.2007, 23:06 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата(Rishat @ 12.1.2007, 21:42

)

Составить программу, которая удаляет из списка L второй элемент, если такой есть.

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

Цитата(Rishat @ 12.1.2007, 21:42

)

Спасибо огромное, незнаю даже, как отблагодарить.

Уже

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 13.1.2007, 13:37 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

M
Alexeis

Модератор: Пожалуйста, один топик - один вопрос.

Создавайте отдельную тему

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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