ВУЗ:
Составители:
Рубрика:
537
10870 close #1: goto 280
10880 rem *************************************
10890 rem * Гpавиметpическое опpеделение железа *
10900 rem *************************************
10910 cls: print: color 3: print " Опpеделение содеpжания железа: "
10920 print: print: color 14: print a9
10930 print: input " масса пустого тигля = "; m1
10940 if m1<=0 then goto 10930
10950 print: input " масса тигля с осадком = "; m2
10960 if m2<=0 then goto 10950
10970 if m2>m1 then goto 11000
10980 sound 650,7: color 4: print: print a3
10990 print " масса пустого тигля не может быть больше
массы тигля с осадком": color 14: goto 10930
11000 m=(m2-m1)*0.6994
11010 print: print " Ваши данные обработаны. Давайте сравним резуль-
таты "
11020 print: input " Введите Ваше значение g железа = "; ms
11030 if ms<=0 then goto 11020
11040 otkl=abs(ms/m-1)
11050 if otkl>0.02 then goto 330 'ошибка в расчетах
11060 width 40: color 14: print: print "Результаты, полученные ЭВМ:"
11070 print: print: print " g = " using "#.#####"; m
11080 a15=input$(1): gosub 3680 'чтение исходных данных по железу
11090 rock=ms: gosub 510 'расчет оценки
11100 age=date$: clock=time$: open "290-2.val" for append as #1
11110 print #1, "дата = "; age;: print #1," время = "; clock
11120 print #1, "Фамилия "; family: print #1, "весовое
опpеделение железа"
11130 print #1, " g = ";: print #1, using "#.####"; ms
11140 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %"
11150 if v=0 then print #1, " не зачтено " else goto 11170
11160 goto 11180
11170 print #1, " оценка = ";: print #1, using "#.##"; v
11180 close #1: goto 280
538
ОГЛАВЛЕНИЕ
ПРЕДИСЛОВИЕ . . . . . . . . . . . . . . . . . . . . . . . . . . 3
ТЕОРИЯ ХИМИЧЕСКИХ МЕТОДОВ АНАЛИЗА . . . . . . . 4
I. ОБЩИЕ ВОПРОСЫ ТЕОРИИ . . . . . . . . . . . . . . . . . . 4
I.1. Взаимодействие растворенное вещество – растворитель . . 4
I.1.1. Некоторые сведения о растворителях . . . . . . . . . . . . 4
I.1.2. Классификация растворителей по характеру участия
в протонно-донорно-акцепторном взаимодействии . . . . . . . . 5
I.1.3. Классификация растворителей по характеру их нивели-
рующе- дифференцирующего действия на силу электролитов . . 8
I.1.4. Важнейшие свойства растворителей . . . . . . . . . . . . . 14
I.1.4.1. Характеристика кислотно-основных
10870 close #1: goto 280 10880 rem ************************************* 10890 rem * Гpавиметpическое опpеделение железа * 10900 rem ************************************* 10910 cls: print: color 3: print " Опpеделение содеpжания железа: " 10920 print: print: color 14: print a9 10930 print: input " масса пустого тигля = "; m1 10940 if m1<=0 then goto 10930 10950 print: input " масса тигля с осадком = "; m2 10960 if m2<=0 then goto 10950 10970 if m2>m1 then goto 11000 10980 sound 650,7: color 4: print: print a3 10990 print " масса пустого тигля не может быть больше массы тигля с осадком": color 14: goto 10930 11000 m=(m2-m1)*0.6994 11010 print: print " Ваши данные обработаны. Давайте сравним резуль- таты " 11020 print: input " Введите Ваше значение g железа = "; ms 11030 if ms<=0 then goto 11020 11040 otkl=abs(ms/m-1) 11050 if otkl>0.02 then goto 330 'ошибка в расчетах 11060 width 40: color 14: print: print "Результаты, полученные ЭВМ:" 11070 print: print: print " g = " using "#.#####"; m 11080 a15=input$(1): gosub 3680 'чтение исходных данных по железу 11090 rock=ms: gosub 510 'расчет оценки 11100 age=date$: clock=time$: open "290-2.val" for append as #1 11110 print #1, "дата = "; age;: print #1," время = "; clock 11120 print #1, "Фамилия "; family: print #1, "весовое опpеделение железа" ОГЛАВЛЕНИЕ 11130 print #1, " g = ";: print #1, using "#.####"; ms 11140 print #1, " отклонение = ";: print #1, using "##.##"; otkl;: print " %" ПРЕДИСЛОВИЕ . . . . . . . . . . . . . . . . . . . . . . . . . . 3 11150 if v=0 then print #1, " не зачтено " else goto 11170 ТЕОРИЯ ХИМИЧЕСКИХ МЕТОДОВ АНАЛИЗА . . . . . . . 4 11160 goto 11180 I. ОБЩИЕ ВОПРОСЫ ТЕОРИИ . . . . . . . . . . . . . . . . . . 4 11170 print #1, " оценка = ";: print #1, using "#.##"; v I.1. Взаимодействие растворенное вещество – растворитель . . 4 11180 close #1: goto 280 I.1.1. Некоторые сведения о растворителях . . . . . . . . . . . . 4 I.1.2. Классификация растворителей по характеру участия в протонно-донорно-акцепторном взаимодействии . . . . . . . . 5 I.1.3. Классификация растворителей по характеру их нивели- рующе- дифференцирующего действия на силу электролитов . . 8 I.1.4. Важнейшие свойства растворителей . . . . . . . . . . . . . 14 I.1.4.1. Характеристика кислотно-основных 537 538
Страницы
- « первая
- ‹ предыдущая
- …
- 267
- 268
- 269
- 270
- 271
- …
- следующая ›
- последняя »