Pascal To C++

Тема в разделе "Свободное общение", создана пользователем Coder, 11 мар 2010.

  1. Coder

    Coder Гость

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

    Код (Text):
    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.
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    А
    тут при чем? ВАм надо - вы и переводите.
     
  3. Coder

    Coder Гость

    :*цензура*you:
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Зачем так грубо, хотя с другой стороны и правда.
    Кстати идея очень интересная(Перевод с++ в pascal и на оборот) самому иногда надо.
    Где нибуть есть страница на которой описаны отличия и схожесть с++ и pascal.
    P. S. C++ вообще незнаю
     
  5. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Потому что человек даже не пытался сделать. Он хочет, что бы ему нахаляву тупо кинули готовое решение. Если бы было выложено, мол пробоввал то-то и вот так-то, а вот тут не получилось - я бы помог. А так.. Любителей халявы - ф топку.

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Найдите пожалуйста, может что та сам напишу
     
Загрузка...

Поделиться этой страницей