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

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

Восстановить пароль Регистрация
 
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
09.09.2013, 22:34     Списки. Перевод из Паскаля в C++ #1
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.
Помогите с переводом на С++, пожалуйста.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2013, 22:34     Списки. Перевод из Паскаля в C++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Croessmah
Модератор
Эксперт С++
 Аватар для Croessmah
11811 / 6790 / 767
Регистрация: 27.09.2012
Сообщений: 16,841
Записей в блоге: 2
Завершенные тесты: 1
09.09.2013, 22:36     Списки. Перевод из Паскаля в C++ #2
Когда дойдем до темы с названием "Списки 100500"?
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
09.09.2013, 23:53  [ТС]     Списки. Перевод из Паскаля в C++ #3
Цитата Сообщение от Croessmah Посмотреть сообщение
Когда дойдем до темы с названием "Списки 100500"?
их всего 2 в моем задание
Yandex
Объявления
09.09.2013, 23:53     Списки. Перевод из Паскаля в C++
Ответ Создать тему
Опции темы

Текущее время: 07:39. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru