function f(x: real): real; begin f := ArcTan(3 * x + 1.5); end;
begin //настраиваем размер окна под график, влияет на маштаб Window.Width := 1000; Window.Height := 300;
Window.IsFixedSize := True; // фиксируем размеры окна Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна Coordinate.SetMathematic; //выставляем направление осей как в математике принято var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
var x := x_min; var y_max := f(x_max); // подставляем реальные значения var y_min := f(x_min); // подставляем реальные значения
repeat try var y := f(x); if y > y_max then y_max := y; if y < y_min then y_min := y; finally x := x + dx; end; until x > x_max;
4
Объяснение:
Наибольшее четное число, меньшее шести это 4