Контрольная работа: Расчет сверхзвукового обтекания заостренных тел вращения

end;

pr:=(x[i+1]-e[i])/(a1*r[i+1]);

m1[i+1]:=( ( (x[i+1]-Xm)/Xk )-sm)/

(pr*sqrt(pr*pr-1)+arccosh(pr));

end;

for i:= 1 to n-1 do

begin

sm:=0;

for k:=1 to i do

begin

pr:=(x[i]-e[k-1])/(a1*r[i]);

sm:= sm+ m1[k]*sqrt( pr*pr-1)

end;

p1[i]:=(-4/a1)*sm;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

n:=StrToInt(LabeledEdit6.Text);

DecimalSeparator:='.';

StringGrid1.Cells[0,0]:= '№';

StringGrid1.Cells[1,0]:= 'X';

StringGrid1.Cells[2,0]:= 'R';

StringGrid1.Cells[3,0]:= 'm';

StringGrid1.Cells[4,0]:= 'p';

StringGrid1.Cells[5,0]:= 'm1';

StringGrid1.Cells[6,0]:= 'p1';

end;

procedure TForm1.Button1Click(Sender: TObject);