Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Блок-схема алгоритма обработки экспериментальных данных⇐ ПредыдущаяСтр 13 из 13
Проверку правильности произведенных расчетов по экспериментальным данным студенты проводят на ЭВМ. Программа обработки составлена на языке Borland Delphi. Для запуска программы студенту необходимо ввести свои опытные данные. Программа написана с выводом всех расчетных данных на дисплей и принтер.
Программа компьютерного расчета unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, TeEngine, Series, TeeProcs, Chart, DBChart, StdCtrls, Buttons; type TForm1 = class(TForm) DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Table1Nopita: TAutoIncField; Table1H2SO4: TIntegerField; Table1NA2S2O3: TIntegerField; Table1H20: TIntegerField; Table1OTNKONC: TIntegerField; Table1VREM: TIntegerField; Table1OTNSKOR: TStringField; Table1Ckor: TFloatField; DBChart1: TDBChart; Series1: TFastLineSeries; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; procedure Table1CalcFields(DataSet: TDataSet); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3, Unit4; {$R *.DFM} procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin if table1vrem.asinteger<>0 then table1ckor.asfloat:=1/table1vrem.asinteger; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin DBNavigator1.Visible:=true; BitBtn2.Visible:=true; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin DBNavigator1.Visible:=false; BitBtn2.Visible:=false; end; procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; procedure TForm1.Button3Click(Sender: TObject); begin QRListForm.QuickRep1.Preview; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, TeeProcs, TeEngine, Chart;
type TForm2 = class(TForm) DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Table1Nopita: TAutoIncField; Table1Tepper: TIntegerField; Table1Vrem: TIntegerField; Table1skor: TFloatField; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button2: TButton; Button3: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button4: TButton; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Table1CalcFields(DataSet: TDataSet); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; i:integer; a1,a2,a3:real; implementation
uses Unit1, Unit4; {$R *.DFM} procedure TForm2.Button3Click(Sender: TObject); begin form2.Close; form1.Close; end; procedure TForm2.Button1Click(Sender: TObject); begin table1.first; for i:=1 to 3 do begin case i of 1: a1:=table1skor.asfloat; 2: a2:=table1skor.asfloat; 3: a3:=table1skor.asfloat; end; table1.Next; end; edit1.Text:=floattostr(a1/a1); edit2.Text:=floattostr(a2/a1); edit3.Text:=floattostr(a3/a2); end; procedure TForm2.Table1CalcFields(DataSet: TDataSet); begin if table1vrem.asinteger<>0 then table1skor.asfloat:=1/table1vrem.asinteger; end; procedure TForm2.BitBtn1Click(Sender: TObject); begin DBNavigator1.Visible:=true; BitBtn2.Visible:=true; end; procedure TForm2.BitBtn2Click(Sender: TObject); begin DBNavigator1.Visible:=false; BitBtn2.Visible:=false; end; procedure TForm2.Button2Click(Sender: TObject); begin form1.Show; end; procedure TForm2.Button4Click(Sender: TObject); begin qrlistform1.qrlabel10.text:=form2.Edit1.Text; qrlistform1.qrlabel11.text:=form2.Edit2.Text; qrlistform1.qrlabel12.text:=form2.Edit3.Text; QRListForm1.QuickRep1.Preview; end; end.
Содержание Введение. 3 1 Теоретическая часть. 4 1.1 Скорость химической реакции. 4 1.2 Влияние природы реагирующих веществ на………………………. скорость химических реакций. 6 1.3 Зависимость скорости химической реакции от…………………… концентрации. 6 1.4 Зависимость скорости реакции от температуры.. 11 1.5 Зависимость скорости гетерогенных химических реакций от поверхности соприкосновения реагирующих веществ 13 1.6 Влияние катализатора на скорость химических реакций. 15 1.7 Химическое равновесие. 17 1.8 Механизмы химических реакций. 20 2. Экспериментальная часть. 25 3 Техника безопасности. 27 4 Контрольные вопросы на допуск к лабораторной работе. 28 5. Карточки на защиту лабораторной работы.. 28 ПРИЛОЖЕНИЕ А Основные термины и определения. 33 ПРИЛОЖЕНИЕ Б Тесты по теме химическая кинетика и термодинамика. 38 ПРИЛОЖЕНИЕ В Компьютерный проверочный расчет……………...40 Содержание……………………………………………………………….47 Литература…………………………………………………………..48
Литература
1. Коровин Н.В. Общая химия.- М.: Высш. шк.,2000. – 116-203с. 2. Глинка Н.Л. Задачи и упражнения по общей химии. Учебное пособие для вузов/ Под ред. В.А.Рабиновича и Х.М.Рубиной Л.: Химия, 1985 с 71-103. 3. Васильева З.Г., Грановская А.А., Макарычева Е.П., Таперова А.А., Фриденберг Е.Э., Лабораторный практикум по общей химии.-М.; Химия, 1969, - 304с. 4. Глинка Н.Л. Общая химия. – Л.; Химия, 1985 – 704с. 5. Некрасов Б.В. Учебник по общей химии. – М.; Химия, 1981. – 560с. 6. Романцева Л.М., Лещинская З.Л., Суханова В.А. Сборник задач и упражнений по общей химии. – М.; Высшая школа, 1980. – 228с.
Министерство образования Российской Федерации
Бийский технологический институт(филиал) государственного образовательного учреждения высшего профессионального образования “Алтайский государственный технический университет имени И.И. Ползунова” (БТИ АлтГТУ)
Т.И. Макрушина, А.Л. Верещагин
|