Исправить ошибки (односвязный список)

03.12.2013, 19:37. Показов 489. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Есть список и 2 процедуры удаления с 3 по 15 и добавление 5 элемента. Помогите найти в чем ошибка

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
43
44
45
46
47
48
49
50
51
uses crt;
type pp=^elem;
     elem=record
     a:real;
     c:integer;
     nxt:pp;
     end;
procedure Del3_15(p:pp);
  var i:byte;
  begin
  repeat
   writeln( p^.nxt^.nxt^.a, p^.nxt^.nxt^.c) ;
   p:=p^.nxt;
   until (i=15)
  end;
procedure AddFive(p:pp;l:pp);
var pt:pp;
   begin
   new( p^.nxt^.nxt^.nxt^.nxt);
   pt:=p^.nxt^.nxt^.nxt^.nxt;
   readln(pt^.a);
   pt^.c:= random(100)-50;
   l:=pt;
   end;
var ptb, pte,pt,pts:pp;
    i,key:byte;
begin
randomize;
new(ptb);
pt:=ptb;
readln(pt^.a);
pt^.c:= random(100)-50;
for i:=1 to 19 do
    begin
    new (pt^.nxt);
    pts:=pt^.nxt;
    readln(pts^.a);
    pts^.c:= random(100)-50;
    end;
pte:=pts;
clrscr;
for i:=1 to 20 do
writeln(pts^.c:6,pts^.a);
 
readln(key);
while true do
case key of
1:Del3_15(ptb);
2:AddFive(ptb,pte);
end;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

03.12.2013, 19:37

Ответы с готовыми решениями:

Построить односвязный список
Построить односвязный список. Найти минимальное значение среди элементов списка.

Односвязный список(запись в файл)
Ув. программисты! Помогите пожалуйста, не могу записать односвязный список в файл... Как записать указатель на следующий элемент в...

Односвязный список. Максимальный элемент
Что-то не вдупляю. Пытаюсь найти и вывести максимальный элемент списка. Ошибка в проверке на пустой список. Как исправить можно? Или дело в...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

03.12.2013, 19:37

Помогаю со студенческими работами здесь

Односвязный список: удалить k-й элемент и вставить m элементов в конец
Необходимо создать односвязный список с полями ФИО, дата рождения, ЗП удалить к-й элемент и вставить м элементов в конец.

Создать односвязный список из 5 элементов и вывести элементы списка на экран
Создать односвязный список из 5 элементов и вывести элементы списка на экран.

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

Односвязный список
Как построить односвязный список?? Включить в список упорядоченный по неубыванию значений 10 элементов входной последовательности без...

Односвязный список
program plisf; uses crt; type adrcel=^celula; celula=record info:integer; urm:adrcel; end; var...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Наверх