[Gấp] Giúp giải bài Pascal này với

Đề bài

Tính ph của dung dịch h2s 0.1 mol biết các hằng số phân li Ka1=10^-7,02 Ka2=10^-12,4
>> Yêu cầu: Giải bài toán bằng Xấp Xỉ nghiệm sau đó viết lên bằng Ngôn ngữ lập trình pascal ?

Giải:

Ta có phương trình phân li:
H2S -----> S(-2) + 2H+
Ban đầu 0.1 0 0 ( M) coi 1lit dung dịch
phản ứng x x 2x
sau phản ứng 0,1-x x 2x
Ta có công thức nồng độ bằng:

K(cân bằng)= [S2-]*[H+]/[H2S] = x*2x/(0,1-x) = Ka1*Ka2
Giải phương trình bậc hai ta có
x1= -4.36*10^-11 (loại)
x2= 4,36*10^-11 (nhận)
Suy ra ta có: pH= -log[H+] = - log (2*4.36*10^-11) = 10


_____________
2. Viết lời giải bằng Pascal:
Ai đó có thể giúp mình ko ? hjzz