Commit | Line | Data |
---|---|---|
1f017636 BJ |
1 | Berkeley Pascal PXP -- Version 1.1 (November 6, 1978) |
2 | ||
3 | Sat Mar 31 11:50 1979 primes.p | |
4 | ||
5 | Profiled Sat Mar 31 13:02 1979 | |
6 | ||
7 | \0\0\0\0\01\0\0\0\0\0\0\0\01.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'|program primes(output); | |
8 | \0\0\0\0\02\0\0\0\0\0\0\0\0\0\0\0\0\0|const | |
9 | \0\0\0\0\02\0\0\0\0\0\0\0\0\0\0\0\0\0| n = 50; | |
10 | \0\0\0\0\02\0\0\0\0\0\0\0\0\0\0\0\0\0| n1 = 7; (*n1 = sqrt(n)*) | |
11 | \0\0\0\0\03\0\0\0\0\0\0\0\0\0\0\0\0\0|var | |
12 | \0\0\0\0\03\0\0\0\0\0\0\0\0\0\0\0\0\0| i, k, x, inc, lim, square, l: integer; | |
13 | \0\0\0\0\04\0\0\0\0\0\0\0\0\0\0\0\0\0| prim: boolean; | |
14 | \0\0\0\0\05\0\0\0\0\0\0\0\0\0\0\0\0\0| p, v: array [1..n1] of integer; | |
15 | \0\0\0\0\06\0\0\0\0\0\0\0\0\0\0\0\0\0|begin | |
16 | \0\0\0\0\07\0\0\0\0\0\0\0\0\0\0\0\0\0| write(2: 6, 3: 6); | |
17 | \0\0\0\0\07\0\0\0\0\0\0\0\0\0\0\0\0\0| l := 2; | |
18 | \0\0\0\0\08\0\0\0\0\0\0\0\0\0\0\0\0\0| x := 1; | |
19 | \0\0\0\0\08\0\0\0\0\0\0\0\0\0\0\0\0\0| inc := 4; | |
20 | \0\0\0\0\08\0\0\0\0\0\0\0\0\0\0\0\0\0| lim := 1; | |
21 | \0\0\0\0\08\0\0\0\0\0\0\0\0\0\0\0\0\0| square := 9; | |
22 | \0\0\0\0\09\0\0\0\0\0\0\0\0\0\0\0\0\0| for i := 3 to n do begin (*find next prime*) | |
23 | \0\0\0\0\09\0\0\0\0\0\0\0\0\0\0\048.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| repeat | |
24 | \0\0\0\011\0\0\0\0\0\0\0\0\0\0\0\0\0\0\076.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| x := x + inc; | |
25 | \0\0\0\011\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| inc := 6 - inc; | |
26 | \0\0\0\012\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| if square <= x then begin | |
27 | \0\0\0\013\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\05.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| lim := lim + 1; | |
28 | \0\0\0\014\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| v[lim] := square; | |
29 | \0\0\0\014\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| square := sqr(p[lim + 1]) | |
30 | \0\0\0\014\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| end; | |
31 | \0\0\0\016\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| k := 2; | |
32 | \0\0\0\016\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| prim := true; | |
33 | \0\0\0\017\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| while prim and (k < lim) do begin | |
34 | \0\0\0\018\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0157.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| k := k + 1; | |
35 | \0\0\0\019\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| if v[k] < x then | |
36 | \0\0\0\019\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\042.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| v[k] := v[k] + 2 * p[k]; | |
37 | \0\0\0\020\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| prim := x <> v[k] | |
38 | \0\0\0\020\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| end | |
39 | \0\0\0\020\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0|until prim; | |
40 | \0\0\0\023\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| if i <= n1 then | |
41 | \0\0\0\023\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\05.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| p[i] := x; | |
42 | \0\0\0\024\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| write(x: 6); | |
43 | \0\0\0\024\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| l := l + 1; | |
44 | \0\0\0\025\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| if l = 10 then begin | |
45 | \0\0\0\026\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\05.\l'\w`\0\0\0\0`u-\w`.`u\&\(rh'| writeln; | |
46 | \0\0\0\026\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| l := 0 | |
47 | \0\0\0\026\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0| end | |
48 | \0\0\0\026\0\0\0\0\0\0\0\0\0\0\0\0\0| end; | |
49 | \0\0\0\029\0\0\0\0\0\0\0\0\0\0\0\0\0| writeln | |
50 | \0\0\0\029\0\0\0\0\0\0\0\0\0\0\0\0\0|end. |