Построить в одной системе координат график функций y = ax3+bx2+c, y=ax|sinx| на заданном промежутке. Промежуток и параметры для каждой функции вводятся пользователем.
Пожалуйста, напишите программу( или хотя бы объясните, что делать после write(' введите промежуток');

скорее всего там происходит деление на 0 или типа того

Спасииибо!!! (еще один вопрос: почему именно 0.1 пишем после if...>... ?)

нет особой причины. но с этим числом оно не падает. вообщем методом тыка найденая штука

program abc;uses GraphABC;const    scale = 20;    step = 0.001;var    x0, y0, x1, y1: integer;    x, y, min, max, a, b, c: real;begin    setwindowsize(1000, 800);    DrawInBuffer := true;    //    write(' введите промежуток для функции(min значение-enter- max значение) ');    //    read(min, max);    writeln('a=');    read(a);    writeln('b=');    read(b);    writeln('c=');    read(c);        x0 := WindowWidth div 2;    y0 := WindowHeight div 2;    line(20, y0, WindowWidth - 20, y0);    line(x0, 20, x0, WindowHeight - 20);        min := trunc((20 - x0) / scale);    max := trunc((WindowWidth - 20 - x0) / scale);        x := min;    while x <= max do    begin        x1 := trunc(x0 + x * scale);                y := a * x * x * x + b * x * x + c;        y1 := trunc(y0 - y * scale);        PutPixel(x1, y1, clGreen);                y := a * x * abs(sin(x));        y1 := trunc(y0 - y * scale);        PutPixel(x1, y1, clBlue);                x := x + step;    end;end.