Wykres y=ax^3 + b

Pilnie potrzebuję pomocy. Potrzebuję programu w Turbo Pascalu, który będzie rysował wykres funkcji y=ax^3+b. Z góry dziękuję.

inicjujesz tryb graficzny, rysujesz sobie prosty uklad rownan, robisz petelke w ktorej zaleznie od zapetlanej wartosci liczysz 'y' i wstawiasz odp punkt na ekran komputera.
(jak chcesz ladniej to mozesz zapamietywac pozycje ost. wyliczonego pkt i polaczyc ten ost pkt z nowym punktem za pomoca linii prostej. najlepiej jakbys liczyl wartosci 'y' dla 'x' rozniacych sie o mala liczbe)

program funkcjaPrb3st;

uses Crt,Graph;
const  pi=3.14;n=400;
var x,dx,a,b                              :Real;
    y                                          :Real;
    i,j,sterownik,tryb,blad,di         :Integer;

function f(x:Real)                       :Real;
 begin
  f:=a*x*sqr(x)+b;
 end;
procedure ekran;
begin
sterownik:=detect;
InitGraph (sterownik,tryb,'C:\tp\bgi');{w '  'jest sciezka do BGI-wskaż swoją}
blad:=GraphResult;
  if blad <>0
    then
     begin
       Writeln ('blad podczas inicjowania trybu graficznego');
       Writeln ('kod bladu:',blad);
       Halt;
     end;
SetViewPort (0,0,639,479,ClipOn);
ClearViewPort;
SetBkColor(White);
SetColor(Blue);
SetLineStyle(SolidLn,0,NormWidth);
Line(0,240,639,240);
Line(320,0,320,479);

i:=0;
di:=40;
  while i<640 do
   begin
    i:=i+di;
    Line(i,240,i,243);
   end;
i:=0;
di:=20;
  while i<480 do
   begin
    i:=i+di;
    Line(320,i,323,i);
   end;
  OutTextXY(362,245,'1'); {1 na osi x odpowiada 40 pixli}
  OutTextXY(326,218,'1'); {1 na osi y odopwiada 20 pixli}
  OutTextXY(630,245,'x');
  OutTextXY(325,10,'y(x)');
end;
begin
Writeln('y=ax^3+b');
Writeln('Podaj -5<a<5');
Readln(a);
Writeln('Podaj -8<b<8');{aby zmiescic na ekranie punkt przegiecia}
Readln(b);
ekran;
dx:=16/n; {przyjety krok}
x:=-8;
MoveTo(320+Round(40*x),Round(240-20*f(x)));
 while x<8 do
  begin
   x:=x+dx;
   y:=f(x);
   LineTo(Round(320+40*x),240-Round(20*y));
  end;
Readln;
CloseGraph;
end.

Dziękuję bardzo za okazaną pomoc.

No wszystko jasne. Ale po co to pi?

uses Crt,Graph;
const pi=3.14;n=400;
var x,dx,a,b

To pi zostało z jakiegoś innego wykresu. Robiłem to szybko w pracy korzystając
z przodka.
moduł CRT przyda się gdy zastosujesz tryb tekstowy do opisu programu
na ekranie.
Co do zmiennych to już inwencja programisty.

Terazjuż wszystko rozumiem, dzięki. :)