прокоментируйте пограмму в некоторых местах

[Natashka Milashka]

В некоторых местах (я пометила вопросиками) мне не понятно....
Весь код программы я скинула для того что бы было понятно что к чему...

TColeb = class(TmathDU)
public
g,L,teta         : float;
t0,teta0, tetad0 : float;
shag, omega      : float;
n                : int;
vec              : vector;
result           : matrix;
function smallColeb (teta0, omega,t : float): float;
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
var
Form1   : TForm1;
MathCol : TColeb;
implementation
uses Unit2;
{$R *.dfm}
function Tcoleb.smallColeb(teta0, omega, t : float): float;
begin
Result:=teta0*cos(omega*t);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k          : int;
Tempcount      : int;
countl, countN : Int;
ti             : int;
tx,ty,eps : float;
matrix3      : matrix; // матрица для выполнения третьго задания
matL,matN    : matrix; // временные матрицы для выполнения третьго задания
begin
series1.Clear;
series2.Clear;
MathCol.t0:=StrToFloat(Edit4.Text);
MathCol.teta0:=StrToFloat(Edit2.Text);
MathCol.tetad0:=StrToFloat(Edit3.Text);
MathCol.L:=StrToFloat(Edit1.Text);
MathCol.n:=StrToInt(Edit5.Text);
MathCol.g:=StrToFloat(Edit6.Text);
eps:=StrToFloat(Edit7.Text);
MathCol.shag:=2*pi/(MathCol.n);
MathCol.omega:=sqrt(mathCol.g/mathCol.L);
StringGrid1.RowCount:=MathCol.n+3;
MathCol.teta0:=MathCol.teta0*pi/180;
MathCol.RungeKutt4(MathCol.shag,MathCol.omega,
MathCol.t0,MathCol.teta0,MathCol.tetad0,MathCol.n,1,MathCol.result);   ???
for i:=1 to MathCol.n+1 do ???
MathCol.vec[i]:=MathCol.result[i,2];        ???
if RadioButton1.Checked=true then
begin
Label8.Caption:=RadioButton1.Caption;
StringGrid1.Cells[2,0]:='Тета аналит';
for i:=1 to MathCol.n+1 do    ???
mathCol.result[i,3]:=mathCol.smallColeb(MathCol.teta0,MathCol.omega,
mathCol.result[i,1]);       ???
for i:=1 to MathCol.n+1 do   ???
begin
for j:=1 to 3 do
StringGrid1.Cells[j-1,i]:=FloatToStr(MathCol.result[i,j]);
StringGrid1.Cells[3,i]:=FloatToStr(MathCol.result[i,2]-MathCol.result[i,3]);
series1.AddXY(MathCol.result[i,1],MathCol.result[i,2]);
series2.AddXY(MathCol.result[i,1],MathCol.result[i,3]);
end;
end;
if RadioButton2.Checked=true then
begin
Label8.Caption:=RadioButton2.Caption;
StringGrid1.Cells[2,0]:='Тета мал чис';
MathCol.RungeKutt4(MathCol.shag,MathCol.omega,
MathCol.t0,MathCol.teta0,MathCol.tetad0,MathCol.n,2,MathCol.result);
for i:=1 to MathCol.n+1 do
mathCol.result[i,3]:=MathCol.vec[i];
for i:=1 to MathCol.n+1 do
begin
for j:=1 to 3 do
StringGrid1.Cells[j-1,i]:=FloatToStr(MathCol.result[i,j]);   ???
stringGrid1.Cells[3,i]:=FloatToStr(MathCol.result[i,2]-MathCol.result[i,3]);
series1.AddXY(MathCol.result[i,1],MathCol.result[i,2]); ???
series2.AddXY(MathCol.result[i,1],MathCol.result[i,3]);
end;
end;
if RadioButton3.Checked=True then
begin
Label8.Caption:=RadioButton3.Caption;
StringGrid1.Cells[1,0]:='Период лин';
StringGrid1.Cells[2,0]:='Период нелин';
StringGrid1.Cells[3,0]:='';
tx:=80/(MathCol.n+1);
for i:=1 to MathCol.n+1 do
begin
Matrix3[i,1]:=i*tx;
end;
for i:=1 to MathCol.n+1 do
begin
MathCol.RungeKutt4(MathCol.shag,MathCol.omega,MathCol.t0,matrix3[i,1],MathCol.tetad0,MathCol.n,1,matl);
MathCol.RungeKutt4(MathCol.shag,MathCol.omega,MathCol.t0,matrix3[i,1],MathCol.tetad0,MathCol.n,2,matn);
ti:=10;
Countl:=ti;
Countn:=ti;
tempcount:=0;
for k:=ti+1 to MathCol.n+1 do
begin
Inc(countN);   ???
if abs(matn[k,2]-matn[ti,2])<=eps then    ???
inc(tempCount);   ???
if tempcount=1 then break;
end;
if tempCount=0 then CountN:=1;
tempcount:=0;
for k:=ti+1 to MathCol.n+1 do
begin
inc(countL);          ???
if abs(matl[k,2]-matl[ti,2])<=eps then        ???
inc(tempCount);     ???
if tempcount=1 then break;
end;
if tempcount=0 then CountL:=1;            ???
matrix3[i,2]:=matl[CountL,1];         ???
matrix3[i,3]:=matn[countN,1];
end;
StringGrid1.RowCount:=Mathcol.n+2;   ???
For i:=1 to StringGrid1.RowCount do    ???
for j:=0 to mm do                   ???
StringGrid1.Cells[j,i]:=' ';
for i:=1 to MathCol.n+1 do
begin
StringGrid1.Cells[0,i]:=FloatToStr(matrix3[i,1]);
StringGrid1.Cells[1,i]:=FloatToStr(matrix3[i,2]);
StringGrid1.Cells[2,i]:=FloatToStr(matrix3[i,3]);
series1.AddXY(matrix3[i,1],matrix3[i,2]);
series2.AddXY(matrix3[i,1],matrix3[i,3]);
end;
end;
end;// конец процедуры

