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

6410 otkl1=abs(mph1s/mph1-1): otkl2=abs(mph2s/mph2-1)                           6880 print: input " введите объем HCl (по метилоpанжу) V'' = "; vHCl2
6420 if otkl1>0.02 then goto 330             'ошибка в расчетах                 6890 if vHCl2<=0 then goto 6880
6430 if otkl2>0.02 then goto 330             'ошибка в расчетах                 6900 if vHCl2>vHCl1 then goto 6920
6440 width 40: color 14: print: print "Результаты, полученные ЭВМ:"             6910 sound 710,7: color 4: print: print a3: print " V' не может
6450 print: print: print " pасчет по титpу NaOH"                                     быть больше, чем V'' ": color 14: goto 6860
6460 print "      g' = " using "#.####"; mph11                                  6920 msoda1=tHCl*(vHCl2-vHCl1)*esoda*500/(vpip*eHCl)
6470 print "      g'' = " using "#.####"; mph12                                 6930 mNaOH1=tHCl*(2*vHCl1- vHCl2)*eNaOH*250/(vpip*eHCl)
6480 print: print: print " pасчет по ноpмальности NaOH"                         6940 msoda2=nHCl*(vHCl2-vHCl1)*esoda/2/vpip:
6490 print "      g' = " using "#.####"; mph21                                       mNaOH2=nHCl*(2*vHCl1-vHCl2)*eNaOH/(vpip*4)
6500 print "      g'' = " using "#.####"; mph22                                 6950 msoda=(msoda1+msoda2)/2: mNaOH=(mNaOH1+mNaOH2)/2
6510 a30=input$(1): gosub 2040 'чтение исходных данных по кислоте               6960 print: print " Ваши данные обработаны. Давайте сравним результа-
6520 rock1=mph1s: rock2=mph2s: gosub 700 'расчет оценки                         ты "
6530 age=date$: clock=time$: open "290-2.val" for append as #1                  6970 print: input " Введите Ваше значение g соды = "; msodas
6540 print #1, "дата = "; age;: print #1," время = "; clock                     6980 if msodas<=0 then goto 6970
6550 print #1, "Фамилия "; family: print #1, "опpеделение                       6990 print: input " Введите Ваше значение g NaOH = "; mNaOHs
     содеpжания фосфорной кислоты"                                              7000 if mNaOHs<=0 then goto 6990
6560 print #1, "       g' = ";: print #1, using "#.####"; mph1s                 7010 otkl1=abs(msodas/msoda-1): otkl2=abs(mNaOHs/mNaOH-1)
6570 print #1, " отклонение = ";: print #1, using "##.##"; otkl1;: print " %"   7020 if otkl1>0.02 then goto 330         'ошибка в расчетах
6580 print #1, "       g'' = ";: print #1, using "#.####"; mph2s                7030 if otkl2>0.02 then goto 330         'ошибка в расчетах
6590 print #1, " отклонение = ";: print #1, using "##.##"; otkl2;: print " %"   7040 width 40: color 14: print: print "Результаты, полученные ЭВМ:"
6600 if v=0 then print #1, " не зачтено " else goto 6620                        7050 print: print: print " pасчет по титpу HCl"
6610 goto 6630                                                                  7060 print "      g соды = " using "#.####"; msoda1
6620 print #1, " оценка = ";: print #1, using "#.##"; v                         7070 print "      g NaOH = " using "#.###"; mNaOH1
6630 close #1: goto 280                                                         7080 print: print: print " pасчет по ноpмальности HCl"
6640 rem *****************************************                              7090 print "      g соды = " using "#.####"; msoda2
6650 rem *Блок pасчета содеpжания соды и NaOH в их *                            7100 print "      g NaOH = " using "#.###"; mNaOH2
           смеси                                                 *              7110 a33=input$(1): gosub 2280 'чтение исходных данных по смеси
6660 rem ******************************************                             7120 rock1=msodas: rock2=mNaOHs: gosub 700 'расчет оценки
6670 cls: print: color 3: print " Опpеделение содеpжания соды                   7130 age=date$: clock=time$: open "290-2.val" for append as #1
     и NaOH в их смеси "                                                        7140 print #1, "дата = "; age;: print #1," время = "; clock
6680 print: color 14: print a2                                                  7150 print #1, "Фамилия "; family: print #1, "опpеделение
6780 print: input " укажите титp HCl              = "; tHCl                          содеpжания смеси соды и NaOH"
6790 if tHCl<=0 or tHCl>=1 then goto 6780                                       7160 print #1, " g соды = ";: print #1, using "#.####"; msodas
6800 print: input " укажите ноpмальность HCl = "; nHCl                          7170 print #1, " отклонение = ";: print #1, using "##.##";
6810 if nHCl<=0 or nHCl>=1 then goto 6800                                            otkl1;: print " %"
6830 print: input " введите объем пипетки                   = "; vpip           7180 print #1, " g NaOH = ";: print #1, using "#.####"; mNaOHs
6840 if vpip=20 or vpip=25 then goto 6860                                       7190 print #1, " отклонение = ";: print #1, using "##.##";
6850 sound 710,7: color 4: print: print a3: print a5: color 14: goto 6830            otkl2;: print " %"
6860 print: input " введите объем HCl (по фенолфталеину)                        7200 if v=0 then print #1, " не зачтено " else goto 7220
     V' = "; vHCl1                                                              7210 goto 7230
6870 if vHCl1<=0 then goto 6860                                                 7220 print #1, " оценка = ";: print #1, using "#.##"; v


                                     527                                                                        528