ВУЗ:
Составители:
Рубрика:
271
583 print M$
584 F$=string$(70,”-”): print F$
585 for i=1 to N
586 print using “#####.##”;
X1(i),X2(i),X3(i),X4(i),Y(i),K(i)
587 next
588 print F$
589 print: print
590 print “Y=“ using “####.####”;A;:print “⋅X1+
(“using “####.####”;B;:print”)⋅X2+
(“using “####.####”;G;
:print”)⋅X3+(“using “####.####”;
D;: print”)⋅X4+(“using “####.####”;
K1;:print”)”
600 print “R= “ using “#.####”;R
610 end
1000 rem *****************************************
1050 rem*Подпрограмма обработки ошибок ввода***
rem* данных *********************************
1080 rem******************************************
1100 input “Какое значение не верно
(введите его номер)”;i
1200 Z5=Z5-Y(i)
1210 Z1=Z1-X1(i); Z2=Z2-X2(i); Z3=Z3-X3(i);
Z4=Z4-X4(i)
1250 print “Значение номер “,i
1260 input “Значение Y”; Y(i)
1270 Z5=Z5+Y(i)
1280 input “Значение Х1”; X1(i)
1290 Z1=Z1+X1(i)
1300 input “Значение Х2”; X2(i)
1310 Z2=Z2+X2(i)
1320 input “Значение Х3”; X3(i)
1330 Z3=Z3+X3(i)
272
1340 input “Значение Х4”; X4(i)
1350 Z4=Z4+X4(i)
1360 print “Будут ли меняться другие значения?”
1370 XC$=input$(1)
1380 if XC$=“Y” or XC$=“y” goto 1100
1390 if XC$=“N” or XC$=“n” then return else goto 1360
ОГЛАВЛЕНИЕ
Стр.
ПРЕДИСЛОВИЕ . . . . . . . . . . . . . . . . . . 3
I. КИСЛОТНО-ОСНОВНЫЕ РАВНОВЕСИЯ
I.1. Приготовление стандартных растворов . . . . . . . . . . . 4
I.1.1.Приготовление титрованного раствора
по точной навеске исходного вещества . . . . . . . . . . . . . . 4
I.1.2.Установка титра раствора при помощи
установочного вещества . . . . . . . . . . . . . . . . . . . . . . . . . . 5
I.1.3.Требования, предъявляемые к установочным
веществам . . . . . . . . . . . . . . . . . . . . . . . . . . 6
I.1.4.Установка титра раствора с помощью другого
титрованного раствора . . . . . . . . . . . . . . . . . . . . . . . . . 7
I.1.5.Правила, соблюдаемые при приготовлении
титрованных растворов и при определении
их титров . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
I.2. Приготовление 0.1н. раствора
хлористоводородной кислоты . . . . . . . . . . . . . . . 9
I.2.1.Установка титра 0.1н. раствора
хлористоводородной кислоты . . . . . . . . . . . . . . . 10
I.2.2.Установка титра 0.1н. раствора хлористо-
водородной кислоты по тетраборату натрия . . . . . . . . 11
271 272 583 print M$ 1340 input “Значение Х4”; X4(i) 584 F$=string$(70,”-”): print F$ 1350 Z4=Z4+X4(i) 585 for i=1 to N 1360 print “Будут ли меняться другие значения?” 586 print using “#####.##”; 1370 XC$=input$(1) X1(i),X2(i),X3(i),X4(i),Y(i),K(i) 1380 if XC$=“Y” or XC$=“y” goto 1100 587 next 1390 if XC$=“N” or XC$=“n” then return else goto 1360 588 print F$ 589 print: print 590 print “Y=“ using “####.####”;A;:print “⋅X1+ (“using “####.####”;B;:print”)⋅X2+ (“using “####.####”;G; :print”)⋅X3+(“using “####.####”; D;: print”)⋅X4+(“using “####.####”; ОГЛАВЛЕНИЕ K1;:print”)” Стр. 600 print “R= “ using “#.####”;R ПРЕДИСЛОВИЕ . . . . . . . . . . . . . . . . . . 3 610 end I. КИСЛОТНО-ОСНОВНЫЕ РАВНОВЕСИЯ 1000 rem ***************************************** I.1. Приготовление стандартных растворов . . . . . . . . . . . 4 1050 rem*Подпрограмма обработки ошибок ввода*** I.1.1.Приготовление титрованного раствора rem* данных ********************************* по точной навеске исходного вещества . . . . . . . . . . . . . . 4 1080 rem****************************************** I.1.2.Установка титра раствора при помощи 1100 input “Какое значение не верно установочного вещества . . . . . . . . . . . . . . . . . . . . . . . . . . 5 (введите его номер)”;i I.1.3.Требования, предъявляемые к установочным 1200 Z5=Z5-Y(i) веществам . . . . . . . . . . . . . . . . . . . . . . . . . . 6 1210 Z1=Z1-X1(i); Z2=Z2-X2(i); Z3=Z3-X3(i); I.1.4.Установка титра раствора с помощью другого Z4=Z4-X4(i) титрованного раствора . . . . . . . . . . . . . . . . . . . . . . . . . 7 1250 print “Значение номер “,i I.1.5.Правила, соблюдаемые при приготовлении 1260 input “Значение Y”; Y(i) титрованных растворов и при определении 1270 Z5=Z5+Y(i) их титров . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7 1280 input “Значение Х1”; X1(i) I.2. Приготовление 0.1н. раствора 1290 Z1=Z1+X1(i) хлористоводородной кислоты . . . . . . . . . . . . . . . 9 1300 input “Значение Х2”; X2(i) I.2.1.Установка титра 0.1н. раствора 1310 Z2=Z2+X2(i) хлористоводородной кислоты . . . . . . . . . . . . . . . 10 1320 input “Значение Х3”; X3(i) I.2.2.Установка титра 0.1н. раствора хлористо- 1330 Z3=Z3+X3(i) водородной кислоты по тетраборату натрия . . . . . . . . 11
Страницы
- « первая
- ‹ предыдущая
- …
- 134
- 135
- 136
- 137
- 138
- …
- следующая ›
- последняя »