Роза Ветров

[shelovek]

изобразить розу ветров по 8-ми направлениям,

[BulldozerBSG]

бери в руки кусок мела и рисуй на доске, думаю задача будет решена (Хи-хи). Вы как в реклама "- Девушка а чайник можно"...

[Oleg_Rus]

Shelovek, чтобы мы могли вам помочь - объясните подробно, что именно вам необходимо...

[BBB]

Shelovek, чтобы мы могли вам помочь - объясните подробно, что именно вам необходимо...

Я не исклюяаю, кстати, что, если это учебная задачка, то она ИМЕННО ТАК и сформулирована
Конечно, если это так, то надо трасти препода, чтобы от уже него добиться, что же хотят от создателя программы.

[shelovek]

уточняю даны 8 направления вот мы вводим эти направления и Паскаль должен нам нарисовать розу ветров

[Oleg_Rus]

Если я верно понял задачу, то это должно выглядеть следующим образом:
\ | /
\| /
------
/|\
/ | \

таким образом задача упрощается
подключаем модуль graph и прорисовать эту самую розу с просчетом всех координат (надеюсь координатную шкалу рисовать не надо):

uses graph;
begin
line ( minx, maxy, maxx, miny);
line ( minx, maxy div 2, maxx, miny div 2);
line ( maxx div 2, maxy, maxx div 2, miny);
line ( minx, miny, maxx, maxy);
end.

код конечно неверный, но общий смысл вычислений таков