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

@vasua28 · Регистрация: 25.09.2016

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

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

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}

HighPredator · 29.10.2016, 15:43

А что код-то делает?

@vasua28 · 01.11.2016, 14:05 **[ТС]**

вставка и удаление элементов из списка

HighPredator · 01.11.2016, 14:30

Сообщение от vasua28

вставка и удаление элементов

Как? Куда? Вы нашли вообще какой-то нетривиальный код, который добавляет элементы перед первым, да еще и не прибирает за собой. Вы уверены, что вам ровно это надо? Как у вас условие вообще звучит?

@vasua28 · 01.11.2016, 17:49 **[ТС]**

я ничего не искал) это просто одна из задач по лабораторной. но все я уже разобрался))) Сам не понимаю смысла такой задачи. То что мы учим си это так. Но при чем здесь Паскаль не понимаю.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	29.10.2016, 15:43
	А что код-то делает? 0

@vasua28 4 / 4 / 2 Регистрация: 25.09.2016 Сообщений: 105
	01.11.2016, 14:05 [ТС]
	вставка и удаление элементов из списка 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	01.11.2016, 14:30
	Сообщение от vasua28 вставка и удаление элементов Как? Куда? Вы нашли вообще какой-то нетривиальный код, который добавляет элементы перед первым, да еще и не прибирает за собой. Вы уверены, что вам ровно это надо? Как у вас условие вообще звучит? 0

@vasua28 4 / 4 / 2 Регистрация: 25.09.2016 Сообщений: 105
	01.11.2016, 17:49 [ТС]
	я ничего не искал) это просто одна из задач по лабораторной. но все я уже разобрался))) Сам не понимаю смысла такой задачи. То что мы учим си это так. Но при чем здесь Паскаль не понимаю. 0

Опции темы