Return to math.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/math.p, revision 1.1

1.1     ! root        1: program math(input,output);
        !             2: 
        !             3: label  1;
        !             4: 
        !             5: type
        !             6: chrint=-120..120;
        !             7: sint=-1000..1000;
        !             8: ray=array[1..2] of record
        !             9:   first :real;
        !            10:   second :alfa;
        !            11:   end;
        !            12: 
        !            13: var
        !            14: i :chrint;
        !            15: j :sint;
        !            16: k :integer;
        !            17: l, m :real;
        !            18: ary :ray;
        !            19: 
        !            20: procedure skip;
        !            21: 
        !            22: begin
        !            23: goto 1;
        !            24: end;
        !            25: 
        !            26: 
        !            27: begin
        !            28: j:=5;
        !            29: k:=10;
        !            30: l:=15.0;
        !            31: i:=j;
        !            32: i:=k;
        !            33: j:=k;
        !            34: k:=j;
        !            35: l:=j;
        !            36: l:=k;
        !            37: i:=10;
        !            38: j:=1000;
        !            39: k:=100000;
        !            40: l:=1.24e+16;
        !            41: ary[1].first:=50.2;
        !            42: ary[1].second:='oh boy';
        !            43: m:=j+j;
        !            44: m:=k+k;
        !            45: m:=l+l;
        !            46: m:=j+k;
        !            47: m:=k+j;
        !            48: m:=j+l;
        !            49: m:=l+j;
        !            50: m:=l+k;
        !            51: m:=k+l;
        !            52: m:=j-j;
        !            53: m:=k-k;
        !            54: m:=l-l;
        !            55: m:=j-k;
        !            56: m:=k-j;
        !            57: m:=j-l;
        !            58: m:=l-j;
        !            59: m:=l-k;
        !            60: m:=k-l;
        !            61: m:=j*j;
        !            62: m:=k/k*k;
        !            63: m:=l*l;
        !            64: m:=j*k;
        !            65: m:=k*j;
        !            66: m:=j*l;
        !            67: m:=l*j;
        !            68: m:=l*k;
        !            69: m:=k*l;
        !            70: m:=j/j;
        !            71: m:=ary[1].first/l;
        !            72: m:=j/k;
        !            73: m:=k/j;
        !            74: m:=j/l;
        !            75: m:=l/j;
        !            76: m:=l/k;
        !            77: m:=k/l;
        !            78: m:=j div j;
        !            79: m:=k div k;
        !            80: m:=j div k;
        !            81: m:=k div j;
        !            82: m:=j mod j;
        !            83: m:=k mod k;
        !            84: m:=j mod k;
        !            85: m:=k mod j;
        !            86: m:=-j;
        !            87: m:=-k;
        !            88: m:=-l;
        !            89: m:=abs(-j)+abs(k)+abs(-l);
        !            90: m:=abs(j)+abs(-k)+abs(l);
        !            91: if (k=k) and
        !            92:    (j<k) and
        !            93:    (k>=j) and
        !            94:    (l=l) and
        !            95:    (j<=l) and
        !            96:    (k<>l) and
        !            97:    (l>j) and
        !            98:    (l>k) and
        !            99:    (ary[1].second=ary[1].second) then
        !           100: writeln((ary[1].second):7,'it works !!!');
        !           101: skip;
        !           102: writeln('error');
        !           103: 1:
        !           104: ary[2]:=ary[i-9];
        !           105: writeln('hex k = ',k:1 hex,'   octal k = ',k oct);
        !           106: writeln('octal j = ',j:1 oct,'   hex j = ',j hex);
        !           107: i:=1;
        !           108: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.