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

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

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

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

28.03.2011, 21:02. Просмотров 422. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева. (C++):

Перевод с Microsoft Visual Studio 2008 в Борланд С++ - C++
У меня есть текст программы в Microsoft Visual Studio 2008. Помогите перевести его на С++. #include &lt;iostream.h&gt; void main() { ...

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

Прокомментировать код фрактального дерева - Turbo Pascal
Этот код создания фрактального дерева ... Помогите пожалуйста разобраться ... За что отвечает переменная l и для чего нужна р program...

Пошаговая постройка фрактального дерева - C++ Builder
Задача стоит такая: 1) нарисовать фрактальное дерево; 2) при нажатии на кнопку пользователь разрешает приступить к следующему этапу...

Нужно разобраться в коде фрактального дерева - OpenGL
Вот сам код: #include &lt;math.h&gt; #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; #include &lt;glut.h&gt; #define ANGLE 0.6 // ugol #define...

Програма DBUpdater.exe сама скачивает проги и вирусы каждый день - Удаление вирусов
Стандартный антивирус не видит её. Постоянно в одно и тоже время, устанавливает амиго, соундбар и др. После всего этого cureit находит...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2011, 21:02
Привет! Вот еще темы с ответами:

програма паскаля - Pascal
помогите составить программу,очень надо...

Надо чтоб программа считала файл находящийся в том же каталоге что и сама програма - C#
Помогите разобраться с файлами в C# а суть в том что надо чтоб програма считала файл находящийся в том же каталоге что и сама програма(не...

Перевод с паскаля на с# - C#
Очень нужна помощь, помогите перевести следующий кусок кода. Не понимаю, я как написать это шарпе. Пожалуйста!!Очень прошу. PTree =...

Перевод из паскаля в C# - C#
Переведите пожалуйста эту строчку for i:=a downto 2 do


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

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

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