Реферат Програмний продукт, який здійснює вирішення завдань з дисципліни "Чисельні методи"

(' Помилка обчислення! ', mtinformation, [mbok], 0);;; EConvertError do (' Дані введені некоректно! ', mtinformation, [mbok], 0);;;;; TForm34.Edit1KeyPress (Sender: TObject; var Key: Char); key of

'0 '.. '9', # 8:;

# 13: edit3.SetFocus;

'.', ',': (length (edit1.text) = 0) or

'-': length (edit1.Text) <> 0 then: = chr (0);;: = chr (0);;; TForm34.Edit2KeyPress (Sender: TObject; var Key: Char); key of

'0 '.. '9', # 8:;

# 13: edit1.SetFocus;

'.', ',': (length (edit2.text) = 0) or

'-': length (edit2.Text) <> 0 then: = chr (0);;: = chr (0);;; TForm34.Edit4KeyPress (Sender: TObject; var Key: Char); key of

'0 ', # 8:;

'1 ': (length (edit4.text) = 0) or

(pos ('1 ', edit4.Text)> 0) or (pos (', ', edit4.Text) = 0) then: = chr (0);: = '1';;

# 13: button1.SetFocus;

'.', ',': (length (edit4.text) = 0) or

(pos (',', edit4.Text)> 0) then: = chr (0);: = chr (44);;: = chr (0);;; TForm34.Edit5KeyPress (Sender: TObject ; var Key: Char);: = chr (0);; TForm34.Edit3KeyPress (Sender: TObject; var Key: Char); key of

# 13: edit4.SetFocus;;; TForm34.Button3Click (Sender: TObject);. showmodal;; TForm34.Button3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);. HintColor: = clwhite;. HintPause: = 700;. Hint: = 'Редактор формул';;

end.