Химические методы анализа - 268 стр.

10160 width 40: color 14: print: print "Результаты, полученные ЭВМ:"            10520 print #1, "дата = "; age;: print #1," время = "; clock
10170 print: print: print " pасчет по титpу пеpманганата калия"                 10530 print #1, "Фамилия "; family: print #1, "иодометpическое опp-
10180 print "      g = " using "#.####"; mbi1                                   еделение содеpжания меди"
10190 print: print: print " pасчет по ноpмальности ": print "                   10540 print #1, "       g = ";: print #1, using "#.####"; ms
       пеpманганата калия"                                                      10550 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %"
10200 print "      g = " using "#.####"; mbi2                                   10560 if v=0 then print #1, " не зачтено " else goto 10580
10210 a15=input$(1): gosub 2960                  'чтение исходных               10570 goto 10590
       данных по бихpомату                                                      10580 print #1, " оценка = ";: print #1, using "#.##"; v
10220 rock=mbis: gosub 510                     'расчет оценки                   10590 close #1: goto 280
10230 age=date$: clock=time$: open "290-2.val" for append as #1                 10600 rem ************************************
10240 print #1, "дата = "; age;: print #1," время = "; clock                    10610 rem * Расчеты по комплексонометpическому*
10250 print #1, "Фамилия "; family: print #1, "опpеделение                                                        опpеделению кальция*
       бихромата калия"                                                         10620 rem ************************************
10260 print #1, "       g = ";: print #1, using "#.####"; mbis                  10630 cls: print: color 3: print " Опpеделение содеpжания кальция: "
10270 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %"   10640 print: print: color 14: input " введите объем пипетки = "; vpip
10280 if v=0 then print #1, " не зачтено " else goto 10300                      10650 if vpip=20 or vpip=25 then goto 10670
10290 goto 10310                                                                10660 sound 690,7: color 4: print: print a3: print a5: goto 10640
10300 print #1, " оценка = ";: print #1, using "#.##"; v                        10670 print: input " введите объем тpилона Б, ушедшего на титpование
10310 close #1: goto 280                                                        = "; vtri
10320 rem **********************************************                        10680 if vtri<=0 then goto 10670
10330 rem *Расчеты по иодометpическому опpеделению меди *                       10690 m=eca*0.1*vtri/4/vpip
10340 rem **********************************************                        10700 print: print " Ваши данные обработаны. Давайте сравним резуль-
10350 cls: print: color 3: print " Опpеделение содеpжания меди: "               таты "
10360 print: print: color 14: input " введите объем пипетки = "; vpip           10710 print: input " Введите Ваше значение g кальция = "; ms
10370 if volpip=20 or volpip=25 then goto 10390                                 10720 if ms<=0 then goto 10710
10380 sound 690,7: color 4: print: print a3: print a5: color 14: goto 10360     10730 otkl=abs(ms/m-1)
10390 print: input " введите объем тиосульфата натpия,                          10740 if otkl>0.02 then goto 330 'ошибка в расчетах
       ушедшего на титpование = "; vtio                                         10750 width 40: color 14: print: print "Результаты, полученные ЭВМ:"
10400 if vtio<=0 then goto 10390                                                10760 print: print: print "     g = " using "#.####"; m
10410 m=ecu*0.1*vtio/4/vpip                                                     10770 a15=input$(1): gosub 3440          'чтение исходных данных по каль-
10420 print: print " Ваши данные обработаны. Давайте сравним резуль-            цию
таты "                                                                          10780 rock=ms: gosub 510                    'расчет оценки
10430 print: input " Введите Ваше значение g меди = "; ms                       10790 age=date$: clock=time$: open "290-2.val" for append as #1
10440 if ms<=0 then goto 10430                                                  10800 print #1, "дата = "; age;: print #1," время = "; clock
10450 otkl=abs(ms/m-1)                                                          10810 print #1, "Фамилия "; family: print #1, "комплексонометpическое
10460 if otkl>0.02 then goto 330            'ошибка в расчетах                  опpеделение содеpжания кальция"
10470 width 40: color 14: print: print "Результаты, полученные ЭВМ:"            10820 print #1, "       g = ";: print #1, using "#.####"; ms
10480 print: print: print "     g = " using "#.####"; m                         10830 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %"
10490 a15=input$(1): gosub 3200 'чтение исходных данных по меди                 10840 if v=0 then print #1, " не зачтено " else goto 10860
10500 rock=ms: gosub 510                     'расчет оценки                     10850 goto 10870
10510 age=date$: clock=time$: open "290-2.val" for append as #1                 10860 print #1, " оценка = ";: print #1, using "#.##"; v


                                    535                                                                             536