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

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

Войти
Регистрация
Восстановить пароль
 
EnterSadman
0 / 0 / 0
Регистрация: 25.07.2012
Сообщений: 41
#1

Перевод Turdo Delphi в C++ - C++

15.11.2012, 23:38. Просмотров 295. Ответов 2
Метки нет (Все метки)

Нужно перевести программу, написанную на языке Turdo Delphi в C++.
Вот сам код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program PT1;
{$Apptype Console}
uses
SysUtils;
Var N:Byte; s:integer;
Procedure Noir(N:Byte; x,y,z:char);
Begin
if N>0 then
Begin
Noir(N-1,x,z,y);
WriteLn(s,x,'=>',y);
s:=s+1;
Noir(N-1,z,y,x);
End
End;
Begin
WriteLn('Укажите число дисков');
Readln(N);
Noir(N,'A','B','C');
readln;
end.
Надеюсь на вашу помощь. Спасибо.
(Через рекурсивную процедуру)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2012, 23:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод Turdo Delphi в C++ (C++):

Перевод из delphi в c++ - C++
Помогите пожалуйста перевести программку из delphi в c++ function ReflectStr(str:string):string; var i:integer; begin for i:=0...

Перевод из Delphi в C++ - C++
Есть код на Делфи помогите пожалуйста перевести его в С++Bulder. ...... const MapFName = 'D:\MIKHAILP\DOCUM\Projects\ISTC_robot ...

Перевод из Delphi в c++ - C++
Помогите перевести код в с++ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Перевод с Delphi на С++ - C++
Всем привет. Ребята помогите перевести код проекта с delphi на с++. Вот проект

перевод из Delphi в Builder - C++
type Point = record color : TColor; x, y : Integer; end; type PointArray = array of array of Point; var pa:...

Перевод кода с Delphi на C++ - C++
procedure TForm2.Edit1Change(Sender: TObject); begin ADOTable1.Filtered:=false; ADOTable1.Filter:='Фамилия LIKE...

2
lemegeton
2925 / 1354 / 135
Регистрация: 29.11.2010
Сообщений: 2,725
16.11.2012, 00:51 #2
Лень разбираться, что оно делает?
0
HighPredator
5544 / 1857 / 346
Регистрация: 10.12.2010
Сообщений: 5,479
Записей в блоге: 2
16.11.2012, 01:04 #3
C++
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
#include<iostream>
 
using namespace std;
 
unsigned char N;
int s;
 
void Noir(unsigned char N, char x,char y, char z)
{
    if(N>0)
    {
        Noir(N-1,x,z,y);
        cout<<s<<x<<"=>"<<y<<endl;
        s++;
        Noir(N-1,z,y,x);
    }
}
 
int main()
{
    cout<<"Enter number of drives"<<endl;
    cin>>N;
    Noir(N,'A','B','C');
    getchar();
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2012, 01:04
Привет! Вот еще темы с ответами:

Работа со строками - перевод с Delphi в С++ - C++
Доброго времени суток! Проблема с переводом кода в С++. Сам код в Delphi: var FM : TextFile; i: Integer; ...

Перевод кода с Delphi, деление нацело - C++
во общем есть условие { if ((y4*x3 div 10).quot==4) if (((100*x1+10*x2+x3)*y1 div 100)&gt;0)&amp;&amp;(((100*x1+10*x2+x3)*y1...

Перевод из Delphi (Алгоритм нахождения наибольшего паросочетания в двудольном графе) - C++
UNIT1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...

Turdo Delphi 2006 и Interbase - Delphi БД
Не могу найти вкладку Interbase, или ее нет в этой версии?


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

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

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