如何画半圆？(50分)

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #1

类似与一个完整的正弦波那样？

 

L

LILIANG2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #2

procedure TForm1.formClick(sender:TObject);
var
x:integer;
begin
for x:=0 to 719 do
begin
canvas.pixels[x,round(50+50*cos((3.14159/180.0)*x))]:=clblue;
end;
end;

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-29

• #3

问题已解决，嘿嘿，不过还是散分了