Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
semb
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 9
#1

перевод с паскаля в с++ - C++

21.12.2012, 10:59. Просмотров 187. Ответов 0
Метки нет (Все метки)

итак, мне нужно перенести на начало списка его последний элемент.
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
program list_test;
uses crt;
type
pNode = ^tNode;
tNode = record
data : integer;
next : pNode;
end;
var
List : pNode;
 
procedure Init_List(var list : pNode);
begin
List := nil;
end;
 
procedure Destroy( var list : pNode);
var
p : pNode;
begin
p := list;
while list<>nil do begin
p := list;
list := list^.next;
dispose(p);
end;
end;
 
Procedure InputItemList(var List : pNode);
var
i : integer;
p : pNode;
begin
for i:=1 to 10 do begin
new(p);
p^.data := i;
p^.next := List;
List := p;
end;
end;
procedure ShowList(list : pNode);
var
i : integer;
p : pNode;
begin
p := list;
i := 1;
while p<>nil do begin
writeln(i, '-й элемент ', p^.data);
p := p^.next;
inc(i);
end;
end;
 
procedure Move( var list : pNode);
var
p : pNode;
begin
p := list;
while p^.Next^.Next<>nil do begin {предпоследний элемент списка}
p := p^.next;
end;
p^.next^.next := list; {собственно перемещение элемента}
list := p^.next;
p^.next := nil;
end;
 
procedure Run(var List : pNode);
var
key : Char;
begin
repeat
Writeln('1 - Записать эл-ты в список');
Writeln('2 - Вывести эл-ты списка');
Writeln('3 - Переместить последний элемент в начало');
Writeln('4 - Очистить список');
Writeln('0 - Выход');
Key := readKey;
case Key of
'1' : InputItemList(List);
'2' : ShowList(List);
'3' : Move(List);
'4' : Destroy(list);
end;
until key='0';
end;
 
begin
Init_List(List);
Run(List);
end.
Нужно на с++.

semb на форуме Сообщить модератору о нарушении Ответить с цитированием
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2012, 10:59     перевод с паскаля в с++
Посмотрите здесь:

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...

перевод с паскаля на С++ - C++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют,...

Перевод из Паскаля в C++ - C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не разобрался. Вот задача Поменять местами...

Перевод с Паскаля на с++ - C++
Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние арифметические значения каждой пятёрки...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод с паскаля в с++ - C++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста! writeln(a,' rublej') написал в с++ как printf...

Перевод с Паскаля на C++ - C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. var z,x,v: text; st: string; begin ...

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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