Помощь - Поиск - Пользователи - Календарь
Полная версия: Рекурсия
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Счетовод
Привет всем!Я тут самоучка и вот не могу сделать програмочку нужно построить елку из n треугольников если не лень помогите пожалуиста rolleyes.gif .Заранее спасибо.
мисс_граффити
а с чем помогать-то? ты уже пробовал сам делать?
Счетовод
Пробовать то пробовал, но выводит он вообще что попало. Я первый раз с рекурсией встретился так что не получается никак дали мне такую вот процедурку:

procedure recurs(x,y,x1,y1,k:integer);
var p2,yy,p1:integer;
begin
p1:=x-((x2-x1)div 2);
p2:=x+((x2-x1)div 2);
yy:=y+470div n;
setcolor(13);line(x,y,p1,yy);
setcolor(15);line(x,y,p2,yy);
setcolor(14);line(p1,y,p2,y);
end;


Толко помоему тут какая-то чуш написана.

Добавлено через 2 мин.
Мне б тока с процедуркои помоч а там все я знаю как дальше..

М
Теги, однако...
мисс_граффити

Archon
А можно точнее, как должна выглядеть эта елка?
мисс_граффити
фиолетовая елка из треугольников....
procedure recurs(x,y,r:integer);
begin
if r>0 then
begin
setcolor(13); //можно задать в основной программе, если елка будет однотонной
line(x-r,y,x+r,y);
line(x-r,y,x,y-r);
line(x+r,y,x,y-r);
recurs(x,y-r,r-10);
end;
end;

сюрреализм...
Счетовод
Пасибки, ёлочка красивая! respect.gif respect.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.