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

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

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

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

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

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

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод с Паскаля в С++ - C++
Помогите перевести этот код на С++ var a,z,x,x0,x1,xk,y,y0,y1,yk,zmin,h:real; i,n:integer; begin clrscr; write(‘Ввод X0:’); ...

Перевод из Паскаля в Си++ - C++
program p1; var a,k:string; mas:array of string; b,c,i,nu:integer; begin nu:= 0; i:=1; readln (a); for i:=1...

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

Перевод из паскаля в с ++ - C++
Ребят помогите перевести в с ++ var p:array of integer; c,c1:char; i,j,N,K:integer; name:string; time1,time2:integer; ...

2
Croessmah
Эксперт CЭксперт С++
13412 / 7563 / 855
Регистрация: 27.09.2012
Сообщений: 18,614
Записей в блоге: 3
Завершенные тесты: 1
09.09.2013, 22:36 #2
Когда дойдем до темы с названием "Списки 100500"?
0
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
09.09.2013, 23:53  [ТС] #3
Цитата Сообщение от Croessmah Посмотреть сообщение
Когда дойдем до темы с названием "Списки 100500"?
их всего 2 в моем задание
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2013, 23:53
Привет! Вот еще темы с ответами:

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

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

Перевод с Паскаля на C++ - C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; ...

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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