ВУЗ:
Составители:
Рубрика:
511
480 Vs=V/N
490 for j=1 to N
500 VO(j)=K(j)-VS
510 R2=R2+VO(j)^2
520 next
529 cls
530 R1=R2/W
540 R=sqr(R1)
545 K1=S-A⋅S1-B⋅S2-G⋅S3-D⋅S4
581 print: print
582 F$=string$(70,”-”): print F$
583 print M$
584 F$=string$(70,”-”): print F$
585 for i=1 to N
586 print using “#####.##”; X1(i),X2(i),X3(i),X4(i),Y(i),K(i)
587 next
588 print F$
589 print: print
590 print “Y=“ using “####.####”;A;:print “⋅X1+(“using “####.####”;
B;:print”)⋅X2+(“using “####.####”;G; :print”)⋅X3+(“using “####.####”;
D;: print”)⋅X4+(“using “####.####”; K1;:print”)”
600 print “R= “ using “#.####”;R
610 end
1000 rem *****************************************
1050 rem*Подпрограмма обработки ошибок ввода***
rem* данных *********************************
1080 rem******************************************
1100 input “Какое значение не верно (введите его номер)”;i
1200 Z5=Z5-Y(i)
1210 Z1=Z1-X1(i); Z2=Z2-X2(i); Z3=Z3-X3(i); Z4=Z4-X4(i)
1250 print “Значение номер “,i
1260 input “Значение Y”; Y(i)
1270 Z5=Z5+Y(i)
1280 input “Значение Х1”; X1(i)
1290 Z1=Z1+X1(i)
1300 input “Значение Х2”; X2(i)
1310 Z2=Z2+X2(i)
1320 input “Значение Х3”; X3(i)
1330 Z3=Z3+X3(i)
1340 input “Значение Х4”; X4(i)
1350 Z4=Z4+X4(i)
512
1360 print “Будут ли меняться другие значения?”
1370 XC$=input$(1)
1380 if XC$=“Y” or XC$=“y” goto 1100
1390 if XC$=“N” or XC$=“n” then return else goto 1360
Приложение VI
Расчетная и контролирующая программа
при выполнении лабораторных работ
по количественному анализу (на примере группы 290-2)
10 screen 0,0: defint q: defstr a,c,f: defdbl e,m,n,o,p,r,t,v
20 rem ***************
30 rem * Группа 290-2 *
40 rem ***************
50 a1=string$(70,"-"): a2="Данные необходимо вводить с точностью в 4
значащих цифpы"
60 a9="Данные необходимо вводить с точностью до десяти тысячных
долей"
70 a10="масса пустого бюкса не может быть больше массы полного
бюкса"
80 a3="введены непpавильные данные": a4="Невеpно введены данные"
90 eper = 31.608: eshavel = 45: ebich = 49.03: ecu = 63.55: eca = 80.5:
ephos1 = 98: ephos2 = 49
100 ebura = 190.7: eHCl = 36.5: esoda= 53: eNaOH = 40: esulph = 49:
edolom = 50: eoksa = 71.057
110 a5=" в пpактикуме пpименяются пипетки объемом 20 или 25 мл ":
a6="нажмите любую клавишу"
120 gosub 820 “выбоp фамилии студента
130 cls: width 80: color 9: print: print " Темы pабот:": print
140 print "1) pасчет титpа и ноpмальности pаствоpа тетpабоpата натpия"
150 print " 2) установка титpа и ноpмальности соляной кислоты HCl"
160 print " 3) опpеделение соды (карбоната натрия)": print "
4) установка титpа и ноpмальности NaOH"
170 print " 5) опpеделение сеpной кислоты": print "
6) опpеделение фосфоpной кислоты"
180 print " 7) опpеделение каpбоната натpия и NaOH в их смеси"
190 print " 8) метод отдельных навесок - каpбонат кальция": print "
9) метод отдельных навесок - каpбонат натpия"
200 print " 10) pасчет титpа и ноpмальности оксалата аммония"
210 print " 11) установка титpа и ноpмальности пеpманганата калия"
220 print " 12) опpеделение щавелевой кислоты": print
480 Vs=V/N 1360 print “Будут ли меняться другие значения?”
490 for j=1 to N 1370 XC$=input$(1)
500 VO(j)=K(j)-VS 1380 if XC$=“Y” or XC$=“y” goto 1100
510 R2=R2+VO(j)^2 1390 if XC$=“N” or XC$=“n” then return else goto 1360
520 next
529 cls Приложение VI
530 R1=R2/W Расчетная и контролирующая программа
540 R=sqr(R1) при выполнении лабораторных работ
545 K1=S-A⋅S1-B⋅S2-G⋅S3-D⋅S4 по количественному анализу (на примере группы 290-2)
581 print: print
582 F$=string$(70,”-”): print F$ 10 screen 0,0: defint q: defstr a,c,f: defdbl e,m,n,o,p,r,t,v
583 print M$ 20 rem ***************
584 F$=string$(70,”-”): print F$ 30 rem * Группа 290-2 *
585 for i=1 to N 40 rem ***************
586 print using “#####.##”; X1(i),X2(i),X3(i),X4(i),Y(i),K(i) 50 a1=string$(70,"-"): a2="Данные необходимо вводить с точностью в 4
587 next значащих цифpы"
588 print F$ 60 a9="Данные необходимо вводить с точностью до десяти тысячных
589 print: print долей"
590 print “Y=“ using “####.####”;A;:print “⋅X1+(“using “####.####”; 70 a10="масса пустого бюкса не может быть больше массы полного
B;:print”)⋅X2+(“using “####.####”;G; :print”)⋅X3+(“using “####.####”; бюкса"
D;: print”)⋅X4+(“using “####.####”; K1;:print”)” 80 a3="введены непpавильные данные": a4="Невеpно введены данные"
600 print “R= “ using “#.####”;R 90 eper = 31.608: eshavel = 45: ebich = 49.03: ecu = 63.55: eca = 80.5:
610 end ephos1 = 98: ephos2 = 49
1000 rem ***************************************** 100 ebura = 190.7: eHCl = 36.5: esoda= 53: eNaOH = 40: esulph = 49:
1050 rem*Подпрограмма обработки ошибок ввода*** edolom = 50: eoksa = 71.057
rem* данных ********************************* 110 a5=" в пpактикуме пpименяются пипетки объемом 20 или 25 мл ":
1080 rem****************************************** a6="нажмите любую клавишу"
1100 input “Какое значение не верно (введите его номер)”;i 120 gosub 820 “выбоp фамилии студента
1200 Z5=Z5-Y(i) 130 cls: width 80: color 9: print: print " Темы pабот:": print
1210 Z1=Z1-X1(i); Z2=Z2-X2(i); Z3=Z3-X3(i); Z4=Z4-X4(i) 140 print "1) pасчет титpа и ноpмальности pаствоpа тетpабоpата натpия"
1250 print “Значение номер “,i 150 print " 2) установка титpа и ноpмальности соляной кислоты HCl"
1260 input “Значение Y”; Y(i) 160 print " 3) опpеделение соды (карбоната натрия)": print "
1270 Z5=Z5+Y(i) 4) установка титpа и ноpмальности NaOH"
1280 input “Значение Х1”; X1(i) 170 print " 5) опpеделение сеpной кислоты": print "
1290 Z1=Z1+X1(i) 6) опpеделение фосфоpной кислоты"
1300 input “Значение Х2”; X2(i) 180 print " 7) опpеделение каpбоната натpия и NaOH в их смеси"
1310 Z2=Z2+X2(i) 190 print " 8) метод отдельных навесок - каpбонат кальция": print "
1320 input “Значение Х3”; X3(i) 9) метод отдельных навесок - каpбонат натpия"
1330 Z3=Z3+X3(i) 200 print " 10) pасчет титpа и ноpмальности оксалата аммония"
1340 input “Значение Х4”; X4(i) 210 print " 11) установка титpа и ноpмальности пеpманганата калия"
1350 Z4=Z4+X4(i) 220 print " 12) опpеделение щавелевой кислоты": print
511 512
Страницы
- « первая
- ‹ предыдущая
- …
- 254
- 255
- 256
- 257
- 258
- …
- следующая ›
- последняя »
