Динамические структуры данных Опции

[kess]

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

[kess]

Program spisok;
Uses CRT;
Type mas=array[1..10] of string;
Var
 tmp:string;
  L:^mas;
 n,i:integer;
Begin
CLRSCR;
 {Vvod spiska}
        n:=5;

 for i:=1 to n do
 begin
  WriteLn('Vvedite element #',i,': ');
  ReadLN(L^[i]);
                WriteLn;
 end;

 {peremeshenie}
 tmp:=L^[1];
 for i:=0 to n-1 do
        begin
   L^[i]:=L^[i+1];
        end;
 L^[n]:=tmp;
 
 {vivod}
 WriteLn;
 for i:=0 to n-1 do
   WriteLn('L[',i+1,']=',L^[i+1]);
 Repeat Until Keypressed;
End.

Сообщение отредактировано: kess - 3.05.2007 3:51

[Lapp]

Так возможно??

нет, kess.. Это и близко не лежало со списками. Это просто массив (если даже закрыть глаза на ошибки в проге). Массив - это не динамическая структура данных (см. свой заголовок).
Пойми, от тебя требуется нечто совершенно другое.
Список - это такая штука...
Допустим - ты белка .
Ты нашла орех - пока только один - и хочешь его спрятать. В специальном укромном месте ты пишешь:
"орех в кладовке на пятой полке". Потом действительно кладешь орех в кладовку на пятую полку - и все. Идешь гулять.

Потом ты находишь еще орех.. Ты идишь в то самое спец.укромное место и читаешь: "орех в кладовке на пятой полке". Ты идешь в кладовку, заглядываешь на пятую полку и рядом с орехом кладешь записку: "еще один орех в столе в нижнем ящике". Потом идешь к столу и кладешь второй орех в нижний ящик..

Потом ты находишь еще один орех. Ты идешь в спец.укромное место, там видишь записку про кладовку, идешь в кладовку на пятую полку, там видишь записку про нижний ящик стола. Идешь к столу, открываешь нижний ящик и видишь там орех и никакой записки (указатель Nil). Ты снова пишешь записку: "еще один орех под стулом". Идешь под стул, кладешь туда орех и идешь гулять..

И так какждый раз: тебе нужно пройти всю цепочку с начала (спц.укромное место) чтобы найти последний орех. Признак того, что он действительно последний - это около него нет записки. Ясно?

Вот это и есть список