Mała pomoc

[buko666]

Witam.Małą pomoc proszę:Mój program ma za zadanie znajdować miejsce zerowe funkcji oraz rysować wykres tej funkcji.

Oto kod:

uses graph,crt;

var st,tr,a,b,c,x,i,aa,bb,cc:Integer;

 

function f(x,a,b,c:real):real;

begin

f:=a*x*x+b*x+c;

end;

 

begin;

clrscr;

write('wpisz zmienna a: ');

readln(aa);

write('wpisz zmienna b: ');

readln(bb);

write('wpisz zmienna c: ');

readln(cc);

 

detectgraph(st,tr);

initgraph(st,tr,'c:/tp/bgi');

setcolor(green);

for a:=1 to 64 do line(a*10,480,a*10,1);

for a:=1 to 48 do line(1,a*10,640,a*10);

setcolor(12);

setlinestyle(0,0,3);

line(1,240,640,240);line(320,480,320,1);{os wspolrzednych}

setcolor(10);

line(320,1,315,19);line(320,1,325,19);{os y}

line(640,240,620,235);line(640,240,620,246);{os x}

for a:=1 to 61 do line(a*10,245,a*10,235);

for a:=3 to 47 do line(315,a*10,325,a*10);

setcolor(red);

settextstyle(5,0,3);

outtextxy(335,3,'X');

outtextxy(610,245,'Y');

setcolor(15);

setlinestyle(1,0,1);

for i:=-300 to 300 do circle(i+320,Round(-f(i/10,aa,bb,cc))*10+240,1);

 

readln;

closegraph;

end.

Na czym polega mój problem otóż chodzi mi oto aby program rysował mi linie zamiast kropek aczkolwiek kółek.Program działa no ale estetyczniej wyglądało to by właśnie jakby była rysowana linia zamiast wspomnianych kółek.

[Jason]

No to w czym problem? Nie wiesz jaki program napisałeś? Zamiast circle użyj line i będzie No i jeszcze na przyszłość, użyj formatowania kodu...

[krajew4]

"zamiast kropek aczkolwiek kółek?"