Контрольная работа: Метод низпадаючої розробки структури програми

{ Public declarations }

end;

var

Form1: TForm1;

X,Xn,Xk,H:real;//Параметритабулювання

fname:String[25];//

f:textfile;

implementation

{$R *.dfm}

procedure P1;

begin

MessageDlg ('"Xп" неможебутибільшимніж "Хк".' +#13

+'Введітьзначенняправильно.', mtWarning, [mbCancel], 0);

Form1.Edit1.Text:='';

Form1.Edit2.Text:='';

end;

procedure P2;

begin

MessageDlg ('Кроктабулювання "H" неможеприйматитакихзначень.' +#13

+'Введітьзначенняправильно.', mtWarning, [mbCancel], 0);

Form1.Edit3.Text:='';

end;

procedure P3;

begin

MessageDlg ('Введене значення знаходться за межами допустимого.' +#13

+'Введіть значення правильно.', mtWarning, [mbCancel], 0);

end;

procedure P4;

begin