DataMuseum.dk

Program  P19    - ALGOL4 -         16-8-1967         Jens Thyge Kristensen
begin
_____
integer  by,d1,d2,d3,en,i,maxlin,maxsæt,n,n0,nb,nlin,ns,nsæt,nul,side;
_______
real     fn,tofem;
____
comment
_______
I en opløsning, hvor homogen kimdannelse har fundet sted, er partikelantallet
per ccm givet ved   N =  J⨯t1⨯f(n-stjerne).   Programmet beregner for positive
heltallige værdier af   n-stjerne   den tilsvarende værdi for   f(n-stjerne),
hvor   f(n) =  1/(1+0.4)⨯2/(2+0.4)⨯ ... ⨯n/(n+0.4).
PAPIRFORMAT: A4-høj med 60 linier per side, første linie sættes ca. 5 linier
under printer-papirets overkant, margin paa 10 bogstaver.
INPUTSTRIMMEL: Et eller flere datasæt, hvert sæt skal indeholde følgende:
Heltallig begyndelsesværdi   nb (_1)   og slutværdi   ns (>nb)   for n-stjerne,
                                 >
og til sidst   n0   , hvor   (ns - nb + 1)/n0   angiver hvormange sæt
n-stjerne ,  f(n-stjerne)   af det totale antal   ns - nb + 1 , der ønskes
i output.   Layout kan klare til og med   9 cifre   i   n-stjerne.
OUTPUT: Tabel over   n-stjerne   og   f(n-stjerne).
KRYDSFELTET:   0 0 0 x
               0 x 0 0
               0 0 x 0
               0 0 0 0   ;
procedure TEXT;
_________
begin      writetext(|<
_____                <
    Tabel over n og f(n) =  1/(1+0.4)⨯2/(2+0.4)⨯ ... ⨯n/(n+0.4) , n hel
    Side  |);   write(|dd|,side);   write(|            dd|,d1);
          >           <  >                <              >
   writetext(|< - |);   write(|dd|,d2);   writetext(|< - |);
             <    >           <  >                  <    >
   write(|dddd|,d3);   writetext(|<            Jens Thyge Kristensen|);
         <    >                  <                                  >
   writecr;   writecr;   writecr;   writetext(|<
                                              <
    n-stjerne      f(n-stjerne)        n-stjerne      f(n-stjerne)|);
                                                                  >
   writecr;   writecr;      nlin:= nlin+9
end TEXT;
___
select(40);   en:= 1;   maxlin:= 60;   nul:= en-en;   side:= nul;
tofem:= 2/5;      by:= select(17);      writetext(|<
                                                  <
Tast dato, maaned, aar her :  |);
                              >
d1:= read integer;   d2:= read integer;   d3:= read integer;      select(by);
NYOPGAVE:
by:= select(17);      writetext(|<
                                <
INDLÆG datastrimmel og tast noget|);   lyn;      select(by);
                                 >
writechar(65);   nlin:= nul;   side:= side+en;   TEXT;
nb:= read integer;   ns:= read integer;   n0:= read integer;
n:= nb;   fn:= en;   nsæt:= nul;
for i:= nb-en step -en until en do fn:= fn/(en+tofem/i);
___           ____     _____    __
for i:= nb step en until ns do
___        ____    _____    __
   begin
   _____
   fn:= fn/(en+tofem/i);
   if i=n then
   __     ____
      begin
      _____
      write(|    ddd ddd ddd|,i);   write(|    d.dddd10-dd|,fn);
            <               >             <              >
      nsæt:= nsæt+en;   n:= n+n0;
      if n>ns then n:= ns;
      __      ____
      if nsæt=en then
      __         ____
         writetext(|<      |)
                   <       >
      else
      ____
         begin
         _____
         nsæt:= nul;   writecr;   nlin:= nlin+en;
         if nlin_maxlin then
         __     >       ____
            begin
            _____
            writechar(65);   nlin:= nul;   side:= side+en;   TEXT
            end
            ___
         end
         ___
      end i=n;
      ___
   end i;
   ___
go to NYOPGAVE
__ __
end Program  P19;
___
[stop]