Язык программирования: Pascal Для себя Нужно решить задачу. В ходе изучения термического разложения динитроксида на золоте при 990оС получены следующие кинетические данные: время, мин 30 53 100 степень превращения, % 32 50 73 Определить порядок реакции n и константу скорости k с помощью вычислительной машины (подсказка – константа скорости реакции должна получиться 2.1*10^-4) Есть код на языке Pascal, нужно его доделать, чтобы работал в delphi (код писал преподаватель): unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math, ExtCtrls, TeeProcs, TeEngine, Chart, Series; type TForm1 = class(TForm) Memo1: TMemo; Chart1: TChart; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Chart2: TChart; Edit2: TEdit; Label6: TLabel; Series2: TFastLineSeries; Edit3: TEdit; Label7: TLabel; Edit4: TEdit; Label8: TLabel; Memo2: TMemo; Series4: TFastLineSeries; Memo3: TMemo; Memo4: TMemo; Series3: TLineSeries; Series1: TLineSeries; procedureFormCreate(Sender: TObject); {вывод на экран экперимен-тальных данных и построение полулогарифмической зависимости} procedure Button2Click(Sender: TObject); {очисткатекстовыхполей} procedure Button3Click(Sender: TObject); {очисткаграфиков} procedure Button1Click(Sender: TObject); {основнаяпрограмма} private { Private declarations } public { Public declarations } end; var Form1: TForm1; i:integer; tt,al:array [0..3] of real; k,dt,t,c,n:real; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin tt[0]:=0; al[0]:=0; tt[1]:=30; al[1]:=0.32; tt[2]:=53; al[2]:=0.5; tt[3]:=100; al[3]:=0.73; memo1.Clear; memo2.Clear; memo3.Clear; memo4.Clear; for i:=0 to 3 do begin memo1.Lines[0]:=memo1.Lines[0]+' '+floattostr(tt[i]); memo2.Lines[0]:=memo2.Lines[0]+' '+floattostr(al[i]); series1.AddXY(tt[i],1-al[i],''); series2.AddXY(tt[i],Ln(1-al[i]),'') end; k:= abs(ln(1-al[3])-ln(1-al[1]))/(tt[3]-tt[1]); edit2.Text:=floattostr(k); n:=100*(ln(al[3])-ln(al[1]))/((ln((1-al[1])/(1-al[3])))*(tt[3]-tt[1])); edit3.Text:=floattostr(n); memo3.Lines[0]:='зеленая - эксперимент, красная - расчет'; memo4.Lines[0]:='зеленая -Ln(1-al[i]), красная - 1-al[i] '; end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=''; edit4.text:=''; end; procedure TForm1.Button3Click(Sender: TObject); begin series3.Clear; series4.Clear; end; procedure TForm1.Button1Click(Sender: TObject); begin c:=strtofloat(edit1.text); dt:=strtofloat(edit4.text); t:=0; while c>0.001 do begin series3.AddXY(t,c,''); t:=t+dt; c:=c-k*power(c,n)*dt; end; c:=strtofloat(edit1.text); for i:=0 to 3 do series4.AddXY(tt[i],c*(1-al[i]),''); end; end.