Язык программирования: 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.
Для себя Хочу понять темы динамическое программирование и перебор с возвратом, конечная моя цель решить "задачу о рюкзаке" двумя способами с применением этих тем.
Для себя Необходимо решить ( подкорректировать) задачу на паскале. Условие : найти в файле два максимально длинных слова, состоящих из одинаковых слов. Пример cac cca
Для ребёнка Здравствуйте, нужен репетитор дочери, первый курс на программиста, до этого была гуманитарием, поэтому пока плохо понимает программирование. нужно именно научить разбираться, то есть не формально объяснить а именно научить думать
Изучение языка паскаль для дальнейшей работы с ним во время обучения в колледже на первом курсе + помощь в задаваемых лабораторных, совместное их делание В изучении Паскаля с 0 и задаваемых преподавателем лабораторных
Как мне найти учеников по профилю pascal в России?
Зарегистрируйтесь и создайте привлекательный профиль с упоминанием вашей специализации. Обратите внимание на количество доступных заявок от учеников, которое на апрель 2026 года составляет 8
Какие требования к преподавателям на вашем сайте?
На нашем сайте приветствуются преподаватели с любым уровнем квалификации. Мы рекомендуем указать все свои сертификаты и образование, чтобы увеличить шансы на нахождение учеников
Могу ли я установить гибкий график работы?
Вы полностью контролируете свой график и можете обсуждать его напрямую с учениками, чтобы найти удобное время для обеих сторон
Каков потенциальный заработок для репетитора Pascal?
Заработок зависит от количества занятий и квалификации. В среднем, за одно занятие можно заработать 442.93 рублей с занятия. Больше занятий в неделю – выше доход