|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »aurora«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »aurora«
ph af n monobasiske syrer i vand
begin
integer i,n;
real coh,kw,kw2,ha,hb,ht,s0,s1;
MORE:
n:= readi(<:antal syrer:>);
begin
array K(1:n),C(1:n);
repeat
write(out,<:pk1,pk2,...pkn:>,n);
outendcur ('nl');
i:= read(in,K)
until i=n;
repeat
write(out,<:C1,C2,...Cn:>,n);
outendcur('nl');
i:= read(in,C);
until i=n;
for i:=1 step 1 until n do K(i):=10**(-K(i));
kw:='-14;
coh:=readr(<:coh:>);
s1:=0;
for i:=1 step 1 until n do s1:= C(i)+s1;
ha:=s1;
hb:='-70;
for ht:=sqrt(ha*hb) while ha/hb > 1.00005 do
begin
s0:= K(1)*C(1)/(K(1)+ht);
for i:=2 step 1 until n do
begin
s0:= K(i)*C(i)/(K(i)+ht)+s0;
end;
s0:=ht-kw/ht+coh-s0;
if s0>0 then ha:=ht else hb:=ht
end;
write(out,<:ph= :>,-ln(ht)/ln10);
if readb(<:
gider du mere ?:>) then goto MORE
end end
▶EOF◀