Программная реализация модального управления для линейных стационарных систем

| Категория реферата: Рефераты по радиоэлектронике
| Теги реферата: шпаргалки по педагогике, судебная реферат
| Добавил(а) на сайт: Anzhelika.

StringGrid_InCond.ColCount := Order;

StringGrid_Kpp1.ColCount := Order;

FillFixedCellsInAllGrids;

BitBtn_Compute.Enabled := True; end;

procedure TForm_Main.StringGrid_RootsSetEditText(Sender: TObject; ACol,

ARow: Longint; const Value: string); var

Val : string; begin if (ARow = 2) and (Value '') then begin

Val := StringGrid_Roots.Cells [ACol, ARow]; if StrToFloat (Value) 0 then

StringGrid_Roots.Cells[Succ(ACol),ARow]:=FloatToStr(-
StrToFloat(Value)); if StrToFloat (Value) = 0 then

StringGrid_Roots.Cells [Succ(ACol),ARow] := FloatToStr(0); end; end;

procedure TForm_Main.RadioGroup_RootsTypeClick(Sender: TObject); var

Order: TOrder; j: byte;

NHalf: byte;

StartAlfa, NAlfa, dAlfa: Float;

W: Float; begin

Order := SpinEdit_Dim.Value;

W := StrToFloat (Edit_W.Text); case RadioGroup_RootsType.ItemIndex of

0 :StringGrid_Roots.Options := DefOptions;

1 :begin for j := 1 to Order do begin

StringGrid_Roots.Cells [j, 1] := FloatToStr (-W);

StringGrid_Roots.Cells [j, 2] := '0';

StringGrid_Roots.Options := DefOptions - [goEditing]; end end;

2 :begin dAlfa := Pi / Order;

StartAlfa := Pi/2 - dAlfa/2;

NHalf := Order div 2; for j := 1 to NHalf do begin

Рекомендуем скачать другие рефераты по теме: виленкин математика 6 класс решебник, шпора на пятке лечение, дипломная работа формирование.

Claw.ru | Рефераты по радиоэлектронике | Программная реализация модального управления для линейных стационарных систем