14 lines
246 B
ObjectPascal
14 lines
246 B
ObjectPascal
|
uses GraphABC;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Window.Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
Draw(sin);
|
|||
|
|
Draw(-5,5,320,250,520,350,abs);
|
|||
|
|
Draw(0,5,320,370,520,470,exp);
|
|||
|
|
|
|||
|
|
var r := Rect(120,10,320,110);
|
|||
|
|
Draw(r, sqr);
|
|||
|
|
|
|||
|
|
r.Y := r.Y + 120;
|
|||
|
|
Draw(r, x -> x*cos(3*x));
|
|||
|
|
end.
|