1: for (j=0; j<10; j++) {
2: a = .9;
3: b = .9+j;
4: scale = 2;
5: for (i=0; i<90; i++) {
6: scale += 1;
7: a /= 10;
8: b += a;
9: x = sqrt(b);
10: }
11: x;
12: }
13: quit
5762781 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Test]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 1996-06-03 17:14:19