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

@hppnd · Регистрация: 27.05.2012

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

Имеется линейный список с последовательным хранением , элементами которого являются окружности.
Реализовать следующие функции.
1)add_item
2)insert_item
3)delete_itemAt
4)find_item
5)delete_item
6)sort_list

Delphi

program IntList;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nMaxSize=1000;
  type TIntList=array[0..nMaxSize] of integer;
  var rIntList:TIntList;
      i,count:integer;
 
   type TCircle = record
        x, y: double;
        r: double;
      end;
 
      pIntItem = ^tIntItem;
        tIntItem = record
        value: TCircle;
        next: pIntItem;
      end;
 
  procedure WriteTL(rIntList:TIntList; count:Integer);
    begin for i:= 1 to count-1 do write(rIntList[i],' ');
    end;
  //add_item [1]
  function add_item(rIntList: pIntItem; item: TCircle;count:integer):Integer;
    var
      rIntListEnd: pIntItem;
      begin
        if rIntList = nil then
          begin
            new(rIntList);
            rIntList.next := nil;
            rIntList.value := item;
            result := 1;
            exit;
          end;
 
        count := 1;
        rIntListEnd := rIntList;
          while (rIntListEnd.next <> nil) do
            begin
            rIntListEnd :=  rIntListEnd.next;
            inc(count);
            end;
        new(rIntListEnd.next);
        rIntListEnd := rIntListEnd.next;
        rIntList.next := nil;
        rIntList.value := item;
        result := count + 1;
      end;
  //insert_item  [2]
  function insert_item(item,pos:integer; rIntList:pIntItem;count:integer ):integer;
    var i:integer;
      begin result:=-1;
      if (count<nmaxsize)and(pos>=0)and(pos<count) then
          begin
              for i:= count downto pos+1 do rIntList[i]:=rIntList[i-1];
              rIntList[pos]:=item;
              result:=count+1;
          end;
      end;
  //Óäàëåíèå ýëåìåíòàèç ïîçèöèè ñ çàäàííûì íîìåðîì   [3]
  function delete_itemAt(pos:Integer; rIntList:pIntItem;count:integer):integer;
   begin result:=-1;
   if (count<nmaxsize)and(pos>=0)and(pos<count) then
      begin
          for i:=pos to (count-2) do
            rIntList[i]:=rIntList[i+1];
          result:=count-1;
      end;
   end;
  //find_item [4]
  function find_item(item:Integer; rIntList:pIntItem;count:Integer):Integer;
  begin result:=-1;
  if (count<nmaxsize)and(count>0)then
    for i:=0 to count-1 do
        if rIntList[i]=item then
          begin
            Result:=i;
            Exit;
          end;
  end;
  // delete_item [5]
  function delete_item(item:Integer; rIntList:pIntItem; count:Integer):Integer;
    var k:Integer;
      begin
        result:=1; k:=0;
          if (count<nmaxsize)and(count>0)then
            for i:=0 to count-1 do
              if rIntList[i]=item then
                begin
                    result:=delete_itemAt(i,rIntList,count);
                    k:=k+1;
                end;
        if k>1 then result:=count-k;
      end;
  // sort_list [6]
  function sort_list(rIntList:TIntItem;count:Integer):Boolean;
  var t,s:Integer;
    begin
        result:=(count<nMaxSize)and(count>1);
        s:=0;
          while Result do
            begin
                result:=False;
                for i:=1 to count-2 do
                if rIntList[i]>rIntList[i+1] then
                  begin
                      t:=rIntList[i];
                      rIntList[i]:=rIntList[i+1];
                      rIntList[i+1]:=t;
                      result:=true;
                      s:=s+1;
                  end;
            end;
        if s>0 then result:=True;
    end;
 var k:Tcircle;
