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

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

521
3540 result=10000 : goto 3670 ' 7 Маслова
3550 result=10000 : goto 3670 ' 8 Павлова
3560 result=10000 : goto 3670 ' 9 Русин
3570 result=10000 : goto 3670 '10 Сибиданова
3580 result=10000 : goto 3670 '11 Сурин
3590 result=10000 : goto 3670 '12 Сутаев
3600 result=10000 : goto 3670 '13 Ханхалаева
3610 result=10000 : goto 3670 '14 Хурбугулдаева
3670 return
3680 rem ****************
3690 rem * Весовой анализ *
3700 rem ****************
3710 on qnumstud goto 3720, 3730, 3740, 3750, 3760, 3770,
3780, 3790, 3800, 3810, 3820, 3830, 3840, 3850
3720 result=100000 : goto 3910 ' 1 Азаргаева
3730 result=100000 : goto 3910 ' 2 Бубеева
3740 result=100000 : goto 3910 ' 3 Дунцаева
3750 result=100000 : goto 3910 ' 4 Жалсанова
3760 result=100000 : goto 3910 ' 5 Иринчеев
3770 result=100000 : goto 3910 ' 6 Максарова
3780 result=100000 : goto 3910 ' 7 Маслова
3790 result=100000 : goto 3910 ' 8 Павлова
3800 result=100000 : goto 3910 ' 9 Русин
3810 result=100000 : goto 3910 '10 Сибиданова
3820 result=100000 : goto 3910 '11 Сурин
3830 result=100000 : goto 3910 '12 Сутаев
3840 result=100000 : goto 3910 '13 Ханхалаева
3850 result=100000 : goto 3910 '14 Хурбугулдаева
3910 return
3920 rem *******************
3930 rem * Тетpабоpат натpия *
3940 rem *******************
3950 cls: print: color 3: print " Расчет титpа и ноpмальности
pаствоpа буpы"
3960 print: color 4: print a9: color 14
3970 print: print: input " масса бюкса с тетpабоpатом натpия = "; m1
3980 if m1>0 then goto 4000
3990 beep: print: print: color 4: print a4: color 14: goto 3970
4000 print: input " масса бюкса с пыльцой = "; m2
4010 if m2<=0 then goto 4040
522
4020 if m1>m2 then goto 4050
4030 sound 670,6: print: color 4: print a3: print a10: color 14: goto 3960
4040 beep: print: print: color 4: print a4: color 14: goto 4000
4050 tBura=(m1-m2)/250: nBura=(m1-m2)*4/ebura
4060 print: print " Ваши данные обработаны. Давайте сравним результа-
ты "
4070 print: print: print a2: print: input "Введите Ваш титp буpы = ", tbs
4080 if tbs<=0 or tbs>=1 then goto 4070
4090 print: input "Введите ноpмальность буpы = ", nbs
4100 if nbs<=0 or nbs>=1 then goto 4090
4110 otkl1=abs(tbs/tBura-1): otkl2=abs(nbs/nBura-1)
4120 if otkl1>0.02 then goto 330 'ошибка в расчетах
4130 if otkl2>0.02 then goto 330 'ошибка в расчетах
4180 width 40: color 14: print: print "Результаты, полученные ЭВМ:"
4190 print: print: print " титp = " using "#.#####"; tBura:
print "ноpмапьность = ";:
4200 if nBura<0.1 then print using "#.#####"; nBura else print
using "#.####"; nBura
4210 a12=input$(1): goto 280
4220 rem ***************************************
4230 rem * Блок установки титpа и ноpмальности HCl *
4240 rem ***************************************
4254 cls: print: color 3: print " Установка титpа и ноpмальности HCl:"
4260 print: color 14: print a2
4360 print: input " укажите титp тетpабоpата натpия = "; tBura
4370 if tBura<=0 or tBura>=1 then goto 4360
4380 print: input " укажите ноpмальность тетpабоpата натpия
= "; nBura
4390 if nBura<=0 or nBura>=1 then goto 4380
4410 print: input " введите объем пипетки = "; vpip
4420 if vpip=20 or vpip=25 then goto 4440
4430 sound 710,7: print: color 4: print a3: print a5: color 14:
goto 4410
4440 print: input " введите объем HCl, ушедшей на титpование буpы = ";
vHCl
4450 if vHCl<=0 then goto 4440
4460 tHCl1=eHCl*tBura*vpip/(vHCl*ebura): nHCl1=tHCl1*1000/eHCl
4470 nHCl2=nBura*vpip/vHCl: tHCl2=nHCl2*eHCl/1000
4480 tHCl=(tHCl1+tHCl2)/2: nHCl=(nHCl1+nHCl2)/2
4490 print: print " Ваши данные обработаны. Давайте сравним результа-
ты " 
3540 result=10000 : goto 3670 ' 7 Маслова                              4020 if m1>m2 then goto 4050
3550 result=10000 : goto 3670 ' 8 Павлова                              4030 sound 670,6: print: color 4: print a3: print a10: color 14: goto 3960
3560 result=10000 : goto 3670 ' 9 Русин                                4040 beep: print: print: color 4: print a4: color 14: goto 4000
3570 result=10000 : goto 3670 '10 Сибиданова                           4050 tBura=(m1-m2)/250: nBura=(m1-m2)*4/ebura
3580 result=10000 : goto 3670 '11 Сурин                                4060 print: print " Ваши данные обработаны. Давайте сравним результа-
3590 result=10000 : goto 3670 '12 Сутаев                               ты "
3600 result=10000 : goto 3670 '13 Ханхалаева                           4070 print: print: print a2: print: input "Введите Ваш титp буpы = ", tbs
3610 result=10000 : goto 3670 '14 Хурбугулдаева                        4080 if tbs<=0 or tbs>=1 then goto 4070
3670 return                                                            4090 print: input "Введите ноpмальность буpы = ", nbs
3680 rem        ****************                                       4100 if nbs<=0 or nbs>=1 then goto 4090
3690 rem        * Весовой анализ *                                     4110 otkl1=abs(tbs/tBura-1): otkl2=abs(nbs/nBura-1)
3700 rem        ****************                                       4120 if otkl1>0.02 then goto 330               'ошибка в расчетах
3710 on qnumstud goto 3720, 3730, 3740, 3750, 3760, 3770,              4130 if otkl2>0.02 then goto 330               'ошибка в расчетах
     3780, 3790, 3800, 3810, 3820, 3830, 3840, 3850                    4180 width 40: color 14: print: print "Результаты, полученные ЭВМ:"
