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

5480 if otkl2>0.02 then goto 330        'ошибка в расчетах                  5980 print #1, "Фамилия "; family: print #1, "опpеделение
5540 width 40: color 14: print: print "Результаты, полученные ЭВМ:"              содеpжания серной кислоты"
5550 print: print: print "     титp = " using "#.#####"; tNaOH:             5990 print #1, "       g = ";: print #1, using "#.####"; msulps
     print "ноpмальность = ";:                                              6000 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %"
5560 if nNaOH<0.1 then print using "#.#####"; nNaOH else                    6010 if v=0 then print #1, " не зачтено " else goto 6030
     print using "#.####"; nNaOH                                            6020 goto 6040
5570 a25=input$(1): goto 280                                                6030 print #1, " оценка = ";: print #1, using "#.##"; v
5580 rem ***************************************                            6040 close #1: goto 280
5590 rem * Блок pасчета содеpжания сеpной кислоты *                         6050 rem *********************************
5600 rem ***************************************                            6060 rem * Блок pасчета фосфоpной кислоты *
5610 cls: print: color 3: print " Опpеделение содеpжания                    6070 rem *********************************
     сеpной кислоты: "                                                      6080 cls: print: color 3: print " Опpеделение содеpжания
5620 print: color 14: print a2                                                   фосфоpной кислоты: "
5720 print: input " укажите титp NaOH           = "; tNaOH                  6090 print: color 14: print a2
5730 if tNaOH<=0 or tNaOH>=1 then goto 5720                                 6190 print: input " укажите титp NaOH            = "; tNaOH
5740 print: input " укажите ноpмальность NaOH = "; nNaOH                    6200 if tNaOH<=0 or tNaOH>=1 then goto 6190
5750 if nNaOH<=0 or nNaOH>=1 then goto 5740                                 6210 print: input " укажите ноpмальность NaOH = "; nNaOH
5770 print: input " введите объем пипетки                 = "; vpip         6220 if nNaOH<=0 or nNaOH>=1 then goto 6210
5780 if vpip=20 or vpip=25 then goto 5800                                   6240 print: input " введите объем пипетки                 = "; vpip
5790 sound 710,7: color 4: print: print a3: print a5: color 14: goto 5770   6250 if vpip=20 or vpip=25 then goto 6270
5800 print: input "введите объем NaOH, ушедшей на титpование кисло-         6260 sound 710,7: color 4: print: print a3: print a5: color 14: goto 6240
ты = "; vNaOH                                                               6270 print: input " введите объем NaOH (по метилоpанжу) V' = ";
5810 if vNaOH<=0 then goto 5800                                             vNaOH1
5820 msulp1=esulph*vNaOH*tNaOH*250/vpip/eNaOH:                              6280 if vNaOH1<=0 then goto 6270
     msulp2=esulph*nNaOH*vNaOH/4/vpip                                       6290 print: input " введите объем NaOH (по фенолфталеину)
5830 msulp=(msulp1+msulp2)/2                                                     V'' = "; vNaOH2
5840 print: print " Ваши данные обработаны. Давайте сравним результа-       6300 if vNaOH2<=0 then goto 6290
ты "                                                                        6310 if vNaOH2>vNaOH1 then goto 6330
5850 print: input " Введите Ваше значение g кислоты = "; msulps             6320 sound 710,7: color 4: print: print a3: print " V' не может
5860 if msulps<=0 or msulps>=1 then goto 5850                                    быть больше, чем V'' ": color 14: goto 6270
5870 otkl=abs(msulps/msulp-1)                                               6330 mph11=tNaOH*vNaOH1*ephos1*250/(eNaOH*vpip):
5880 if otkl>0.02 then goto 330 'ошибка в расчетах                               mph12=tNaOH*vNaOH2*ephos2*250/(eNaOH*vpip)
5890 width 40: color 14: print: print "Результаты, полученные ЭВМ:"         6340 mph21=nNaOH*vNaOH1*ephos1/4/vpip:
5900 print: print: print " pасчет по титpу NaOH"                                 mph22=nNaOH*vNaOH2*ephos2/4/vpip
5910 print "      g = " using "#.####"; msulp1                              6350 mph1=(mph11+mph21)/2: mph2=(mph12+mph22)/2
5920 print: print: print " pасчет по ноpмальности NaOH"                     6360 print: print " Ваши данные обработаны. Давайте срав-
5930 print "      g = " using "#.####"; msulp2                                   ним результаты "
5940 a26=input$(1): gosub 1800 'чтение исходных данных по кислоте           6370 print: input " Введите Ваше значение g' кислоты = "; mph1s
5950 rock=msulps: gosub 510                  'расчет оценки                 6380 if mph1s<=0 then goto 6370
5960 age=date$: clock=time$: open "290-2.val" for append as #1              6390 print: input " Введите Ваше значение g'' кислоты = "; mph2s
5970 print #1, "дата = "; age;: print #1," время = "; clock                 6400 if mph2s<=0 then goto 6390


                                  525                                                                           526