Форум программистов, компьютерный форум, киберфорум
Наши страницы
C для начинающих
Войти
Регистрация
Восстановить пароль
 
vasua28
4 / 4 / 2
Регистрация: 25.09.2016
Сообщений: 99
1

Вставка и удаление элементов из списка (Паскаль -> Си)

29.10.2016, 12:53. Просмотров 287. Ответов 4

Добрый день! Не знаю в правильном разделе написал но. У меня такая прблема. Мне нужно перевести коды с Паскаля ни сишку)))) Буду очень благодарен за помощь. Понимаю что это никто не обязан делать поэтому буду рад хоть за объяснение что к чему)


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
60
61
62
63
Program Number_List; 
uses CRT;
type NodePointer=^Node;
Node=RECORD 
s : Integer; 
next : NodePointer; 
END;
const first : NodePointer=NIL; 
function InitNode: NodePointer; 
var newNode : NodePointer;
begin
New(newNode); 
newNode^.s:=Random(99)+1; 
newNode^.next:=NIL;
InitNode:=newNode;
end;
procedure IncludeNode ( newNoode: NodePointer ); 
begin
newNode^.next:=first;
first:=newNode;
end;
procedure DeleteNode ( k: Integer ); 
var previos, current : NodePointer;
 i : Integer;
begin
i:=0;
current:=first;
while current<>NIL do begin
i:=i+1;
if i=k then begin 
if first=current then first:=current^.next
else previos^.next:=current^.next;
dispose (current); 
6
break;
end;
previos:=current;
current:=current^.next;
end;
end;
procedure PrintNodeList; 
var p : NodePointer;
begin
WriteLn;
p:=first;
while p<>nil do begin
Write(p^.s:3,’ ‘);
p:=p^.next
end;
end;
Var {Main} i,m,n : Integer;
begin {Main}
Clrscr;
Randomize;
n:=17; 
for i:=1 to n do IncludeNode(InitNode);
PrintNodeList;
WriteLn;
m:=17; 
DeleteNode(m);
PrintNodeList;
ReadKey;
end. {Main}
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2016, 12:53
Ответы с готовыми решениями:

Односвязный список: просмотр, поиск, вставка и удаление элементов
Нужно создать односвязный список типа общего вида, элементы которого...

Удаление повторяющихся элементов из списка
В общем программа, которая удаляет повторы из списка. Не могу вообще...

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

Удаление одинаковых элементов связного списка
Здраствуйте. Пробую удалить одинаковые елементы списка но не получается :( и...

Удаление всех элементов односвязного списка
есть односвязный список из struct el{ int val; struct el*...

4
HighPredator
5692 / 2011 / 723
Регистрация: 10.12.2010
Сообщений: 5,778
Записей в блоге: 3
29.10.2016, 15:43 2
А что код-то делает?
0
vasua28
4 / 4 / 2
Регистрация: 25.09.2016
Сообщений: 99
01.11.2016, 14:05  [ТС] 3
вставка и удаление элементов из списка
0
HighPredator
5692 / 2011 / 723
Регистрация: 10.12.2010
Сообщений: 5,778
Записей в блоге: 3
01.11.2016, 14:30 4
Цитата Сообщение от vasua28 Посмотреть сообщение
вставка и удаление элементов
Как? Куда? Вы нашли вообще какой-то нетривиальный код, который добавляет элементы перед первым, да еще и не прибирает за собой. Вы уверены, что вам ровно это надо? Как у вас условие вообще звучит?
0
vasua28
4 / 4 / 2
Регистрация: 25.09.2016
Сообщений: 99
01.11.2016, 17:49  [ТС] 5
я ничего не искал) это просто одна из задач по лабораторной. но все я уже разобрался))) Сам не понимаю смысла такой задачи. То что мы учим си это так. Но при чем здесь Паскаль не понимаю.
0
01.11.2016, 17:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2016, 17:49

Удаление повторяющихся элементов двунаправленого связного списка
Здраствуйте. Не получается уадалить одинаковые элементы в списке. Програма...

Удаление из списка всех элементов, начиная с к-го по порядку
Дан список идентификаторов. Длина каждого идентификатора не более 8 символов....

Список: Формирование списка из n элементов, вставка элемента после минимального, удаление дубликатов.
Формирование списка из n элементов. Вставка элемента после минимального....


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

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

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