Разработка программного обеспечения микропроцессорной системы автоматической коррекции скорости / new / Диплом - Сергей / плакаты / Плакат9 - Программа

Расчет управляющего напряжения 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;