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

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

Показать сообщение отдельно
Саня Семья
Сообщений: n/a
28.03.2011, 21:02     Нужэн перевод с паскаля на Борланд С++. Сама програма генерации фрактального дерева.
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 02:27. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru