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

C++

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

перевести код с паскаля на С++ - C++

13.12.2010, 17:51. Просмотров 525. Ответов 1
Метки нет (Все метки)

Доброго времени суток! у меня большая просьба: имеется код на паскале, программа, которая рисует дерево, из каждой ветки растут новые 2. Помогите пожалйста перевести этот код на С++. Заранее спасибо!

Добавлено через 36 секунд
Program Tree;
Uses Graph, CRT;
var
D, R, e : Integer;
i, j : Word;
Ar : array[1..512] of Real;
Ar1 : array[1..512] of Real;
delta : Real;
NumPoint : Word;
begin
D := Detect;
InitGraph(D, R, '');
e := GraphResult;
if e <> grOk then
begin
WriteLn('Ошибка инициализации графического режима!(ошибка ', e,')');
WriteLn(GraphErrorMsg(e));
Halt($FA00+e);
end;
NumPoint := 1;
Ar[1]:=320;
for i := 0 to 9 do
begin
NumPoint := Round(exp(1.0*i*Ln(2)));
delta := 640.0/(NumPoint*1.0+1.0);
for j := 1 to 512 do Ar1[j] := Ar[j];
Ar[1] := delta;
for j := 2 to NumPoint do
Ar[j] := Ar[j-1] + delta;
for j := 1 to NumPoint div 2 do
begin
if (2*j-1) mod 15 <> 0 then
SetColor((2*j-1) mod 15) else
SetColor(Green);
Line(Round(Ar1[j]-1),529-50*i,Round(Ar[2*j-1]-1),529-50*(i+1));
if (2*j) mod 15 <> 0 then
SetColor((2*j) mod 15) else
SetColor(Red);
Line(Round(Ar1[j]-1),529-50*i,Round(Ar[2*j]-1),529-50*(i+1));
end;
end;
ReadKey;
CloseGraph;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2010, 17:51
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести код с паскаля на С++ (C++):

Перевести код из MATLAB в С++ - C++
можно ли как-то перевести код матлаба в с/с++ или другой язык программирования?

Перевести код математической функции с паскаля - C++ Builder
Здравствуйте, есть функция написана в паскале: function g (a,b :real) : real begin ...

Необходимо перевести код программы с Паскаля на С++ - C++ Builder
uses graphABC; var x,y,x0,y0,x1,y1,a,j,i,c:integer; t:real; begin y1:=0;y0:=0; for i:=1 to 5 do begin x0:=0;

Перевести код класса с Паскаля на CPP - C++ Builder
На Delphi написан простенький класс: TProtectThread = class(TThread) private { Private declarations } protected ...

перевести код проги из Паскаля в C++ Builder 6 - C++ Builder
нужно перевести код програмы из Паскаля в C++Builder 6 program a1; Var x,x1:real; Begin x:=1; repeat x1:=x; ...

Необходимо перевести код программы с Паскаля на С++ Builder - C++ Builder
USES CRT,GRAPH; TYPE MASS=ARRAY OF INTEGER; VAR PUT,PUT2:STRING; GraphDriver,GraphMode:INTEGER; I,SH:REAL; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Kran4
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 16
16.12.2010, 20:06 #2
аналогичная проблема. Прошу помочь только с записью файла
program lr4_19;
uses crt;
var
bukvi:set of char;
f:text;
slovo,c,s,possl:string;
pslovo,i,k,j:integer;
massl:array[1..100] of string;
begin
clrscr;
assign(f,'h:/text.txt');
reset(f);
bukvi:=['A'..'Z','a'..'z'];
j:=1;
writeln('====Text=====================');
while not eof(f) do
begin
readln(f,s);
writeln(s);
i:=1;
while (i <=length(s)) do
begin
pslovo:=0;
if not (s[i] in bukvi) then inc(i);
slovo:='';
while (i <=length(s)) and (s[i] in bukvi ) do
begin
pslovo:=1;
slovo:=slovo+s[i];
inc(i);
end;
if pslovo=1 then
begin
massl[j]:=slovo;
inc(j);
end;
end;
end;
writeln('=============================');
for i:=1 to j-1 do
write(massl[i],' ');
writeln;

writeln('****last word****************');
possl:=massl[j-1];
writeln(possl);
writeln('*****************************');

for i:=1 to j do
begin
slovo:=massl[i];
c:=slovo[1];
delete(slovo,1,1);
if pos(c,slovo) > 0 then
begin
slovo:=c+slovo;
massl[i]:=slovo;
if (slovo<>possl) then writeln(slovo);
end;
end;
{ writeln(possl); esli nujno pechatat' possl }

close(f);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2010, 20:06
Привет! Вот еще темы с ответами:

Перевести код математической функции с паскаля В C++ Builder - C++ Builder
Есть программа в паскале нужно переделать в С++ Builder, помогите, заранее спасибо. var a : array of real; x, y, m, n : integer; ...

Как перевести с паскаля в С++?? - C++ Builder
вот собствена прога в паскале, а мне надо както её в сишку перевести..... если комуто не сложно подскажите плз program L_2_13; uses...

перевести с паскаля в си++ тип список - C++ Builder
Как в с++ сделать подобную инициализацию? Record t= s:string x,y:integer; mas:array of t; в чем суть.мне нужен...

код перевести в С++ Builder - C++ Builder
#include &lt;iostream&gt; #include &lt;iomanip&gt; #include &lt;cstdlib&gt; using namespace std; int main() { int sn, bn, i; int b; ...


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

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

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