real,integer的转化?(100分)

B

bihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #1

r:=sin(pi*fu);
image1.Canvas.Pixels [n,hei-int(r)]:=clred;
r为real,怎么解决?各种类型之间怎样转换?谢谢!
另:幂函数是power吗?

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #2

可以用Round函数四舍五入，也可以用Trunc截尾。
幂函数是power X^y——> Power(X,y)

 

B

bihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #3

power编译时有问题delphi 3)

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #4

r在-1与1之间,
Pixels [n,hei-round(r)]与Pixels [n,hei]回有太大区别吗?
把问题再说的明白些,OK?

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #5

要uses Math 这个单元

 

B

bihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #6

说明白些,是怎样根据频率和幅值画正弦波、三角波、方波等！
哪位能给段例程，本人初学编程，不胜感激！

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #7

根据频率和幅值算出坐标，然后用Canvas的lineto方法；
很多书上都有相关绘图例程的。

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #8

给你段比较简单的画正弦波,希望你能喜欢
a为幅度,t为周期,ox,oy为原点,pa,pt为要描点的相对坐标,
pnum表示取多少点.都以象素数为单位.
procedure TForm1.Button1Click(Sender: TObject);
var a,t,ox,oy,pa,pt,i,pnum:integer;
begin
a:=40;t:=100;
ox:=200;oy:=200;
pnum:=40;
for i:=0 to pnumdo
begin
pa:=round(a*sin(2*pi*i/pnum));
pt:=round(t*i/pnum);
canvas.Pixels[ox-pt,oy+pa]:=clred;
end;
end;

 

B

bihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-27

• #9

多人接受答案了。

 

B

bihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-27

• #10

Thanks!