Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода

label7.Caption:=floattostrf(arcsin(nn1/nn2),ffgeneral,3,3);

label8.caption:=floattostrf((pi/2-0.001-(pi/2-arcsin(nn1/nn2))/300),ffgeneral,3,3);

label10.Caption:=floattostr(-dd*1000000);

label11.Caption:=floattostr(2*dd*1000000);

i:=true;

end;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

i:=false;

stringgrid1.Cells[0,0]:=('Порядок');

stringgrid1.Cells[1,0]:=('Угол (рад)');

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.About1Click(Sender: TObject);

begin

messagedlg('Курсовая работа по информатике, ТУСУР,'

+#13+' 1 курс, специальность 210405.'

+#13+' Выполнил студент группы 164'

+#13+' Филатов Александр.', mtinformation, [mbOK],0);

end;

end.

Вспомогательный модуль, содержащий математические процедуры и функции.

unit Unit4;