begin
  Readln(count);
  Writeln('massive');
  for i:=0 to count-1 do
    begin
        rIntList[i]:=Random(100)+1;
        write(rIntList[i],' ');
    end;
    { произвольная окружность (2;5) радиус 1 }
  k.x:=2;
  k.y:=5;
  k.r:=1;
  //1
  Writeln;
  count:=add_item(k,rIntList,count);
  Writeln(count);
  WriteTL(rIntList,count);
  //2
  Writeln;
  count:=insert_item(k,4,rIntList,count);
  Writeln(count);
  WriteTL(rIntList,count);
  Writeln;
  //3
  Writeln;
  count:=delete_itemAt(6,rIntList,count);
  Writeln(count);
  WriteTL(rIntList,count);
  Writeln;
  //4
  Writeln;
  Writeln(find_item(5,rIntList,count);
  WriteTL(rIntList,count);
  Writeln;
  //5
  Writeln;
  count:=delete_item(4,rIntList,count);
  Writeln(count);
  WriteTL(rIntList,count);
  Writeln;
  //6
  Writeln;
  Writeln(sort_list(rIntList,count));
  Writeln(count);
  WriteTL(rIntList,count);
  Writeln;
 
  Readln;
 
end.

Помогите разобраться с ошибками.

@vilag · 29.05.2012, 21:08

Во-первых, прочти наконец, что такое список. Хотя бы здесь. Во-вторых в предложенной программе ошибок нет, её просто надо всю удалить ко всем чертям. Кроме этих мест, разумеется:

Delphi

program IntList;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
   type TCircle = record
        x, y: double;
        r: double;
      end;
 
      pIntItem = ^tIntItem;
        tIntItem = record
        value: TCircle;
        next: pIntItem;
      end;
 
 
  //add_item [1]
  function add_item(rIntList: pIntItem; item: TCircle;count:integer):Integer;
    var
      rIntListEnd: pIntItem;
      begin
        if rIntList = nil then
          begin
            new(rIntList);
            rIntList.next := nil;
            rIntList.value := item;
            result := 1;
            exit;
          end;
 
        count := 1;
        rIntListEnd := rIntList;
          while (rIntListEnd.next <> nil) do
            begin
            rIntListEnd :=  rIntListEnd.next;
            inc(count);
            end;
        new(rIntListEnd.next);
        rIntListEnd := rIntListEnd.next;
        rIntList.next := nil;
        rIntList.value := item;
        result := count + 1;
      end;

Последующее написание рекомендую начать с

Delphi

1 2	var listStart: pIntItem;

и НЕ продолжать введением массивов.

HighPredator · 29.05.2012, 21:13

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

её просто надо всю удалить ко всем чертям

Что-ж вы так категорично. Когда проходят динамические структуры данных иногда освещается раздел "реализация <любая дин. стр-ра> на базе массива". Вполне может быть, что именно это и требовалось.

@vilag · 29.05.2012, 21:19

Можно реализовать список на массиве, но в программе откровенно используется массив вместо списка. Все равно всё переписывать.

HighPredator · 29.05.2012, 21:47

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

в программе откровенно используется массив вместо списка

Массив целых чисел

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

в предложенной программе ошибок нет

Это, кстати, тоже не так.
hppnd, разберитесь в задании, чтоб мы тут на кофейной гуще не гадали.

@hppnd · 29.05.2012, 21:54 **[ТС]**

HighPredator, Задание выглядит вот так :

Имеется линейный список с последовательным хранением, элементами которого являются окружности. Для этого списка реализовать следующие функции:
1) добавление нового элемента в конец списка
function add_item(«нoвый элемент», «список элементов», «текущая длина списка»);
функция выдает в качестве результата новую длину списка или -1, если операция не удалась;
2) вставка элемента в позицию с заданным номером
function insert_item («новый элемент», «номер позиции», «список элементов», «текущая длина списка»);
функция выдает в качестве результата новую длину списка или -1, если операция не удалась;
3) удаление элемента из позиции с заданным номером
function delete_itemAt(«номер позиции», «список элементов», «текущая длина списка»);
функция выдает в качестве результата новую длину списка или -1, если операция не удалась;
4) поиск заданного элемента
function find_item(«заданный элемент», «список элементов», «текущая длина списка»);
функция выдает в качестве результата номер найденного элемента списка или -1, если операция не удалась;
5) удаление заданного элемента из списка
function delete_item(«удаляемый элемент», «список элементов», «текущая длина списка»);
функция выдает в качестве результата новую длину списка или -1, если операция не удалась;
6) упорядочивание списка в порядке возрастания радиусов окружности
function sort_list( «список элементов», «текущая длина списка»); функция выдает в качестве результата 1, если операция удалась, или 0, если операция не выполнена.

