задача на структурированые списки

[innaa639]

Построить односвязный список, в котором каждый элемент содержит поле связи с предыдущим или следующим элементом списка. Определить число узлов списка. Найти узел с заданным значением и напечатать его порядковый номер.

Только пожалуйста напишите обьяснение немного как ее проверять на работоспособность

[Serge_Bliznykov]

1) на каком языке то надо?
2) обратите внимание внизу на "Похожие темы" и/или воспользуйтесь поиском - тут подобные задачи решались не один раз!

[innaa639]

НА АНГЛИЙСКОМ ИЛИ НА РУССКОМ

From Stilet:Прекращаем прикалываться вопрошая о помоши. Язык программирования какой?

[Sazary]

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

НА АНГЛИЙСКОМ ИЛИ НА РУССКОМ

Вот пример на РУССКОМ. Но я не очень умею реализовывать списки на этом языке. А еще у меня нет для него компилятора

СПИСОК
 НАЧ
 значение : ЧИСЛО
 след : УКАЗАТЕЛЬ НА СПИСОК
 КОН

ФУНКЦИЯ добав(тек : УКАЗАТЕЛЬ НА СПИСОК) : УКАЗАТЕЛЬ НА СПИСОК
 НАЧ
 нов : УКАЗАТЕЛЬ НА СПИСОК
 нов->значение = тек->значение + 1
 тек->след = нов
 нов->след = НИЧЕГО
 ВЕРНУТЬ нов
 КОН

ГЛАВНАЯ ФУНКЦИЯ
спис : УКАЗАТЕЛЬ НА СПИСОК
еще_один_спис : УКАЗАТЕЛЬ НА СПИСОК
спис->значение=0
спис->след = НИЧЕГО
еще_один_спис = спис

спис = добав(спис)
спис = добав(спис)
спис = добав(спис)

колич_элем : ЧИСЛО
колич_элем = 0

спис = еще_один_спис
ПОКА (спис != НИЧЕГО)
 НАЧ
 колич_элем = колич_элем + 1
 ПОКАЗАТЬ(спис->значение)
 спис = спис->след
 КОН

ПОКАЗАТЬ(колич_элем)	
КОНЕЦ ГЛАВНОЙ ФУНКЦИИ

[Serge_Bliznykov]

Sazary, +100 :D

Мы с Вами очень похоже мыслим — я хотел сделать тоже самое (написать программу "по русски"), но мне стало лень. Да и не все оценят шутку... :D

[innaa639]

на Паскале, я просто думала что в этом разделе только он,когда я писала прошлую задачу здесь,то меня не просили это уточнять,а сразу написали

[Sazary]

Разбирайтесь. И в следующий раз задавайте конкретные вопросы.

uses crt;
type
pspis = ^spis;
spis = record
n : integer;
next : pspis
end;

var
p,t : pspis;
cnt : integer;

function spadd(tek : pspis) : pspis;
 var newsp : pspis;
 begin
 new(newsp);
 newsp^.n := tek^.n+1;
 tek^.next := newsp;
 newsp^.next := nil;
 spadd := newsp;
 end;

procedure delsp(tek : pspis);
 begin
 dispose(tek);
 end;

begin
clrscr;
cnt := 0;
new(p);
p^.n := 0;
p^.next := nil;
t := p;

p := spadd(p);
p := spadd(p);
p := spadd(p);
p:=t;
while p <>nil do
 begin
 inc(cnt);
 writeln(p^.n);
 t := p;
 p := p^.next;
 delsp(t);
 end;
writeln('cnt= ',cnt);
readln;
end.

[innaa639]

Огромное спасибо,но где беруться числа 0 1 2 3 и как их поменять при запуске программы и где порядковый номер показывает

[Sazary]

Здесь:

new(p);
p^.n := 0;
p^.next := nil;

создается первый элемент. Значение n = 0.

Затем создаются еще 3 элемента:

p := spadd(p);
p := spadd(p);
p := spadd(p);

В функции spadd атрибуту n нового элемента присваивается значение n предыдущего элемента + 1:

newsp^.n := tek^.n+1;

Фактически это и есть порядковый номер (отсчет ведется с нуля).

После всего этого запускается цикл, в котором мы, начиная с первого элемента, проходим по всем остальным, увеличивая счетчик (cnt), выводя значение n и освобождая память для пройденного элемента.

Думаю, этих слов достаточно, чтобы вы могли изменить нужные вам числа.

[innaa639]

Огромное тебе или вам СПАСИБО!!!!!!!!!