IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> c pascal в c++
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +



program omfg;
uses crt;
type
plist = ^list;
list = record
inf: integer;
next: plist;
end;

var beg,t,p1,p2,p3,first:plist;
n,i:integer;

procedure vivod(x:plist);
begin
t:=x;
while t<>nil do
begin
write(t^.inf,' ');
t:=t^.next;
end;
end;

procedure dob(x1,x2:plist);
begin
while x1^.next<>nil do x1:=x1^.next;
x1^.next:=x2;
end;

procedure sozdat(j:integer;var x1:plist);
begin
new(first);
first^.next:=nil;
first^.inf:=random(10)+j;
for i:=1 to n-1 do
begin
new(p3);
p3^.inf:=random(10)+j;
p3^.next:=nil;
p3^.next:=first;
first:=p3;
end;
x1:=p3;
end;

begin
clrscr;
readln(n);
randomize;

sozdat(-10,p1);
beg:=p1;
vivod(p1);
writeln;

sozdat(1,p2);
vivod(p2);
writeln;

dob(p1,p2);
writeln;

p1:=beg;
vivod(p1);
readln;
end.


помогите перевести код в с++
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.10.2020 6:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name