procedure TForm1.Button2Click(Sender: TObject);
var
MSWord:OLEvariant;
begin        //  открываем нашу теорию...
MsWord := CreateOleObject('Word.Application');
MSWord.Documents.Open(ExtractFilePath(Application.ExeName) + 'MathPendulum.doc');
MsWord.Visible := True;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 Form2.Show;
 Form1.Enabled:=false;
end;
initialization
MathCol:=TColeb.Create;
end.

[Alex11223]

Что программа-то хоть делает (какое задание)?
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[p51x]

MathCol.RungeKutt4(MathCol.shag,Mat hCol.omega,
 MathCol.t0,MathCol.teta0,MathCol.te tad0,MathCol.n,1,MathCol.result); ???

Вызов метода класса, по названию прдеполагаю, что реализация Рунге - Кутта 4-го порядка.

for i:=1 to MathCol.n+1 do ???
 MathCol.vec[i]:=MathCol.result[i,2]; ???

Цикл копирования результата.

StringGrid1.Cells[j-1,i]:=FloatToStr(MathCol.result[i,j]); ???

Результат в СтринГрид.

series1.AddXY(MathCol.result[i,1],MathCol.result[i,2]); ???

Результат в последовательнось для постройки графика.

И так далее, большинство вопросов у вас по стандартному дельфовому.

[Natashka Milashka]

Сообщение от p51x

MathCol.RungeKutt4(MathCol.shag,Mat hCol.omega,
 MathCol.t0,MathCol.teta0,MathCol.te tad0,MathCol.n,1,MathCol.result); ???

Вызов метода класса, по названию прдеполагаю, что реализация Рунге - Кутта 4-го порядка.

for i:=1 to MathCol.n+1 do ???
 MathCol.vec[i]:=MathCol.result[i,2]; ???

Цикл копирования результата.

StringGrid1.Cells[j-1,i]:=FloatToStr(MathCol.result[i,j]); ???

Результат в СтринГрид.

series1.AddXY(MathCol.result[i,1],MathCol.result[i,2]); ???

Результат в последовательнось для постройки графика.

И так далее, большинство вопросов у вас по стандартному дельфовому.

спасибо, вы мне помогли)))