HighPredator · 29.05.2012, 21:59

Тогда вам массив не нужен. Плюс, на форуме пруд-пруди тем про списки, поищите.

@hppnd · 29.05.2012, 22:02 **[ТС]**

HighPredator, пока я нашел только топик одногруппника с этим же заданием .

@Programmer1993 · 29.05.2012, 22:46

Линейные списки и циклические списки

Добавлено через 25 секунд
смотри тут
Линейные списки и циклические списки

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	29.05.2012, 21:13	3
	Сообщение от vilag её просто надо всю удалить ко всем чертям Что-ж вы так категорично. Когда проходят динамические структуры данных иногда освещается раздел "реализация <любая дин. стр-ра> на базе массива". Вполне может быть, что именно это и требовалось. 0

@vilag 70 / 69 / 13 Регистрация: 24.05.2012 Сообщений: 146
	29.05.2012, 21:19	4
	Можно реализовать список на массиве, но в программе откровенно используется массив вместо списка. Все равно всё переписывать. 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	29.05.2012, 21:47	5
	Сообщение от vilag в программе откровенно используется массив вместо списка Массив целых чисел Сообщение от vilag в предложенной программе ошибок нет Это, кстати, тоже не так. hppnd, разберитесь в задании, чтоб мы тут на кофейной гуще не гадали. 0

@hppnd 1 / 1 / 0 Регистрация: 27.05.2012 Сообщений: 19
	29.05.2012, 21:54 [ТС]	6
	HighPredator, Задание выглядит вот так : Имеется линейный список с последовательным хранением, элементами которого являются окружности. Для этого списка реализовать следующие функции: 1) добавление нового элемента в конец списка function add_item(«нoвый элемент», «список элементов», «текущая длина списка»); функция выдает в качестве результата новую длину списка или -1, если операция не удалась; 2) вставка элемента в позицию с заданным номером function insert_item («новый элемент», «номер позиции», «список элементов», «текущая длина списка»); функция выдает в качестве результата новую длину списка или -1, если операция не удалась; 3) удаление элемента из позиции с заданным номером function delete_itemAt(«номер позиции», «список элементов», «текущая длина списка»); функция выдает в качестве результата новую длину списка или -1, если операция не удалась; 4) поиск заданного элемента function find_item(«заданный элемент», «список элементов», «текущая длина списка»); функция выдает в качестве результата номер найденного элемента списка или -1, если операция не удалась; 5) удаление заданного элемента из списка function delete_item(«удаляемый элемент», «список элементов», «текущая длина списка»); функция выдает в качестве результата новую длину списка или -1, если операция не удалась; 6) упорядочивание списка в порядке возрастания радиусов окружности function sort_list( «список элементов», «текущая длина списка»); функция выдает в качестве результата 1, если операция удалась, или 0, если операция не выполнена. 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	29.05.2012, 21:59	7
	Тогда вам массив не нужен. Плюс, на форуме пруд-пруди тем про списки, поищите. 0

@hppnd 1 / 1 / 0 Регистрация: 27.05.2012 Сообщений: 19
	29.05.2012, 22:02 [ТС]	8
	HighPredator, пока я нашел только топик одногруппника с этим же заданием . 0

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	29.05.2012, 22:46	9
	Линейные списки и циклические списки Добавлено через 25 секунд смотри тут Линейные списки и циклические списки 1

Опции темы