Файл: Плакат9 - Программа.doc

Скачать файл (0,06Мб)

Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 13.06.2020

Просмотров: 65

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

УПРАВЛЯЮЩАЯ ПРОГРАММА СИСТЕМЫ АВТОМАТИЧЕСКОЙ КОРРЕКЦИИ СКОРОСТИ

Режим единичного расчета

Временная диаграмма

Расчет управляющего напряжения U на языке Delphi 7

function TForm1.Napryajenie(p:real):real;

var p1, p2, Qz: integer;

begin

p1:=StrToInt(edit3.Text);

p2:=StrToInt(edit4.Text);

Qz:=StrToInt(edit2.Text);

if (p2<=p1) then

begin

ShowMessage('Неверно указан диапазон');

napryajenie:=0;

end

else

if (p>p2) or (p<p1) then

begin

ShowMessage('Значение не в диапазоне');

napryajenie:=0;

end

else

Napryajenie:=(Qz-p*Kqp/1000000)*Kuq; // Уровнение

end;