="justify"> showmessage ( ????????? ?????? Zm );
pp:=pp + 1; .Color:=clWhite; pp=0 then.Visible:=false; .Visible:=true ;;; TForm1.FormCreate (Sender: TObject) ;. Visible :=false ;; TForm1.Button2Click (Sender: TObject);:=2/3 * (R * R * R-r1 * r1 * r1)/(R * R-r1 * r1);:=Mlmax/m * Zm * Rtr; .Text:=floattostrf (Rtr, fffixed, 8,3) ;. Text:=floattostrf (Fh, fffixed, 8,3);
end;.
ДОДАТОК Б
розрахунковий програмний забезпечення
Результати моделювання динамічної системи на текстових прикладах
Малюнок Б1 - Результат моделювання