Контрольная работа: Специфікація якості програми

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ 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:='';