290 ИЮТЖЧОЕТ ZK1

240 ИКИ)А\ЗВТ 2А1

1ьл momvsET и

320 PDT\I=2\HH0DM\GET НС2

330 OTfODCVSET С20

340 ffliOfOVSET DC2

350 МИЯЖЧЗЕТ 2К2

360 **ODA\SET ZA2

370 HHODHVSKT И

400 POT -L ЖЕЛАЕТЕ ЛИ ПОВТОРИТЬ НЛН ИСПРАВИТЬ ВВОД"

410 DANXT\IF PR=1 THEN ООТО 200МНБ1

500 PUT 5/,HAHE:A>5U

510 I=1\WҐVK\PUT 8 HC1:F7.3

520 HYYCVUT 5C10:F6.3

530 TFYWDSFUT 5 DC1:F6.3

540 НТТАЧРОТ 5 ZK1:I2

550 HYWA\POT 5 ZA1:I2

550 НТЯНЧРОТ 5 H:I2,//

57B I=2\WV«M\P11T 5 HC2:F7.3

58B НТТКЛРИТ 5 C2B:F6,3

590 HTTOVPOT 5 DC2:F6.3

500 HYHK\POT 5 ZK2:12

510 WYXA4FOT 5 ZAZ:I2

520 MYHHNJUT 5 M: 12

590 POT 5 //

900 IL-73\LIKI

930 PUT -L 6 ": КОНЦЕНТРА-: КОНЦЕНТРА940 PUT 5 " КОЭФФИЦИЕНТ: СОЛЕСОДЕР- ' "

850 PUT -L 5 ':IDB1 1 ЭЛ-ТА!ЦИЯ 2 ЭЛ-ТА: ГО ЭЛ-ТА: ЭЛ-ТА

960

97г

380

990

1000

1010

1020 1030 1040 1060 1070 1030 1090 1100 1110 1120 1130 1140 1150 1160 1170 1200 1210 1230 1240 1250 1290 1270 1260 1290 1300 1310 1320 1330 1340 1350 1360 1370 1360 1390 1400 1410 1420 1430 1440 1460 1460

ХАМ. В Р МОЛЪ/Л Г/Л

PUT 5 " АКТИВНОСТИ PUT -L 6 НОЛЬ/Л PUT 5 " ИОНА LIKE С1=С10 FOR J-l ТО и С2=С20

FOR 1=1 ТО М

O.=0.5*(C1*ZK1*ZK1+C1*ZA1*ZA1+C2*ZK2*ZK2+C2*ZA2*ZA2) H=SORT(Q)

e=-0.514*ZKl*ZAHH/[ 1*Н)*0.1»в

F=EXF (Q*LOG (10.0))

CU=C1*F

Pl=-(LOGlCU))/LOO(10.e)

P2=14-P1

CC=MC1*C1*MC2*CZ

PUT -L 5" : " , CI :F11.3, ": " , C2: Fl 1. 3, " :", PI :F11.3, " :" ,P2 :*'il. 3,

PUT 5 F:FU .3, ":'", CC: F11.3, " : " .

C2=C2+DC2

EHDFNLINEVCCl+DCl EMDF

PUT 5 /// VEL

IF FR=0 THEN OOTO 100\EHBI

PUT /. ПЕРЕХОДИМ К РАЗДЕЛУ СЛАБЫЕ ЭЛЕКТРОЛИТЫ

PUT -L" ИНЕЕМ РАСТВОР ЭЛЕКТРОЛИТА 3. ЗАДАНИЕ ПОЛУЧИТЬ У "

PUT - ПРЕПОДАВАТЕЛЯ."

PUT -L" ИСХОДНЫЕ ДАННЫЕ: КОНЦЕНТРАЦИЯ ЭЛЕКТРОЛИТА, ИЗМЕНЕНИЕ " PUT- КОНЦЕНТРАЦИИ.

PUT-КОНСТАНТА ДИССОЦИАЦИИ, ЧИСЛО ИЗМЕНЕНИЙ КОНЦЕНТРАЦИЯ.' PUT /,? ЗАПИШИТЕ УРАВНЕНИЕ ДИССОЦИАЦИИ ЭЛЕКТРОЛИТА",/

I=3\WWODC\UET сзв

NMODDMJET DC3

