Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ProfNoob
0 / 0 / 0
Регистрация: 21.09.2014
Сообщений: 30
1

Перенести в конец непустого списка L1 последний элемент списка L

27.12.2014, 23:51. Просмотров 427. Ответов 1
Метки нет (Все метки)

Не понимаю как осуществить еще 2 процедуры:
переносит в конец непустого списка L1 последний элемент списка L;
подсчитывает количество элементов списка L, у которых равные "соседи" (первый и последний тоже считать соседями);

Создание и вывод я уже сделал, а вот с вышеуказанными вообще ничего сделать не могу...

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
52
53
54
55
56
57
58
59
uses crt;
type
uk=^rec;
rec = record
    x:integer;
    adr:uk;
end;
var
first,p1,p2,p3:uk;  {PEREMENNYE SODERZHASHIE ZAPIS rec}
f:text;
pris:boolean;
 
procedure SOZD;
begin
assign(f,'SCHOOL.PAK\TEMP\7lab\fch.txt');
reset(f);
first:=nil;
while not seekeof(f) do begin
    new(p1);
    read(f,p1^.x);
    if first = nil then first:=p1
       else p2^.adr:=p1;
    p2:=p1;
end;
p2^.adr:=nil;
writeln('SPIS SOZDAN');
readkey;
end;
 
procedure VIVOD;
begin
     write('SPISOK:');
     p1:=first;
     while p1<>nil do begin
         write(p1^.x,' ');
         p1:=p1^.adr;
     end;
     readkey;
end;
 
procedure MENU;
begin
    writeln('1 - SOZDAT SPISOK');
    writeln('2 - VIVOD SPISKA');
    writeln('5- EXIT');
end;
begin
clrscr;
pris:=true;
    repeat
    clrscr;
    MENU;
     case readkey of
         '1':SOZD;
         '2':VIVOD;
         '5':pris:=false;
     end;
    until pris=false;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2014, 23:51
Ответы с готовыми решениями:

Перенести в конец непустого списка его K-ый элемент
помогите пожалуста с програмой(((: Составить программу, которая переносит в конец не пустого...

Перенести в начало списка его последний элемент
итак, мне нужно перенести на начало списка его последний элемент. во-первых, я не понял, как...

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

Описать процедуру, которая удаляет из непустого списка L первый элемент
Описать процедуру, которая удаляет из непустого списка L первый элемент.

Выбрать последний элемент списка
подскажите пожалуйста как выбрать последний элемент списка?

1
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
03.01.2015, 00:02 2
1. идете до конца списка L
запоминаете адрес последнего
идете в конец L1
меняете адрес L1 с Nil на запомненный адрес
2. берете 3 элемента, подряд 1 2 3. сравниваете 1 и 3. это будут соседи 2
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2015, 00:02

Удалить последний элемент из списка
ДИНАМИЧЕСКИЕ ПЕРЕМЕННЫЕ. Нужно удалить последний элемент из списка. Вы извините, но не знаю ваще...

Работа с деками. Найти среднее арифметическое списка, добавить его в качестве нового элемента в начало и конец списка
D - список действительных чисел. Найти среднее арифметическое списка, добавить его в качестве...

Переместить элементы списка L2 в конец списка L1
procedure vtvkonp(pend,paux1:pcomp); {pend-конец первого списка, в paux1 передается начало второго}...


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

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

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