Question

помогите, пожалуйста! нужно исправить ошибку. задание во вложении.

Answer 1

отрисовку не проверяла, но ошибка указанная в рисунке решена

program qq;
const
    a = 320;
    b = 250;
    k = 50;
    xmin = -5;
    xmax = 5;
    ymax = 10;
    h = 0.01;

var
    x, y: real;
    w, xe, ye: integer;

begin
    w := round((xmax - xmin) * k);
    line(a - 200, b, a + w, b);
    line(a, k, a, 2 * b);
    x := xmin;
   
    while (x <= xmax) do
    begin
        y := 1 / (x * x * x);
        if abs(y) < ymax then begin
            xe := a + round(k * x);
            ye := b - round(k * y);
            point(xe, ye);
        end;
        x := x + h;
    end;
    pen(1, 1, 1, 1);
    moveto(250, 40);
    textcolor(1, 1, 1);
    brush(0, 25, 25, 0);
    font(10, 0, 60);
    writeln('y');
    pen(1, 1, 1, 1);
    moveto(450, 200);
    textcolor(1, 1, 1);
    brush(0, 25, 25, 0);
    font(10, 0, 60);
    writeln('x');
end.

Answer 2

спасибо огромное, все работает)))