Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] проблемы с динамическими указателями

Автор: c1ber 28.3.2010, 12:56

Написать программу, содержащую процедуру, которая формирует список М, включив в него по одному разу элементы, которые входят одновременно в оба списка М1 и М2.

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

Напишите программу, которая создавала бы файл целых чисел, а затем формировала список целых чисел файла. Создайте список чисел, являющихся суммой соседних элементов. В программе используйте подпрограммы.

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

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

помоги кто может решить,я эту тему ваще не понял((

Автор: ФедосеевПавел 28.3.2010, 13:54

Цитата(c1ber @ 28.3.2010, 12:56

)

я эту тему ваще не понял((

Ну, поздравляю!

Если всё ещё хочешь попробовать самостоятельно, то взгляни http://forum.pascal.net.ru/index.php?act=findpost&pid=23570 и http://ru.wikipedia.org/wiki/Связный_список.

Также воспользуйся поиском.

Автор: c1ber 28.3.2010, 14:32

Спасибо большое,но все же может хоть одну сможет решить,я уже по ее примеру сделать то смогу дальше))

Автор: Alexeis 28.3.2010, 14:50

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: ИванМ 28.3.2010, 15:30

Создай хотя бы класс списка, потом уже будем смотреть.

Автор: c1ber 28.3.2010, 19:56

Цитата(ИванМ @ 28.3.2010, 15:30)

Создай хотя бы класс списка, потом уже будем смотреть.

знать бы что значат твои слова((

Автор: t_gran 29.3.2010, 07:37

Вот, к примеру, описание, заполнение и просмотр списка:

Код


type
   TList= ^TNode;
   TNode= record
      digit: integer;
      next: TList;
   end;

{------------------------------------------------}
procedure AddInList (var theList: TList; theDigit: byte);
var
   node: TList;
begin
   new(node);
   node^.digit:= theDigit;
   node^.next:= theList;
   theList:= node;
end;
{------------------------------------------------}
procedure PrintList (theList: TList);
begin
   while (theList <> nil) do
   begin
      write(theList^.digit, ' ');
      theList:= theList^.next;
   end;
end;
{------------------------------------------------}
var
   list: TList;
   digit: byte;
begin
   list:= nil;
   repeat
      readln(digit);
      if (0 < digit)then
         AddInList(list, digit);
   until (digit = 0);
   PrintList(list);
end.

Для завершения ввести 0.