ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Alexander Orehov                     2:5020/9481.17 04 Jul 2003  23:57:39
 To : Nikita Melikhov
 Subject : Круг
 -------------------------------------------------------------------------------- 
 

 
 Втр 01 Jul 2003, Nikita Melikhov writes to All:
 
 NM> Как по точкам нарисовать круг? (жел-но с примером на Pascal (Delphi));
 
 Procedure CircleNew(x, y, Radius : word);
 Var i, j, R : longint;
 Begin
  R:=Radius*Radius;
  for i:=0 to Radius do
   begin
    j:=Round(Sqrt(R-i*i));
    Line(x+i,y-j,x+i,y+j);
    Line(x-i,y-j,x-i,y+j)
   end;
 End;
 
 При желании можно добавить коэффициент, учитывающий нелинейность экрана.
 
 Счастливо!
 
 --- ==========<|>*****<|>==========
  * Origin:  TF  (2:5020/9481.17)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор