Модуль Graph

[LEX.darnica]

подскажите как сделать задачу:Нарисовать окружность без помощи CIRKLE.

[puporev]

Например, построить график окружности.

[LEX.darnica]

Сообщение от puporev

Например, построить график окружности.

можешь написать как?

[Карась]

Form1.Canvas.Ellipse(50,100, 100,50); Гы

АДД: уравнение окружности r^2 = x^2 + y^2 Вот от сюда и надо плясать.

Тобишь выщитывать координаты x и y и рисовать пиксель. r - радиус.

[Virtson]

пишу по памяти :

Uses Graph;
var x, y: integer;
begin
  InitGraph() // тут идет пара процедур.
  Textcolor:= 2;
  Circle(x, y, 10);
  CloseGraph; 
end;

[Stilet]

пишу по памяти :

Автору нужно другое.
Ему нужно построить окружность синусами и косинусами.

Причем в Паскале, так что фишки типа Form1.Canvas. не катят.

[Virtson]

sorry/
'Алгоритм Брезенхейма' называется это.
'растровая развертка окружности'
google в помощь

[LEX.darnica]

Сообщение от Virtson

пишу по памяти :

Uses Graph;
var x, y: integer;
begin
  InitGraph() // тут идет пара процедур.
  Textcolor:= 2;
  Circle(x, y, 10);
  CloseGraph; 
end;

без помощи CIRCLE!

[puporev]

Примерно так, наверное можно лучше.

program okr;
uses crt,graph;
var a,i,x,y,r,gd,gm:integer;
begin
{gd:=detect;}
InitGraph(gd,gm,'d\tp\bgi');
x:=200;y:=100;r:=100;
   moveto(x,y-r);
   for a:=0 to 360 do
      lineto(x+round(r*sin(a*pi/180)),y-round(r*cos(a*pi/180)));
readln;
closegraph;
end.

[LEX.darnica]

Сообщение от puporev

Примерно так, наверное можно лучше.

program okr;
uses crt,graph;
var a,i,x,y,r,gd,gm:integer;
begin
{gd:=detect;}
InitGraph(gd,gm,'d\tp\bgi');
x:=200;y:=100;r:=100;
   moveto(x,y-r);
   for a:=0 to 360 do
      lineto(x+round(r*sin(a*pi/180)),y-round(r*cos(a*pi/180)));
readln;
closegraph;
end.

можно вопрос что это-round