TheSlide.ru

СПИСКИ

Содержание

1. СПИСКИ
2. ЗадачаПостроить линейный односвязный список из чисел, которые
3. Структура данныхtype Tinf = integer; Tptr = ^Tlist; Tlist = record inf:Tinf; next:Tptr; end;var head,p,q: Tptr; f:textfile;
4. Последовательность действийhead:=nil;while not eof(f)do begin new(p); read(f,p^.inf); if head=nil then head:=p else q^.next:=p; q:=p end;p^.next:=nil; qq
5. Результатqсвободный указатель связанный указательp
6. Удаление спискаwhile head nil do begin p:= head; head:= head^.next; dispose(p); end;Результат: head=nil
7. Печать спискаp:= head;while p nil do begin write (p^.inf:5); p:= p^.next; end;
8. Скачать презентанцию

ЗадачаПостроить линейный односвязный список из чисел, которые содержатся в текстовом файлеПусть для примера это будут такие числа:5 3 0 10

Слайды и текст этой презентации

Слайд 1СПИСКИ
линейные односвязные списки

СПИСКИлинейные односвязные списки

Слайд 2Задача
Построить линейный односвязный список из чисел, которые содержатся в текстовом

файле

Пусть для примера это будут такие числа:
5 3 0 10

ЗадачаПостроить линейный односвязный список из чисел, которые содержатся в текстовом файлеПусть для примера это будут такие числа:5 3 0 10

Слайд 3Структура данных
type Tinf = integer;
Tptr = ^Tlist;
Tlist = record
inf:Tinf;
next:Tptr;

end;

var head,p,q: Tptr;
f:textfile;

Структура данныхtype Tinf = integer; Tptr = ^Tlist; Tlist = record inf:Tinf; next:Tptr; end;var head,p,q: Tptr; f:textfile;

Слайд 4Последовательность действий
head:=nil;
while not eof(f)do
begin
new(p);
read(f,p^.inf);
if

head=nil
then
head:=p
else
q^.next:=p;
q:=p
end;
p^.next:=nil;

q
q

Последовательность действийhead:=nil;while not eof(f)do begin new(p); read(f,p^.inf); if head=nil then head:=p else q^.next:=p; q:=p end;p^.next:=nil; qq

Слайд 5Результат
q

свободный указатель
связанный указатель
p

Результатqсвободный указатель связанный указательp

Слайд 6Удаление списка
while head nil do
begin
p:= head;
head:=

head^.next;
dispose(p);
end;
Результат: head=nil

Удаление спискаwhile head nil do begin p:= head; head:= head^.next; dispose(p); end;Результат: head=nil

Слайд 7Печать списка
p:= head;
while p nil do
begin
write (p^.inf:5);

p:= p^.next;
end;

Печать спискаp:= head;while p nil do begin write (p^.inf:5); p:= p^.next; end;

Скачать презентацию

Обратная связь

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

Email: Нажмите что бы посмотреть

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно хранить и делиться своими презентациями с другими пользователями.

Для правообладателей