gn="justify"> 2.4.3 Лістинг обробки головної кнопки
procedure TForm1.sBitBtn1Click (Sender: TObject);
var i, d, j: integer;, k1, k2, a, k, ag, kg, k3: string;, slk: integer;, koe1, koe2, konst1, konst2: real; , sltb1, sltb2, sltb3: Tsqlitetable;:= 1 raquo ;;:= 1 raquo ;;:= raquo ;;:= raquo ;;:=sldb.gettable ( select * from ani where id= + inttostr (RadioGroup1.ItemIndex + 2));:=sldb.gettable ( select * from kati where id=raquo;+inttostr(RadioGroup2.ItemIndex+2));.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;:=sltb.FieldAsString(2) ;:=sltb1.FieldAsString (5);:=strtofloat (sltb.FieldAsString (6));:=strtofloat (sltb1.FieldAsString (6));:=strtofloat (sltb.FieldAsString (7));:=strtofloat ( sltb1.FieldAsString (7));
. Caption:= 1. Дисоціація солі ; .Left:=466; .Top:=62; .Width:=550; .Height:=30;
//якщо рівні коефіцентиk1=k2 then begink1=inttostr (1) then begin:= raquo ;;:= raquo ;; end;:=sltb.FieldAsString (5);:=sltb1.FieldAsString (4) ;. Caption:=k + + a + lt;= gt; + k + ^ + + k2 + + + a + + ^ - + k1;
//MathLabel1.Caption:=k + + a;
end;
//якщо не рівні коефіцентиk1 lt; gt; k2 then begin
a:=sltb.FieldAsString (5);:=sltb1.FieldAsString (4); strtoint (k1)=1 then:= else if strtoint (k2)=1k2:= raquo ;; (strtoint (sltb.FieldAsString (1))=1) and (k2 lt; gt; ) then:= ( + sltb. FieldAsString (5) + ) raquo ;; (strtoint (sltb1.FieldAsString (1))=1) and (k1 lt; gt; ) then:= ( + sltb1.FieldAsString (4) + ) raquo ;;. Caption:=k + _ + k1 + + a + _ + k2 + lt;= gt; + k1 + k + ^ + + k2 + + + k2 + a + + ^ - + k1 ;;
//MathLabel2.Caption:=k + _ + k1 + + a + _ + k2 + lt;= gt; + k1 + k + ^ + + k2 + + + k2 + a + + ^ - + k1;:=strtoint (sltb.FieldAsString (0));:=strtoint (sltb1.FieldAsString (0)); .Left:=466; .Top:=92; .Width:=550; .Height:=30; (sla=1) and (slk=1) then begin
MathLabel3.Caption:= 2. Сіль утворена сильним підставою і сильної кислотою . Гідроліз Не протікає. середу нейтральна ; .Left:=466; .Top:=122; .Width:=550;
MathLabel4.Height:=30; .Caption:= рH=7 raquo ;; endbegin:=sltb.FieldAsString (2);:=sltb1.FieldAsString (5) ;. Left:=466; .Top:=122; .Width:=550; .Height:=30; .Caption:= 3. Іонне уравнениеraquo;;.Left:=466;.Top:=152;.Width:=550;.Height:=30;.Left:=466;.Top:=182;.Width:=550;.Height:=30;.Left:=466;.Caption:=laquo;4. Молекулярне уравнениеraquo;;.Top:=212;.Width:=550;.Height:=30;.Left:=466;.Top:=242;.Width:=550;.Height:=30;.Left:=466;.Top:=242;.Width:=550;.Height:=30;.Left:=466;(sla=1) and (slk=0) then begin
MathLabel3.Caption:= 2. Сіль утворена слабким підставою і сильної кислотою. Гідроліз по катиону. середу кисла ; k2=inttostr (1) then begin:= raquo ;;
MathLabel5.Caption:=k + ^ + + k2 + + H-OH lt; - gt; + k + OH + + H ^ + raquo ;;:=- log10 (sqrt (exp ((- 14) * ln (10)) * 0.1/(konst2 * exp (koe2 * ln (10))))); .Caption: = рH1= + floattostr (ph); k1=inttostr (1) then.Caption:=k + _ + + a + + + H_2 O lt; - gt; + k + OH + + H + a.Caption:=k + _ + k1 + + a + + + + k1 + H_2 O lt; - gt; + k1 + k + OH + + H_ + k1 + + a endbegink2=inttostr (2) then begin:= raquo ;; k2 gt; k1 then.Caption:=k + + a + _ + k2 + + + H_2 O lt; - gt; + k + OH + a + + H + + ak2=k1 then.Caption:=k + + a + + + H_2 O lt; - gt; ( + k + OH) _2 + a + + H_2 + + abegin:=inttostr (strtoint (k2) - 1); k1=inttostr (1) then.Caption:=k + + a + _ + k2 + + + H_2 O lt; - gt; ( + k + OH) + a + _ + k3 + + H + ak1=inttostr (2) then.Caption:=k + _ + k1 + + a + _ + k2 + + + k1 + H_2 O lt; - gt; + k1 + ( + k + OH) + a + + H_ + k3 + + a; .Caption:=k + ^ + + k2 + + H-OH lt; - gt; + k + OH ^ + + k3 + + H ^ + raquo ;;:=- log10 (sqrt (exp ((- 14) * ln (10)) * 0.1/(konst2 * exp (koe2 * ln (10))))); .Caption: = рH1= + floattostr (ph) ;; if (sla=0) and (slk=1) then begin
MathLabel3.Caption:= 2. Сіль утворена сильним підставою і слабкою кислотою. Гідроліз по аниону. середу лужна raquo ;; k2=inttostr (1 ) thenk1=k2 then begin:= raquo ;;. Caption:=k + + a + + H_2 O lt; - gt; H + a + + + k + OH ; .Caption:=A + ^ - + k1 + + H-OH lt; - gt; H + a + ^ + + OH ^ - ;:=14 + log10 (sqrt (exp ((- 14) * ln (10)) * 0.1/(konst1 * exp (koe1 * ln (10))))); .Caption:= рH2= + floattostr (ph); if k1=inttostr (2) then begin.Caption:=k + _...
