ola (X: integer): integer;:=Round (- (sqr ((2 * X ) / p)));;. MoveTo (0,0); X:=- 250 to 250 do. LineTo (X +250, Parabola (X) +250);; TForm1. Button1Click (Sender: TObject); x, y, step: integer;
x2, y2: real;
/ / малювання сітки
x:=image1. width div 2;:=(image1. height div 2);. Canvas. MoveTo (image1. Width div 2, 0);. Canvas. LineTo (image1. Width div 2, image1. Height);. Canvas. MoveTo (0, image1. Height div 2);. Canvas. LineTo (image1. Width, image1. Height div 2);:=30; x-step> 5 do begin
/ / по Х. Canvas. MoveTo (x-step, y);. Canvas. LineTo (x-step, y - 5);. Canvas. MoveTo (x + step, y);. Canvas. LineTo (x + step, y - 5);
/ / по Y. Canvas. MoveTo (x, y-step);. Canvas. LineTo (x +5, y-step);. Canvas. MoveTo (x, y + step);. Canvas. LineTo (x +5, y + step);
/ / малювання цифр. Canvas. TextOut (x-step - 4, y +5, FloatToStr (-step / 30));. Canvas. TextOut (x + step - 4, y +5, FloatToStr (step / 30)); y-step - 5> 0 then begin. Image1. Canvas. TextOut (x +10, y-step - 10, FloatToStr (step / 30));. Image1. Canvas. TextOut (x +10, y + step - 5, FloatToStr (-step / 30));; (step, 30);; (image1. Canvas, StrToInt (Edit4. Text));; TForm1. Button2Click (Sender: TObject); x, y, step: integer;
x2, y2: real;
/ / малювання сітки
x:=image1. width div 2;:=(image1. height div 2);. Canvas. MoveTo (image1. Width div 2, 0);. Canvas. LineTo (image1. Width div 2, image1. Height);. Canvas. MoveTo (0, image1. Height div 2);. Canvas. LineTo (image1. Width, image1. Height div 2);:=30; x-step> 5 do begin
/ / по Х. Canvas. MoveTo (x-step, y);. Canvas. LineTo (x-step, y - 5);. Canvas. MoveTo (x + step, y);. Canvas. LineTo (x + step, y - 5);
/ / по Y. Canvas. MoveTo (x, y-step);. Canvas. LineTo (x +5, y-step);. Canvas. MoveTo (x, y + step);. Canvas. LineTo (x +5, y + step);
/ / малювання цифр. Canvas. TextOut (x-step - 4, y +5, FloatToStr (-step / 30));. Canvas. TextOut (x + step - 4, y +5, FloatToStr (step / 30)); y-step - 5> 0 then begin. Image1. Canvas. TextOut (x +10, y-step - 10, FloatToStr (step / 30));. Image1. Canvas. TextOut (x +10, y + step - 5, FloatToStr (-step / 30));; (step, 30);; (image1. Canvas, StrToInt (Edit2. Text));; TForm1. Button3Click (Sender: TObject);. Picture. SaveTofile («1. Jpg»); («графік збережений»); TForm1. Button4Click (Sender: TObject); x, y, step: integer;, y2: real;. Canvas. FillRect (image1. Canvas. ClipRect);
/ / малювання сітки:=image1. width div 2;
y:=(image1. height div 2);. Canvas. MoveTo (image1. Width div 2, 0);. Canvas. LineTo (image1. Width div 2, image1. Height);. Canvas. MoveTo (0, image1. Height div 2);. Canvas. LineTo (image1. Width, image1. Height div 2);:=30; x-step> 5 do begin
/ / по Х. Canvas. MoveTo (x-step, y);. Canvas. LineTo (x-step, y - 5);. Canvas. MoveTo (x + step, y);. Canvas. LineTo (x + step, y - 5);
/ / по Y. Canvas. MoveTo (x, y-step);. Canvas. LineTo (x +5, y-step);. Canvas. MoveTo (x, y + step);. Canvas. LineTo (x +5, y + step);
/ / малювання цифр. Canvas. TextOut (x-...
