DataMuseum.dk

begin comment kvadratisk gangetabel for positive tal op til tallet slut,
_____ _______
saaledes at rækkeantal og søjleantal pr. side kan fastlægges for hver kørsel.
Til hvert tal er fastsat 7 positioner + et mellemrum. Tabellen udskrives
saa de enkelte sider kommer søjlevis.
                 Variabelliste
slut            højeste tal i tabelindgangene
itot            sideantal i en række af hele tabellen
jtot            sidaantal i en søjle af hele tabellen
isk             talantal i en række pr. side
jsk             talantal i en søjle pr. side
i,j             sideindices for hele tabellen
iv,ih           grænser for rækkeindgange paa en enkelt side
jv,jh           grænser for søjleindgange paa en enkelt side
iva             aktuel rækkeindgangsværdi
jva             aktuel søjleindgangsværdi
iov,jov,io,jo   redigering til overskrifter
tal             aktuel udskriftsværdi
ud              layout for tabeltal
udo             layout for overskriftstal
ja              redigering til overskrifter paa for- og bagside
     Som input kræver programmet
     <slut>,<isk>,<jsk>, idet betegnelserne refererer til
                          variabelangivelserne ovenfor;
integer slut,itot,jtot,isk,jsk,i,j,iv,ih,iva,jva,iov,jov,io,jo,ja,
_______
jv,jh,tal;
boolean ud,udo;
_______
select(8);
comment indlæsning af højeste tabelindgang, rækkeantal og søjleantal pr. side;
_______
slut:=read integer; isk:=read integer; jsk:=read integer;
comment layout;
_______
ud:=|-ddddddd|; udo:=|-dddd|;
    <        >       <     >
comment forside;
_______
writechar(72); writechar(72);
iov:=isk_2;
        :
jov:=(jsk⨯8-20)_2-1;
               :
for io:=1 step 1 until iov do writecr;
___       ____   _____     __
for ja:=1,2 do
___         __
begin
_____
for jo:=1 step 1 until jov do writechar(0);
___       ____   _____     __
for jo:=1 step 1 until 28 do writechar(44);
___       ____   _____    __
writecr;
end;
___
for jo:=1 step 1 until jov do writechar(0);
___       ____   _____     __
writetext(|<GANGETABEL FRA 1 TIL   |);
          <                        >
writeinteger(udo,slut);
writecr;
for ja:=1,2 do
___         __
begin
_____
for jo:=1 step 1 until  jov do writechar(0);
___       ____   _____      __
for jo:=1 step 1 until 28 do writechar(44);
___       ____   _____    __
writecr;
end;
___
comment grænser for sideindex;
_______
itot:=slut_isk; jtot:=slut_jsk;
          :               :
comment overskriftstart for tabelside;
_______
jov:=jsk⨯8-28;
comment start paa tabeludskrift;
_______
comment søjleindex for sider;
_______
for j:=0 step 1 until jtot do
___      ____   _____      __
begin jv:=j⨯jsk+1; jh:=(j+1)⨯jsk;
_____
      comment rækkeindex for sider;
      _______
      for i :=0 step 1 until itot do
      ___       ____   _____      __
      begin iv:=i⨯isk+1; ih:=(i+1)⨯isk;
      _____
            comment start paa en ny side;
            _______
             writechar(72);
            for jo:=1 step 1 until jov do writechar(0);
            ___       ____   _____     __
            writetext(|<LODRET INDGANG:   |);
                      <                   >
             writeinteger(udo,jv);
              writetext(|< - |);
                        <    >
            writeinteger(udo,jh);
            writecr;
            for jo:=1 step 1 until jov do writechar(0);
            ___       ____   _____     __
            writetext(|<VENSTRE INDGANG:  |);
                      <                   >
              writeinteger(udo,iv);
                writetext(|< - |);
                          <    >
            writeinteger(udo,ih);
             writecr; writecr;
             comment søjleindgange udskrives;
             _______
             writetext(|<           |);
                       <            >
            for jva:=jv step 1 until jh do writeinteger(ud,jva);
            ___         ____   _____    __
            writecr; writecr;
              comment behandling af en enkelt tabelside;
              _______
            for iva:=iv step 1 until ih do
            ___         ____   _____    __
            begin comment rækkeindgang udskrives;
            _____ _______
                     writeinteger(ud,iva); writetext(|<   |);
                                                     <    >
                     tal:=iva⨯(jv-1);
                     comment  udskrift af en række;
                     _______
                     for jva:=jv step 1 until jh  do
                     ___         ____   _____     __
                    begin tal:=tal+iva;
                    _____
                             writeinteger(ud,tal);
                    end;
                    ___
                  writecr;
             end for;
             ___ ___
      end for i;
      ___
end  for j;
___
comment bagside;
_______
writechar(72);
jov:=(jsk⨯8-20)_2;
               :
for io:=1 step 1 until iov do writecr;
___       ____   _____     __
for ja:=1,2 do
___         __
begin
_____
for jo:=1 step 1 until jov do writechar(0);
___       ____   _____     __
      for jo:=1 step 1 until 26 do writechar(44);
      ___       ____   _____    __
      writecr;
end;
___
for jo:=1 step 1 until jov do writechar(0);
___       ____   _____     __
writetext(|<PUBLISHED BY JPS, DEC 1970|);
          <                           >
writecr; writecr;
jov:=jov+1;
for jo:=1 step 1 until jov do writechar(0);
___       ____   _____     __
writetext(|<NACHDRUCK EMPFEHLENSWERT|);
          <                         >
writecr;
jov:=jov-1;
for ja:=1,2 do
___         __
begin for jo:=1 step 1 until jov do writechar(0);
_____ ___       ____   _____     __
      for jo:=1 step 1 until 26 do writechar(44);
      ___       ____   _____    __
      writecr;
end;
___
writechar(72); writechar(72);
end
___
[stop]