giúp mình vẽ hàm bậc 3 trên Pascal với

[darkknight144]

mình là mem mới , mong mọi người giúp mình 1 chút.Thầy cho bài vẽ bậc 3 mà ko bít làm

[ngtrhieu0011]

đồng nhất thức ra............................................... toán hay tin???

[lee_huynh306]

Init graph ở 640x480. Sau đó làm 1 tọa độ xOy, rồi cứ lấy giá trị x thế vào f(x) để tìm y. Vậy là có một loạt điểm, dùng hàm putpixel để xuất ra (x,y). Nhớ chú ý điểm (0,0) của đồ thị với điểm (0,0) của màn hình là được rồi.

[ngtrhieu0011]

dùng đồ thị ... không hiểu

[Mai Nhựt Tân]

Đoạn code này vẽ đồ thị thuần X^3+X^2+X+1

uses crt, graph;
const sx = 10; sy =-1*sx;
var gd, gm, x, y, i, mx, my, mx1, my1 : integer;
procedure ktdh;
begin
gd := detect;
initgraph(gd, gm, '\bgi');
setbkcolor(lightgray);
mx := getmaxx; my:=getmaxy;mx1 := mx div 2; my1 := my div 2;
setviewport(mx1,my1,mx,my, clipoff);
end;
procedure hetruc;
begin
setcolor(red); line(0,200,0,-200); line(-250,0,250,0);
outtextxy(-3,-200,'^');outtextxy(245,-3,'>');
outtextxy(8,-200,'y'); outtextxy(245,-15,' x');
end;
procedure ve;
begin
for i := -240 to 240 do
 begin
 x := i;
 y := round((x/sx)*(x/sx)*(x/sx)+(x/sx)*(x/sx)+(x/sx)+1)*sy);
 putpixel(x,y,yellow);
   y := round(i*sy/20);
 putpixel(x,y,yellow);
 end;
 end;
Begin
clrscr;
ktdh;
hetruc;
ve;
repeat until keypressed;
closegraph
end.

[tin_truc22]

Hồi đó giờ hình như tui chả biết cái Graph xài làm sao hết :P. Nhưng mình nghĩ chỉ cần dùng công thức của hàm bậc 3 nhập a,b,c vào rồi cho chạy từ từ khoảng cách từ 0.1 tăng tới 0.00001 gì đó cho nó đẹp.