Динамические структуры данных (список)

@rom4ikps · Регистрация: 16.01.2014

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

Доброй ночи,вот задание :
Опишите и постройте с помощью двумерного массива Sps линейный однонаправленный список из семи целых чисел и сделайте этот список пустым. После этого добавьте в список шесть элементов 1,3,5,7,9,11, затем найдите указатель на элемент 9 и удалите этот элемент. В конце работы со списком вставьте после элемента со значением 11 элемент со значением 13, предварительно отыскав указатель на элемент со значением 11, а элемент со значением 15 вставьте после элемента со значением 3. Результаты как промежуточных, так и конечных результатов отобразить на экране.

Программа есть,но она не корректно работает,в том плане,что элемент добавляется скажем не после 11 элемента, а после 3 и т.д. т.е. не туда,где должен быть по заданию,пытаюсь исправить уже 3-ий час, но не знаю, в чём тут проблема,вот сам код:

Delphi

Type Spis=array[1..2,0..9] of integer;
Var Assm, Afe : integer;    { Assm указывает индекс/адрес первого элемента в списке свободных мест}
{ Afe – индекс (адрес) первого элемента в списке. }
El,i,pap,j:integer;
Sps:Spis;
Procedure Nspis(Var Sps:Spis); {процедура оформления пустого списка}
var i:integer;
Begin
  for i:=1 to 8 do
    Sps[2,i]:=i+1;
    Sps[2,9]:=0;
    Assm:=1;
    Afe:=0;
end;
Procedure Addsp(Var Sps:Spis); {процедура добавления элемента в список}
Var   Asmn:integer;
Begin
  Asmn:=Sps[2,Assm];
  Sps[1,Assm]:=el;
  Sps[2,Assm]:=Afe;
  Afe:=Assm;
  Assm:=Asmn
end;
Procedure DelSp(Pap,j:integer; Var Sps:Spis); {процедура удаления элемента из списка}
Begin
  Sps[2,Pap]:=Sps[2,j];
  Sps[2,j]:=Assm;
  Assm:=j
end;
Procedure UstSp(j:integer; Var Sps:Spis); {процедура вставки элемента в список}
Var  Asmn:integer;
Begin
  Asmn:=Sps[2,Assm];
  Sps[2,Assm]:=Sps[2,j];
  Sps[2,j]:=Assm;
  Sps[1,Assm]:=El;
  Assm:=Asmn;
end;
Procedure PoshSp(Var Sps:Spis; el:integer; Var Pap,j:integer); {процедура поиска указателя (адреса) на элемент списка}
Begin
  j:=Afe;
  Pap:=0;
  While (Sps[1,j]<>el) and (j<>0) do
    Begin
      Pap:=j;
      j:=Sps[2,j];
    end;
  if j=0 then Writeln('Элемент не найден')
end;
BEGIN {Основная программа}
  Nspis(Sps); {построение пустого списка}
  for i:=1 to 6 do
    begin
      readln(el);
       Addsp(Sps) {добавление элементов  в список по одному}
    end;
   writeln('promejutosnie rezultati');
  el:=9; {найденный указатель j,  pap – предыдущий указатель}
  PoshSp(Sps,el,pap,j); {поиск указателя на элемент со значением 9}
  Delsp(pap,j,sps); {удаление элемента с указателем j}
  writeln;
  for i:=1 to 6 do
  write(Sps[1,i],' ');
  el:=11;
  PoshSp(Sps,el,pap,j); {поиск указателя на элемент со значением 11}
  el:=13;
  Ustsp(j,Sps); {вставка элемента со значением 11 после элемента со значением 13}
  writeln;
  for i:=1 to 6 do
  write(Sps[1,i],' ');
  writeln;
  el:=3;
  PoshSp(Sps,el,pap,j); {поиск указателя на элемент со значением 3}
  el:=15;
  Ustsp(j,Sps); {вставка элемента со значением 15 после элемента со значением 3}
  writeln('konchiy rezultat');
  for i:=1 to 7 do
  write(Sps[1,i],' ');
END.

@northener · 03.11.2014, 02:46

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

Программа есть,но она не корректно работает

Не мудрено. Ведь наверняка она подобрана на помойке.

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

пытаюсь исправить уже 3-ий час, но не знаю, в чём тут проблема

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

@rom4ikps · 03.11.2014, 11:57 **[ТС]**

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

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

К сожалению это так,уровень знаний пока невелик,чтобы переделать эту программу,посему я обратился на этот форум с надеждой,что мне помогут, а я в свою очередь не только порадуюсь и скажу спасибо,за сделанную программу,но и буду стараться разобраться в ней, чтобы понять как надо было делать.

@northener пофигист широкого профиля 4682 / 3118 / 857 Регистрация: 15.07.2013 Сообщений: 17,973
	03.11.2014, 02:46	2
	Сообщение от rom4ikps Программа есть,но она не корректно работает Не мудрено. Ведь наверняка она подобрана на помойке. Сообщение от rom4ikps пытаюсь исправить уже 3-ий час, но не знаю, в чём тут проблема А написать программу самому не позволяет уровень знаний? Так и переделать найденное на помойке тот же самый уровень не позволяет. Так и что же ты хочешь, юный отрок, войдя на сей форум? 0

@rom4ikps 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 49
	03.11.2014, 11:57 [ТС]	3
	Сообщение от northener А написать программу самому не позволяет уровень знаний? Так и переделать найденное на помойке тот же самый уровень не позволяет. Так и что же ты хочешь, юный отрок, войдя на сей форум? К сожалению это так,уровень знаний пока невелик,чтобы переделать эту программу,посему я обратился на этот форум с надеждой,что мне помогут, а я в свою очередь не только порадуюсь и скажу спасибо,за сделанную программу,но и буду стараться разобраться в ней, чтобы понять как надо было делать. 0

Опции темы