DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »MGF.PAS«

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »MGF.PAS« 

TextFile

program test;
var rest1,rest2,mi,mj,x,y:integer;
farve1,farve2:array(.1..8.) of integer;
begin
y:=$ffff;
read(x);
begin
          rest1:=x;
          rest2:=y;
          for mj:=1 to 7 do
          begin
             farve1(.mj.):=round(4*frac(rest1/4));
             rest1:=rest1 div 4;
             writeln(mj:5,farve1(.mj.):5,rest1:5);
          end;
          for mj:=1 to 7 do
          begin
             farve2(.mj.):= (rest2 shl 14) shr 14;
             rest2:=rest2 shr 2;
             writeln(mj:5,farve2(.mj.):5,rest2:5);
          end;
          if rest2=0 then rest2:=rest1;
          for mj:=7 downto 1 do
          begin
             if farve2(.mj.)=0 then
                rest2:=4*rest2+farve1(.mj.)
             else
                rest2:=4*rest2+farve2(.mj.);
          end;
          write(x:5,rest2:5);
end;
end.
«eof»