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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ двусвязные списки http://www.cyberforum.ru/cpp-beginners/thread265817.html
привет всем. Помогите пожалуйста написать функции очистки списка и добавление елемента в начало списка. Заранее спасибо.
C++ С уравнением Спасите люди добрые кто может, срочно надо сделать задачу :wall: :( Вычислить значение функции z=y/x, где y=sin(rac), x-любое целое число. При вычислениии надо учитывать что y может быит равен нулю.... http://www.cyberforum.ru/cpp-beginners/thread265812.html
C++ С++ и аудио файлы
Здравствуйте! Я пишу на С++ тест на определение порога звуковой чувствительности человеческого уха. Подскажите пожалуйста, каким образом подключать звуковые файлы?? Например, по нажатию на...
сделать програмно C++
господа програмисты допустим у меня есть файл .txt как в него програмно записать надпись(что бы визуально этот файл неоткрывался) ? Заранее всем огромное спасибо!!!
C++ Записать все буквы данного слова в обратном порядке http://www.cyberforum.ru/cpp-beginners/thread265799.html
Дано слово. Записать все буквы данного слова в обратном порядке.
C++ объявления в чем отличие такого определения float var = 1.f; от такого float var = 1.0f; подробнее

Показать сообщение отдельно
Саня Семья
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 1

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

28.03.2011, 21:02. Просмотров 437. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru