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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Класс обыкновенной дроби http://www.cyberforum.ru/cpp-beginners/thread740845.html
class TFraction { public: signed int numerator; unsigned denominator; TFraction operator + (TFraction); TFraction operator - (TFraction); TFraction operator * (TFraction); TFraction operator / (TFraction); TFraction operator + (signed int);
C++ Нужно исправить код, работа с файлами Помогите пожалуйста исправить код,он должен выводить победителя с максимальным баллом и правильной фамилией. #include <stdio.h> #include <string.h> #include <conio.h> #include <stdlib.h> #include <iostream.h> #define DL_NUM 3 /* nomer uchastnica */ #define DL_FIO 25 /* dlina polya familii v fayle */ http://www.cyberforum.ru/cpp-beginners/thread740843.html
C++ Вычислить среднее арифметическое элементов непустого списка
Нужно написать программу, буду благодарен тем, кто поможет. Вычислить среднее арифметическое элементов непустого списка
C++ Программа на C++ найти делители
Найти все делители натурального числа n. программа на циклы
C++ Задача на c++. Количество нулей в младших разрядах http://www.cyberforum.ru/cpp-beginners/thread740815.html
Здраствуйте срочно нужно решение на c++. Задача: Дано натуральное число N (N>9). Определить количество нулей, идущих подряд в младших разрядах данного. Пример: N=1020000. Количество нулей равно двум.
C++ Выведите таблицу значений функции y = f (x) Выведите таблицу значений функции y = f (x).Таблица должна иметь две колонки: в первую заносят значение xi, а во вторую yi. f(x) = числитель: x (в квадрате) - 3х +2 , знаменатель: (корень разности чисел) 2 умножить на х(в кубе) -1. х1 = 1+ih; i= 0,1,...,n. h,n - вводятся. подробнее

Показать сообщение отдельно
semb
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 9
21.12.2012, 10:59     перевод с паскаля в с++
итак, мне нужно перенести на начало списка его последний элемент.
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 на форуме Сообщить модератору о нарушении Ответить с цитированием
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 08:19. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru