Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 6
1

Связный (линейный) список

14.12.2009, 23:59. Просмотров 1684. Ответов 2
Метки нет (Все метки)

Люди , помогите плиз!!!!!!!!!!!!!!!!!!
не могу решить задачу на список.
может кто-нидь подскажет что делать с ней.
Вот задача:
Написать программу, содержащую подпрограмму, которая копирует в конец непустого списка М его первый элемент.

Добавлено через 1 час 39 минут
люди, добрые, подскажите как решить, я в этом ни хрена не соображаю, а зачет горит
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2009, 23:59
Ответы с готовыми решениями:

Организовать связный список из m элементов, используя функцию создания списка генератора случайных чисел
1.Организовать связный список из m элементов, используя функцию создания списка спомощью генератора...

линейный список
в линейном однонаправленном списке, содержащем в качестве данного целые числа, проверить,...

линейный односвязный список
Помогите создать линейный односвязный список

Линейный динамический список
Задан линейный динамический список, в котором адрес следующего элемента расположен в поле Next. ...

2
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
15.12.2009, 01:02 2
Лучший ответ Сообщение было отмечено Вега как решение

Решение

вот к примеру так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
type
    ukaz = ^element; {указатель на элемент списка}
    element = record   {собственно сам элемент списка}
      info: string;     {поле элемента списка}
      next: ukaz;       {указатель на следующий элемент списка}
    end;
 
Procedure Insert_End(Golova, Hvost:ukaz);
begin
 new(Hvost^.next);   {добавляем в конец списка элемент}
 Hvost:=Hvost^.next;
 Hvost^.info:=Golova^.info;  {копируем содержимое первого элемента в доб. элемент}
 
end;
 
 
var Head, Tail:ukaz; {Head- указатель на голову списка(первый элемент) tail- на хвост спика}
    i:integer;
    n:ukaz;
begin
  new(Head); //выдяляем память под первый элемент
  Head^.next:=nil;
 tail:=head;
 
   for i:=1 to 10 do   {Создаем список из 11 элементов}
    begin
      new(Tail.next);
      Tail:=Tail^.next;
      Tail^.next:=nil;
    end;
 
    Insert_End(Head, Tail);
    readln;
 
   n:=Head;
    while n<>nil do       {удаление списка - освобождение памяти}
     begin
       n:=n^.next;
       dispose(head);
       head:=n;
     end;
end.
2
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 6
15.12.2009, 17:24  [ТС] 3
Викдон, огромное ТЕБЕ спасибо!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2009, 17:24

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

Линейный двунаправленный список
Помогите разобраться с задачей. Задан массив из 40 случайных элементов, переписать из массива в...

Линейный односвязный список
Срочно нужна помощь в написании программы!!! Разработать программу (на Паскале) ввода элементов...

Символическое дифференцирование-ввод формулы в связный список, преобразование в ПОЛИЗ, обратное преобразование
Прошу помогите мне. Символическое дифференцирование-ввод формулы в связный список, преобразование в...

Вычисление через линейный список
Поможете?) Вычислить значение выражения . Значения вводятся с клавиатуры и динамически...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.