Форум программистов, компьютерный форум, киберфорум
Наши страницы

Списки. Перевод из Паскаля в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вывести на экран элементы списка в указанной последовательности http://www.cyberforum.ru/cpp-beginners/thread951089.html
{ 13.5 Дан список из n целых чисел a1,a2,...,an. Вывести на экран элементы списка в указа- нной последовательности: an,a1,an-1,a2,...,a1,an } Uses crt; Type...
C++ Visual Studio Pro 2010 - не запускается установка Добрый день. Скачал версию professional rus, монтирую образ, запуская setup (autorun) от администратора. В появившемся окно нажимаю "Установить Microsoft Visual Studio 2010". Окно немного думает,... http://www.cyberforum.ru/cpp-beginners/thread951072.html
Проблемы с выводом C++
Это часть программы. При вводе фамилии , имени, телфон, дату и вводишь "*" вывод получаеться правильный( выводить фамилия и имя). При вводе этих данных 2 и или более раз он начинает выводить телефон...
C++ Коннект к реестру
Доброго времени суток! Стоит задача внести запись в реестр(автозагрузка определенной программы). Код: int main() { _TCHAR szPath = _T("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\"); ...
C++ Создание и завершение процессов и потоков. Приоритеты выполнения потоков http://www.cyberforum.ru/cpp-beginners/thread951046.html
Здравствуйте. Буду очень раз если поможете понять,что конкретно нужно сделать в вот этом задании,пока особого представления о многопоточности не имею,так что вьехать самому не получилось. ...
C++ 0 (не + и не -) Необходимо чтобы 0 при заполнении массива не учитывался не в положительных, не в отрицательных числах массива. А задание было такое: Дан массив А(n). Все положительные его элементы поместить в начало... подробнее

Показать сообщение отдельно
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119

Списки. Перевод из Паскаля в C++ - C++

09.09.2013, 22:34. Просмотров 252. Ответов 2
Метки (Все метки)

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
uses crt;
type pnode_t=^node_t;
     node_t=record
     info:integer;
     prev,next:pnode_t;
   end;
   
procedure create(var list,list_2:pnode_t);
var
    elem : pnode_t;
    x,i : integer;
begin
clrscr;
    new(elem);
 
    readln(x);
    elem^.info:=x;
    list:=elem;
    list^.prev:=nil;
    list_2:=list;
    for i:=1 to 4 do
    begin
         new(elem);
         readln(x);
         elem^.info:=x;
         list^.next:=elem;
         elem^.prev:=list;
         list:=elem;
       end;
           list^.next:=nil;
       end;
       
function  posl(list_2:pnode_t):integer;
var
   min,k:integer;
begin
    k:=0;
    min:=list_2^.info;
while list_2<>nil do
begin
    if min<=list_2^.info then k:=k+1;
    min:=list_2^.info;
    list_2:=list_2^.next;
    posl:=k;
end;
end;
 
var list,list_2:pnode_t;
begin
    create(list,list_2);
    writeln('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-');
    writeln('Длина неубывающей подпоследовательности равна : ',posl(list_2));
    writeln('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-');
 
end.
Помогите с переводом на С++, пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru