DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »flemming«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »flemming« 

TextFile

pH  af n monobasiske syrer i vand
begin
integer i,n;
real COH,Kw,Kw2,h,ha,hb,ht,s,s0,s1;
n:=readi(<:antal syrer:>);
begin
real array C,K(1:n);
repeat
i:=read(in,C,K);
until i=n;
for i:=1 step 1 until n do K(i):=10**(-K(i));
Kw:='-14; Kw2:=sqrt(Kw);
GENTAG:
COH:=readr(<:basekoncentration:>);
for i=1 step 1 until n do begin
h:=C(i)+h
end;
ha:=h+Kw2-COH;
ha:=if ha>0 then Kw2+h else Kw2;
hb:=if COH<=0 then Kw2 else Kw/(COH+Kw2);
for ht:=sqrt(ha*hb) while ha/hb > 1.0005 do
begin
s0:=K(i)*C(i)/(K(i)+ht);
s:=ht-Kw/ht+COH;
for i=1 step 1 until n do s=s-s0;
if s > 0 then ha:=ht else hb:=ht
end;
write(out,<:pH =  :>,-ln(ht)/ln(10));
if readb(<:flere koncentrationsværdier :>) then goto GENTAG
end
▶EOF◀