IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Новогодняя елка, ребята помогите мне плиз
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской
Реальное имя: Андрей

Репутация: -  0  +


Во-первых , всем привет !
Зовут меня Андрей , или просто at0m , хочу выучиться на програмера , сейчас в 11 классе , и вот у меня возникла поблема и поэтому ребята обращаюсь к вам за помощью ...
Я хочу сделать елку с гарляндами на паскале , но никак не получается , помогите мне плз...
Из 4-5 способов я не нашел подходящий вариант для елки ( все корявые ) , обращаюсь к вам за советом...
Спасибо , и всех с наступающим !
Если что мои контакты вы сможете посмотреть у меня в профиле. Вроде бы все , жду ответа rolleyes.gif


--------------------
Студент (:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цитата
я хочу увидеть есть ли норм способ сотворить в этом чуде елку
Способ есть всегда... Все зависит только от твоей фантазии. Как пример первого наброска - вот такая "елка". Поиграйся с коэффициентами при вычислении Arc (да и со всеми остальными тоже), можешь добавить случайный выбор цвета (зеленый/темно-зеленый), дорисуй шарики - будет тебе елка...

uses Crt, Graph;

const
RStart = 40;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;

x, y, R: integer;
i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }

setcolor(lightgreen);

for j := 2 to 6 do begin
y := (getmaxy div 10) * j;
R := RStart + 15*j;

for i := 1 to 5 do begin
arc((getmaxx div 2) - R, y, 350-(R div 5)-8*j, 359, R);
arc((getmaxx div 2) + R, y, 181, 190+(R div 5)+8*j, R);
inc(y, 7);
inc(R, 5);
end;
end;

Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.


Можно посмотреть у нас в FAQ-е пример фрактального дерева, там тоже есть коэффициенты, которые можно менять...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.06.2024 6:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name