Блок-схема алгоритма обработки экспериментальных данных

 

Проверку правильности произведенных расчетов по экспериментальным данным студенты проводят на ЭВМ. Программа обработки составлена на языке Borland Delphi. Для запуска программы студенту необходимо ввести свои опытные данные. Программа написана с выводом всех расчетных данных на дисплей и принтер.

 

Расчет коэффициента Вант-Гоффа: Edit1.text Edit2.text Edit3.text

Автоматический расчет по исходным данным: относительной скорости реакций. procedure TForm2.Table1CalcFields(DataSet: TDataSet); begin if table1vrem.asinteger<>0 then table1skor.asfloat:=1/table1vrem. asinteger; end;

Автоматический расчет по исходным данным: относительной скорости реакций procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin if table1vrem.asinteger<>0 then table1ckor.asfloat:=1/table1vrem.asinteger; end;

 

 

 

Программа компьютерного расчета

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.

 

 

Литература

 

1. Коровин Н.В. Общая химия.- М.: Высш. шк.,2000.- 558 с.

2. Глинка Н.Л. Задачи и упражнения по общей химии. Учебное пособие для вузов/ Под ред. В.А.Рабиновича и Х.М.Рубиной Л.: Химия, 1985. – 272 с.

3. Васильева З.Г., Грановская А.А., Макарычева Е.П., Таперова А.А., Фриденберг Е.Э. Лабораторный практикум по общей химии. - М.; Химия, 1969. - 304с.

4. Глинка Н.Л. Общая химия. – Л.; Химия, 1985. – 704с.

5. Некрасов Б.В. Учебник по общей химии. – М.; Химия, 1981. – 560 с.

6. Романцева Л.М., Лещинская З.Л., Суханова В.А. Сборник задач и упражнений по общей химии. – М.; Высшая школа, 1980. – 228с.

 

 

 

 

Содержание

Введение. 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

ПРИЛОЖЕНИЕ А Основные термины и определения 34

ПРИЛОЖЕНИЕ Б Тесты по теме "Химическая кинетика и термодинамика" 38

ПРИЛОЖЕНИЕ В Компьютерный проверочный расчет……………...40

Литература………………………………………………………………...47

Содержание……………………………………………………..………..48