主题：画图y=e(-x)sin(2pix).x=0,1/16,2/16,3/16......2 急!
晓风凉月
[专家分：0] 发布于 2005-10-05 16:02:00
请前辈赶快回复[size=5]请前辈赶快回复[/size]
回复列表 （共6个回复）
沙发
阿Ben [专家分：2200] 发布于 2005-10-05 18:12:00
看不明白题目……
板凳
晓风凉月 [专家分：0] 发布于 2005-10-05 18:22:00
y=exp(-x)sin(2派x)
x=0,1/16,2/16,3/16.......多谢指教啦[em1]
3 楼
绿步甲 [专家分：1610] 发布于 2005-10-05 21:02:00
这样也加分??!!看来楼主真的很急,
但我还是看不明白!
能否把式子中省略的*号阿都写出来,看得明白
4 楼
zhsas [专家分：1680] 发布于 2005-10-05 23:08:00
program zhs (input,output);
const
pi=3.1415926;
var
x,y:real;
i:integer;
begin
for i:=0 to 32 do
begin
x:=i/16;
y:=exp(-x)*sin(2*pi*x);
writeln('*':round(y*35+40))
end
end.
5 楼
阿Ben [专家分：2200] 发布于 2005-10-05 23:08:00
哦，我也许明白题目了。
（以下程序未经测试，如有错误请告诉我。）
uses graph;
var
x,y:real;
px,py:integer;
i:integer;
gm,gr:integer;
begin
gd:=Detect;
initgraph(gd,gm,' ');
for i:=-3200 to 3200 do begin
x:=i/10;
y:=exp(-x)*sin(2*pi*x);
px:=round(x+320);
py:=round(y+320);
putpixel(px,py,15);
end;
readln;
closegraph;
end.
6 楼
游侠UFO [专家分：1200] 发布于 2005-10-07 10:52:00
可以试试这种方法
用个以X为循环变量的循环，然后画直线，前后两个X的差越小图象的精确度也就越高。不过这种方法可能有点慢.呵呵
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 画图y=e(-x)sin(2pix).x=0,1/16,2/16,3/16......2 急!