Обоснование типов параметров
procedure RealKey(Ed_Text: String; var K: Char). Используется параметр-значение Ed_Text, не изменяемый в ходе процедуры (уже введенный текст поля). Также используется параметр-переменная K (введенный символ), которую необходимо изменять в ходе процедуры (присваивать пустое значение в случае ошибок ввода данных).
procedure IntKey(var K: Char). Используется параметр-переменная K (введенный символ), которую необходимо изменять в ходе процедуры (присваивать пустое значение в случае ошибок ввода данных).
function Zn(Z: Real; n: Integer): Extended. Используются параметры-значения (основание степени и показатель степени), не нужно их изменять в ходе функции.
function Y(P, Q: Extended): Extended. Используются параметры-значения (два вещественных числа), здесь не изменяемые.
function Vyvod (var X : real; A, dX : real; n : integer) : String. Используются параметр-переменная X, которой присваивается изменяемое дважды на dX
Обоснование назначенного типа параметра
function Fdy(a,x,n:real):real. Используются параметр-переменная X, которой присваивается изменяемое дважды на dX значение, параметры-значения A, dX, n– для исходных данных.
procedure InputInt(var Simb:char; Str:string ); Параметр Var Symb - формальный параметр-переменная обеспечит передачу введённого символа из процедуры InputInt в вызывающую процедуру}
procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Input(key,LabeledEdit1.text); {Key - фактический параметр, значение будет передано в вызывающую процедуру TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char) }.
Перечень ситуаций, при которых возможно аварийное завершение программы
аварийное завершение в случаях пустых значений в полях ввода
аварийное завершение при Y<0,001
Рабочая форма Вывод.