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

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

Войти
Регистрация
Восстановить пароль
 
Саня Семья
Сообщений: n/a
#1

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

28.03.2011, 21:02. Просмотров 421. Ответов 0
Метки нет (Все метки)

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     Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева.
Посмотрите здесь:

Использование queue.h для генерации дерева - C++
Необходимо было написать программу, строящую дерево с особым образом поименованными вершинами, со случайным числом ребер у каждой вершины...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод из Паскаля в C++ - C++
Пожалуйста помогите перевести одну функцию из Паскаля в C++. Буду очень признательна, так как очень плохо знаю Паскаль, а C++ тоже не очень...

Перевод с паскаля на С++ - C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var matrix: array of integer; i,p,q:integer; ...

Перевод из Паскаля на С++ - C++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++, поскольку Паскаль знаю плохо, прошу вас перевести данный код из...


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

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

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