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

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

Войти
Регистрация
Восстановить пароль
 
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
#1

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

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

Перевод с паскаля на си - C++
Ребят помогите поджалуйста с переводом! const r=10; n=100; type mas=array of byte; var i,j,a:integer; ...

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

Перевод из Паскаля на С++ - C++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++, поскольку Паскаль знаю плохо, прошу вас перевести данный код из...

Перевод с Паскаля в С++ - C++
var n: longint; max,x: byte; begin write('Введите число n: '); readln(n); max:=n mod 10; while n&gt;0 do begin ...

Перевод с Паскаля на С++ - C++
Помогите переделать с Паскаля на С++. 1)Вывести максимальное число из файла in.txt. Листинг: Program num23; uses crt; var...

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

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

Перевод из паскаля в с++ - C++
Помогите перевести type matrix = array of integer; var a:matrix; i,j,k:integer; begin k:=0; for i :=1 to...

Перевод с паскаля в С++ - C++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1; uses crt; var i,х1,х2,y1,y2,d,m,k,n:integer; c:real; ...

Перевод из паскаля в С++ - C++
помогите, пожалуйста, перевести : Program enot; var c, a : integer; begin c:=0; repeat read (a); if (a mod...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Croessmah
Модератор
Эксперт CЭксперт С++
12979 / 7291 / 812
Регистрация: 27.09.2012
Сообщений: 18,007
Записей в блоге: 3
Завершенные тесты: 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++
Ответ Создать тему
Опции темы

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