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

begin

P4;

Exit;

end;

IF Edit3.Text = '0' then

begin

MessageDlg ('Требазадатикроктабулювання,'

+ #13 +'якиймаєненульовезначення', mtWarning, [mbCancel], 0);

Edit3.Text := '';

Edit3.SetFocus;

goto l1;

end;

Xn:=StrToFloat(Edit1.Text);

Xk:=StrToFloat(Edit2.Text);

H:=StrToFloat(Edit3.Text);

If Xk<Xn Then

begin

P1;

goto L1;

end;

If (H<=0) Or (H>=Abs(Xk-Xn)) Then

begin

P2;

goto L1;

end;

X:=Xn-H;

K:= Round((Abs((Xk-Xn))/H));

If K>1000 Then

begin