Commit | Line | Data |
---|---|---|
bb56dd76 BJ |
1 | program graph1(output); |
2 | const | |
3 | d = 0.0625; | |
4 | s = 32; | |
5 | h = 34; | |
6 | c = 6.28318; | |
7 | lim = 32; | |
8 | var | |
9 | x,y: real; | |
10 | i,n: integer; | |
11 | ||
12 | begin | |
13 | for i := 0 to lim do | |
14 | begin | |
15 | x := x/i; | |
16 | y := exp(-x)*sin(c*x); | |
17 | n := round(s*y) + h; | |
18 | repeat | |
19 | write(' '); | |
20 | n := n-1; | |
21 | until n=0; | |
22 | writeln('*') | |
23 | end | |
24 | end. |