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

begin

n:=StrToInt(LabeledEdit6.Text);

StringGrid1.RowCount:=n+1;

for i := 1 to n+1 do

with StringGrid1 do

begin

Cells[0,i]:= IntToStr(i-1);

end;

try

DoCount (StrToFloat(LabeledEdit1.Text),

StrToFloat(LabeledEdit2.Text),

StrToFloat(LabeledEdit3.Text),

StrToFloat(LabeledEdit4.Text),

StrToFloat(LabeledEdit5.Text));

except

ShowMessage('Проверьте введенные параметры!');

end;

Series1.Clear;

Series2.Clear;

Series3.Clear;

Series4.Clear;

Series5.Clear;

for i:= 0 to n do

begin

try

//рисуюграфики

Series1.Add(r[i]);

Series2.Add(m[i]);

Series3.Add(p[i]);