PUT -f ВВЕДИТЕ КОНСТАНТУ дисссщияциилаЕт Dl

PUT -L-ЖЕЛАЕТЕ ЛИ ПОВТОРИТЬ ИЛИ ИСПРАВИТЬ ВВОД" \ ПАКЕТ

IF РЕ=1 тага аото I310\ENDI

НУНСЛРОТ 6 C30:F6.3 . НТИ>\РПТ 5 DC3:F6.3 HlWa)\FUT 5 D1:E6.2 PUT 5\IL=60\LINE

PUT -L 5":КОНЦВНТРАЯИЯ : СТЕПЕНЬ РОН СЛАВОЙ :"

PUT 5" РН СЛАБОЙ

PUT -L 5":СЛАБОГО : ДИССОЦИАЦИЯ : КИСЛОТЫ

PUT 6" КИСЛОТЫ

PUT -L 5":ЭЛЕКТРОЛИТА: I"

PUT 6"

LINE

1600

1510

1520

1530

1540

1550

I860

1ST0

1560

1600

1610

1620

1630

1640

1650

1660

1670

1660

1680

1700

1702

1704

1710

1720

1730

1740

1750

1760

1770

1760

1790

1600

1610

1620

1630

1640

1660

1660

1670

1660

1690

1900

9999

10000

10010

10020

C3=C30\FOR L=l ТО N STD=SQRT(D1/C3) CB=STD»C3

FD1=-(LOG(CD))/LOO<10.0)) PD2=14-FD1

PUT 5":".C3:F13.4.":",STD:F14.4,":',,FD1:F14.4.":",FD2: C3=C3+DC3 INDF

LIMEXFUT 5

VEL\IF FR=0 THEN GOTO 100\EMDI PUT" ПЕРЕХОДИМ К РАЗДЕЛУ ГИДРОЛИЗ СОЛЕЯ" PUT ИМЕЕМ РАСТВОР ЭЛЕКТРОЛИТА 4. ИСХОДНЫЕ ДАННЫЕ:" PUT" КОНЦЕНТРАЦИЯ СОЛИ,ИЗМЕНЕНИЕ «ОНЦЕНТРАЦНН СОЛН," PUT" СТЕПЕНЬ ДИССОЦИАЦИИ, PUT' ЧИСЛО ИЗМЕНЕНИЯ КОНЦЕНТРАЦИЙ.'

PUT/."ЗАПИШИТЕ УРАВНЕНИЕ ГИДРОЛИЗА ПО 1-Й СТУПЕНИ ",/ I=4\WWODC\OET С40 HHODD\OIT DC4 HHODXSNOIT D2 VmODN\OET H

PUT -L "ЖЕЛАЕТЕ ЛИ ПОВТОРИТЬ ИЛИ ИСПРАВИТЬ ВВОД'\DANET IF FR=1 THEN OOTO 1670\EHDI НТ»С\Р«Т 6 C40:F6.3 WTwD\FUT 5 DC4:F6.4 WYKKDSFUT 5 D2:E6.2 WYWHNPUT 5 N:12 IL=60\LINE

ГИДРОЛИЗА "\LINE

PUT -L 5~ : КОНЦЕНТРАЦИЯ : СТЕПЕНЬ РОН РАСТВОРА i'

PUT 5- PH РАСТВОРА:

PUT -L 5":СОЛН PUT 6"

C4=C40\FOR lil TO N STG=SeKT(lI-14/(D2*C4)) CG=BTG»C4

PG1=-(LOG(CG)]/(LOG(10.0)) P02=14-P01

PUT 5":".C4:F18.3.": " . STO: F14. В,'': ? 1 ,PG1 :F14 . з', " : ~ ,PQ2 :F14.3,

C4=C4*DC4

INDF

LINE

PUT 6 ////

PUT ////\OOTO 100

STOP

PROS DANIT

PUT -Ь-(ДА ИЛИ НЕТ)"\QET XXX:A:NN\XXX(0)=XXX(01.BIC.177600B IF ХХХ(И) = ШВ THEN FR=1\RITURN\INDI IF XXX(0)=156B THEN PR=U\RITURK\ENDI РиТ"ОШИБ>А"\ООТО 100104ENDF

504

505

11000 PROC WWODH

11010 POT -Ь'ВВЕДИТЕ МОЛЕК