Цитата(Bes @ 15.12.2004, 14:57)

2Ddddddelphi: Это проверка на вшивость что ли? :-) В чарте или на канве или в TB турбо паскаля давно накомпе не имею - так что если надо в нем топридется подождать... ну и есть плохая привычка не хранить исходники так что писать буду заново. Как писать?

да не, Bes, чего ты собрался там писать?

Не... ну надо, нет? без проблем. :-) смотрите сами как гриться....

Bes, да не люблю я утруждать людей по вопросам, с которыми я в задачах ещё не сталкивался, а если тебе без проблем, то хотелось бы взглянуть на такой график функции который вырисовывается во всех четвертях.

Это сообщение отредактировал(а) Ddddddelphi - 16.12.2004, 14:31

Мля, график-то я сделал, а как его в сообщение запихнуть. :-(

и что график прям вырисовывается во всем четвертях...и почему не помещается код чего там фантастического можно было написать... - шутка что-ли....и кидай мне на ящик...

А... да нет, я думал тебе надо сам график - я и не знал как отскриненую картинку в форум вставить дак я ее тебе на почту выслал а код простой щас накидаю.

Var
x,y,p:real;
begin
Series1.AddArrow(-1,0,0,1,'',clred);
Series1.AddArrow(0,1,1,0,'',clred);
Series1.AddArrow(1,0,0,-1,'',clred);
Series1.AddArrow(0,-1,-1,0,'',clred);


Series2.X0:=-0.1;
Series2.Y0:=0.1;
Series2.X1:=0.1;
Series2.Y1:=-0.1;

p:=0;

Repeat
p:=p+pi/100;
x:=cos(p)/5;
y:=sin(p)/5;

Series3.AddXY(x,y,'',clBlack);
Until p>=2*pi;

Вот, всяко разно во всех четвертях и как вы предлагали точками и линиями и еще одним способом.
P.S. Картинка несколько отличается от приведенного примера, т.к. я вая сейчас заново - не сохранял первый пример. :-)