DataMuseum.dk

algol<
begin
_____
integer q,r,s,t,i,j,k,l;
_______
real d,f,g,h;
____
select(11);
q:=read integer;
 begin
 _____
 real array A[1:q];
 ____ _____
procedure beregning(konstsæt,V,P,T);
_________
value V,P;
_____
real V,P,T;real array konstsæt;
____       ____ _____
 begin
 _____
 T:=((P+konstsæt[1]/V∧2)⨯(V-konstsæt[2]))/0.082054;
                     |
 end procedure beregning;
 ___
 for i:=1 step 1 until q do
 ___      ____   _____   __
 A[i]:=read real;
 r:=read integer;
 s:=read integer;
  begin
  _____
  real array B[1:s];
  ____ _____
  for i:=1 step 1 until s do
  ___      ____   _____   __
  B[i]:=read real;
  t:=read integer;
   begin
   _____
   real array C[1:t],D[1:r];
   ____ _____
   for i:=1 step 1 until t do
   ___      ____   _____   __
   C[i]:=read real;
   f:=read real;
   g:=read real;
   h:=read real;
for k:=0 step r  until q-r do
___      ____    _____     __
 begin
 _____
 for l:=1 step 1 until r do
 ___      ____   _____   __
  begin
  _____
  D[l]:=A[l+k];
  writetext(|< konstant|);write(|dd|,l);
            <          >        <  >
  writetext(|<:|);write(|-ddddd10-dd|,D[l]);writecr;
            <  >        <          >
  end;
  ___
 writetext(|< faktorer:|);write(|__-ddddd10-dd|,f,g,h);
           <           >        <,,          >
 writecr;writecr;
 writetext(|<       |);
           <        >
 for i:=1 step 1 until t do
 ___      ____   _____   __
  begin
  _____
  write(|_ddddd|,C[i]⨯f);writetext(|<  |);
        <,     >                   <   >
  end;writecr;writecr;
  ___
 for i:=1 step 1 until s do
 ___      ____   _____   __
  begin
  _____
  write(|ddddd|,B[i]⨯g);
        <     >
  for j:=1 step 1 until t do
  ___      ____   _____   __
   begin
   _____
   beregning(D,B[i],C[j],d);write(|___ddddd|,d⨯h);
                                  <,,,     >
   end;writecr;
   ___
  end;writecr;writecr;writecr;writecr;
  ___
  end
  ___
  end
  ___
  end
  ___
 end
 ___
end;t<
___