Приложение в
Компьютерная обработка экспериментальных данных
Проверку правильности произведенных расчетов по экспериментальным данным студенты проводят на ЭВМ. Программа обработки составлена на языке Borland Delphi. Для запуска программы студенту необходимо ввести свои опытные данные. Программа написана с выводом всех расчетных данных на дисплей компьютера и принтер.
Программа компьютерного расчета
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, DBCtrls, OleCtnrs, ExtCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
Table1IZMERENIYA: TStringField;
Table1USLON: TStringField;
Table1EXPERIMENT: TFloatField;
DBMemo1: TDBMemo;
Table1VELICHINY: TMemoField;
Button2: TButton;
Button1: TButton;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Vod,V,V0,Me,Fe,Pog,
a1,a2,a3,a4,a5,a6,a7:real;
implementation
uses ComObj, Unit2, Unit3;
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
table1.first;
for i:=1 to 7 do
begin
case i of
1: a1:=table1experiment.asfloat;
2: a2:=table1experiment.asfloat;
3: a3:=table1experiment.asfloat;
4: a4:=table1experiment.asfloat;
5: a5:=table1experiment.asfloat;
6: a6:=table1experiment.asfloat;
7: a7:=table1experiment.asfloat;
end;
table1.Next;
end;
If (a1=0) or (a3=0) or (a4=0) or (a5=0) or (a6=0) or (a7=0) then
form3.Showmodal
else
begin
Vod:=a4-a3-9.81*a7;
V:=a5-a6;
V0:=(273*Vod*V)/(1.013*(a2+273)*100000);
Me:=(a1*11.2*1000)/V0;
Fe:=Me/65.39;
Pog:=((32.695-Me)/32.695)*100;
QRListForm.QRLabel11.caption:=floattostr(Vod)+' Па';
QRListForm.QRLabel13.caption:=floattostr(V0)+' мл';
QRListForm.QRLabel14.caption:=floattostr(Me)+' гр/моль';
QRListForm.QRLabel15.caption:=floattostr(Fe);
QRListForm.QRLabel16.caption:=floattostr(Round(Pog))+'%';
QRListForm.QuickRep1.Preview;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
Компьютерный отчет по лабораторной работе
«Определение молярной массы эквивалента металла методом вытеснения водорода»
Экспериментальные данные по определению эквивалента металла
Навеска металла,г |
0.258 |
Температура опыта, 0С |
23 |
Давление насыщенных паров воды, ПА |
2810 |
Атмосферное давление, Па |
97400 |
Объём столба воды в цилиндре до опыта, мл |
290 |
Объём столба воды в цилиндре после опыта, мл |
185 |
Высота столба воды в цилиндре от поверхности воды в кристаллизаторе (давление столба воды), мм.вод.ст |
140 |
Результаты вычислений
Давление водорода в цилиндре, Па |
93216.6 |
Объём водорода при нормальных условиях, мл |
89.11 |
Молярная масса эквивалента вещества опытная, г/моль экв |
32.42 гр/моль |
Фактор эквивалентности Опытный |
0.49 |
Погрешность эксперимента |
1% |