y"> x:=- 20;// Задамо діапазон від куди до куди будемо вважати наш графік
//власне прорисовуючи
while x lt;=20 do
begin
case form1. RadioGroup1. ItemIndex of
: begin y:=strtofloat (LabeledEdit1. Text) * x + strtofloat (LabeledEdit2. Text); info:= y=kx + b raquo ;; end;
: begin y:=power (x, 2); info:= y=x ^ 2 raquo ;; end;
: begin y:=strtofloat (LabeledEdit1. Text) * sqr (x) + strtofloat (LabeledEdit2. Text) * x + strtofloat (LabeledEdit3. Text); info:= y=a (x ^ 2) + bx + c raquo ;; end;
: begin y:=strtofloat (labelededit1.text)/x; info:= y=a/x raquo ;; end;
: begin y:=power (strtofloat (LabeledEdit1. Text), x); info:= y=a ^ x raquo ;; end;
: begin y:=sin (x); info:= y=sin (x) raquo ;; end;
: begin y:=cos (x); info:= y=cos (x) raquo ;; end;
: begin y:=sin (x)/cos (x); info:= y=tg (x) raquo ;; end;
: begin y:=cos (x)/sin (x); info:= y=ctg (x) raquo ;; end ;;. canvas. TextOut (190, x0-100, info) ;. Caption:= Підказка: + # 10 # 13 + Ваша функція + # 10 # 13 + info ;. Canvas. Pixels [x0 + Round (x * m), y0-Round (y * m)]:=clGreen;:=x + 0.01 ;;; TForm3. FormActivate (Sender: TObject) ;. Left:=(Screen. Width div 2) - (Form3. Width div 2) ;. Top:=(Screen. Height div 2) - (Form3. Height div 2) ;. Enabled:=false ;; TForm3.N2Click (Sender: TObject);// Повернення до Вибору функції графіка. Show ;. Hide ;. Caption:= raquo ;;; TForm3. BitBtn3Click (Sender: TObject);// Повернення до Вибору функції графіка (Кнопка)
begin.mediaplayer1. FileName:=ExtractFilePath (ParamStr (0)) + base/click.wav raquo ;;. Mediaplayer1. Open; .mediaplayer1.play ;. Show ;. Hide ;. Caption:= raquo ;;; TForm3.N5Click (Sender: TObject);// Вихід у гл. меню меню:=Application. MessageBox ( Завершити програму? Raquo ;, Вихід raquo ;, mb_YesNo + mb_IconAsterisk); (A=idYes) then form4.close else Abort ;. Refresh ;; TForm3. LabeledEdit1KeyPress (Sender: TObject; var Key: Char);// Фільтр введення
//Безліч чисел, допустимих для введення в edit:
const Digit: set of Char=[ 1 .. 9 raquo ;, 0 , # 8];
//Безліч символів, які сприймаються як символ-роздільник:
Separator: set of Char=[/ raquo ;, . raquo ;, laquo ;, raquo ;, ю raquo ;, Ю raquo ;, б raquo ;, Б ] ;. mediaplayer1. FileName:=ExtractFilePath (ParamStr (0)) + base/keyboard.wav raquo ;;. Mediaplayer1. Open; .mediaplayer1.play; Length (LabeledEdit1.text) gt; 2 then key:=# 0;// Обмежує максимальне число (до 999)
with (Sender as TLabeledEdit) do (Key in Separator) Key:=DecimalSeparator//Delphi-константа типу Char, рівна символу-разделителю Windows (not (Key in Digit)) Key:=# 0 ; ((Key=DecimalSeparator) and (pos (DecimalSeparator, Text) lt; gt; 0)) Key:=# 0 ;;; TForm3. LabeledEdit2KeyPress (Sender: TObject; var Key: Char);// Заборона введення зайвого B
//Безліч чисел, допустимих для введення в edit:
const Digit: set of Char=[ 1 .. 9 raquo ;, 0 , # 8];
//Безліч символів, які сприймаються як символ-роздільник:
Separator: set of Char=[/ raquo ;, . raquo ;, laquo ;, raquo ;, ю raquo ;, Ю raquo ;, б raquo ;, Б ] ;. mediaplayer1. FileName:=ExtractFilePath (ParamStr (0)) + base/keyboard.wav raquo ;;. Mediaplayer1. Open; .mediaplayer1.play; Length (LabeledEdit2.text) gt; 2 then key:=# 0;// Обмежує максимальне число (до 999)
with (Sender as TLabeledEdit) do (Key in Separator) Key:=DecimalSeparator//Delphi-константа типу Char, рівна символу-разделителю Windows (not (Key in Digit)) Key:=# 0 ; ((Key=DecimalSeparator) and (pos (DecimalSeparator, Text) lt; gt; 0)) Key:=# 0 ;;;
TForm3. FormClose (Sender: TObject; var Action: TCloseAction);// Закриття форми:=Application. MessageBox ( Завершити програму? Raquo ;, Вихід raquo ;, mb_YesNo + mb_IconAsterisk); (A=idYes) then form4.close else Abort ;. Refresh ;; TForm3. LabeledEdit1KeyUp (Sender: TObject; var Key: Word ;: TShiftState); n: Integer ;: String; (LabeledEdit1. Text= - ) then Abort; (Sender as TLabeledEdit) dopos (DecimalSeparator, Text)=1 then := 0 + Text;:=Length (Text) ;; (pos (DecimalSeparator, Text) lt; gt; Length (Text)) thenText [Length (Text)] lt; gt; 0 thenFloatToStr (StrToFloat (Text)) lt; gt; 0 then:=FloatToStr (StrToFloat (Text)); Key=8 then:=SelStart;:=Text; (S, n, 1);:=S ;;:=Length (Text) ;;; TForm3. LabeledEdit2KeyUp (Sender: TObject; var Key: Word ;: TShiftState); n: Integer ;: String; (LabeledEdit2. T...
