Основы программирования на языке Turbo Pascal. Беляева И.В. - 260 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

260
{будем просматривать следующую запись}
begin
Ppred:=P;
P:=P^.next;
end;
end;
if Ppred=nil then {вставляем запись в начало цепочки}
begin
newP^.next:=First;
First:=newP;
end
else {вставляем запись в цепочку}
begin
newP^.next:=Ppred^.next;
Ppred^.next:=newP;
end;
end;
{ Процедура readBooks
В процедуре организован ввод n записей в список
При этом записи в список записываются в упорядоченном виде.
Упорядочивание – по полю 'Автор'
}
procedure readBooks;
var
i: integer; {i - счетчик цикла}
n: integer; {n - кол-во вводимых книг}
b: Tbook; {b - вводимая запись (буфер)}
begin
repeat
write('Введите кол-во вводимых записей (от 1 до ',maxN-1,')');
readln(n);

Страницы