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

Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева. - C++

Восстановить пароль Регистрация
 
Саня Семья
Сообщений: n/a
28.03.2011, 21:02     Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева. #1
program FracTree;
uses Graph, CRT;
procedure Tree(x, y: Integer; a: Real; l: Integer);
var
x1, y1: Integer;
p, s : Integer;
i : Integer;
a1 : Real;
begin
if l < 8 then
exit;
x1 := Round(x + l*cos(a));
y1 := Round(y + l*sin(a));
if l > 100 then
p := 100
else
p := l;
if p < 40 then
begin
{Генерация листьев}
if Random > 0.5 then
SetColor(10)
else
SetColor(2); {4, 14}
for i := 0 to 3 do
Line(x + i, y, x1, y1)
end
else
begin
{Генерация веток}
SetColor(6);
for i := 0 to (p div 6) do
Line(x + i - (p div 12), y, x1, y1);
end;
{Следующие ветки}
for i := 0 to 9 - Random(9) do
begin
s := Random(l - l div 6) + (l div 6);
a1 := a + 1.6 * (0.5 - Random); {Угол наклона веток}
x1 := Round(x + s * cos(a));
y1 := Round(y + s * sin(a));
Tree(x1, y1, a1, p - 5 - Random(30)); {Чем меньше вычетаем, тем пышнее дерево}
end;
end;

var
gd, gm: Integer;
begin
Randomize;
gd := Detect;
InitGraph(gd, gm, 'c:\bp\bgi');
Tree(320, 480, 3*pi/2, 200);
ReadKey;
CloseGraph;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 21:02     Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева.
Посмотрите здесь:

Перевод с Microsoft Visual Studio 2008 в Борланд С++ C++
C++ Перевод из Паскаля на С++
Перевод из Паскаля в С++ C++
C++ Перевод с паскаля на с++
Перевод из Паскаля в С++ C++
Перевод с Паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 05:48. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru