float (REshenie.Cells [0, j]) ;: = x + m;; i = REshenie.ColCount-1
// Округлення
for j: = 2 to REshenie.RowCount-1 do ((REshenie.Cells [REshenie.Colcount-1, j] [3] = '0 ') and (REshenie.Cells [REshenie.Colcount-1, j ] [4] = '0 ') and (REshenie.Cells [REshenie.Colcount-1, j] [5] = '0')) ((REshenie.Cells [REshenie.Colcount-1, j] [1] = '-') and (REshenie.Cells [REshenie.Colcount-1, j] [4] = '0 ') and (REshenie.Cells [REshenie.Colcount-1, j] [5] = '0') and ( REshenie.Cells [REshenie.Colcount-1, j] [6] = '9 ')) ((REshenie.Cells [REshenie.Colcount-1, j] [3] = '9') and (REshenie.Cells [REshenie . Colcount-1, j] [4] = '9 ') and (REshenie.Cells [REshenie.Colcount-1, j] [5] = '9')) ((REshenie.Cells [REshenie.Colcount-1, j] [1] = '-') and (REshenie.Cells [REshenie.Colcount-1, j] [4] = '9 ') and (REshenie.Cells [REshenie.Colcount-1, j] [5] = '9 ') and
else
begin
MessageDlg (дріб в рішенні немає, отже відповідь цілочисельний, mtWarning, [mbOK], 1);
Button3.Visible: = false; i: = 1 to Q_str.ColCount-1 do_str.Cells [i, 0]: =''; i: = 1 to SpinEdit1.Value do_str.Cells [i-1, 0 ]: = 'X' + IntToStr (i);; i: = 2 to REshenie.RowCount-2 doj: = 1 to SpinEdit1.Value doREshenie.Cells [1, i] = 'X' + IntToStr (j) then_str. Cells [j-1, 1]: = REshenie.Cells [REshenie.colcount-1, i];; TForm1.ChelevayaKeyPress (Sender: TObject; var Key: Char); not (key in ['0 '.. '9 ', # 8,' - ',' <',' = ','> ','. ', # 13]) then key: = # 0;; TForm1.Button4Click (Sender:
end;.