Pascal To C++

  • Автор темы Coder
  • Дата начала
C

Coder

Гость
#1
Здравствуйте, опытные программисты!
Данный код мне нужно перевести на язык c++
Заранее благодарен.

Код:
uses crt;

type
Stack=^TStack;
TStack=record
Elem:integer;
NextElem:Stack
end;

procedure CreateStack (var StackHead: Stack);
begin
StackHead:=nil;
end;

procedure IncludeInStack(var StackHead: Stack; NewElem: integer);
var ServiceVar:Stack;
begin
new(ServiceVar);
ServiceVar^.Elem:=NewElem;
ServiceVar^.NextElem:=StackHead;
StackHead:=ServiceVar
end;


procedure SelectFromStack(var StackHead: Stack);
var ServiceVar:Stack;
begin
if StackHead <> nil then
begin
ServiceVar:=StackHead;
writeln(StackHead^.Elem);
StackHead:=StackHead^.NextElem;
dispose(ServiceVar)
end
end;


var sh:Stack;
n:integer;

begin
clrscr;

CreateStack(sh);
IncludeInStack(sh,1);
IncludeInStack(sh,2);
IncludeInStack(sh,3);

for n:=1 to 3 do
begin
SelectFromStack(sh);
end;

readln;
end.
 
09.11.2009
665
1
23
Киев
#4
ВАм надо - вы и переводите.
Зачем так грубо, хотя с другой стороны и правда.
Кстати идея очень интересная(Перевод с++ в pascal и на оборот) самому иногда надо.
Где нибуть есть страница на которой описаны отличия и схожесть с++ и pascal.
P. S. C++ вообще незнаю
 

vital

Больной Компом Детектед
29.01.2006
2 432
40
codeby.net
#5
Потому что человек даже не пытался сделать. Он хочет, что бы ему нахаляву тупо кинули готовое решение. Если бы было выложено, мол пробоввал то-то и вот так-то, а вот тут не получилось - я бы помог. А так.. Любителей халявы - ф топку.

А про перевод.. Есть автоматические утилиты. Код после них, само собой, надо править, но все-таки часть работы они делают. А про материал.. Где-то когда-то мне попадались на глаза таблицы соответствий типов, функций.. Еще чего-то.. Если надо - поищу.