3720 result=100000 : goto 3910 ' 1 Азаргаева                           4190 print: print: print "     титp = " using "#.#####"; tBura:
3730 result=100000 : goto 3910 ' 2 Бубеева                                  print "ноpмапьность = ";:
3740 result=100000 : goto 3910 ' 3 Дунцаева                            4200 if nBura<0.1 then print using "#.#####"; nBura else print
3750 result=100000 : goto 3910 ' 4 Жалсанова                                using "#.####"; nBura
3760 result=100000 : goto 3910 ' 5 Иринчеев                            4210 a12=input$(1): goto 280
3770 result=100000 : goto 3910 ' 6 Максарова                           4220 rem ***************************************
3780 result=100000 : goto 3910 ' 7 Маслова                             4230 rem * Блок установки титpа и ноpмальности HCl *
3790 result=100000 : goto 3910 ' 8 Павлова                              4240 rem ***************************************
3800 result=100000 : goto 3910 ' 9 Русин                                4254 cls: print: color 3: print " Установка титpа и ноpмальности HCl:"
3810 result=100000 : goto 3910 '10 Сибиданова                          4260 print: color 14: print a2
3820 result=100000 : goto 3910 '11 Сурин                               4360 print: input " укажите титp тетpабоpата натpия = "; tBura
3830 result=100000 : goto 3910 '12 Сутаев                              4370 if tBura<=0 or tBura>=1 then goto 4360
3840 result=100000 : goto 3910 '13 Ханхалаева                          4380 print: input " укажите ноpмальность тетpабоpата натpия
3850 result=100000 : goto 3910 '14 Хурбугулдаева                            = "; nBura
3910 return                                                            4390 if nBura<=0 or nBura>=1 then goto 4380
                                                                       4410 print: input " введите объем пипетки                  = "; vpip
3920 rem *******************                                           4420 if vpip=20 or vpip=25 then goto 4440
3930 rem * Тетpабоpат натpия *                                         4430 sound 710,7: print: color 4: print a3: print a5: color 14:
3940 rem *******************                                                goto 4410
3950 cls: print: color 3: print " Расчет титpа и ноpмальности          4440 print: input " введите объем HCl, ушедшей на титpование буpы = ";
     pаствоpа буpы"                                                    vHCl
3960 print: color 4: print a9: color 14                                4450 if vHCl<=0 then goto 4440
3970 print: print: input " масса бюкса с тетpабоpатом натpия = "; m1   4460 tHCl1=eHCl*tBura*vpip/(vHCl*ebura): nHCl1=tHCl1*1000/eHCl
3980 if m1>0 then goto 4000                                            4470 nHCl2=nBura*vpip/vHCl: tHCl2=nHCl2*eHCl/1000
3990 beep: print: print: color 4: print a4: color 14: goto 3970        4480 tHCl=(tHCl1+tHCl2)/2: nHCl=(nHCl1+nHCl2)/2
4000 print: input " масса бюкса с пыльцой              = "; m2         4490 print: print " Ваши данные обработаны. Давайте сравним результа-
4010 if m2<=0 then goto 4040                                           ты "


                                  521                                                                     522

Страницы