Code:
program grafik;
uses crt,graph;
var a,b,c:real;
x,y,xs,ys:integer;
procedure inicijalizacija;
var driver,mode:integer;
begin
clrscr;
driver:=detect;
initgraph(driver,mode,'');
end;
procedure unos;
begin
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
end;
procedure ordinate;
var i:integer;
begin
line (0,380,1024,380);
line (510,0,510,768);
for i:=0 to 1024 do
if i mod 10=0 then
line (i,378,i,382);
for i:=0 to 768 do
if i mod 10=0 then
line (508,i,512,i);
end;
procedure grafik;
begin
for x:=1 to 10 do
begin
y:=round(a*sqr(x)+b*x+c); {racuna y tacku grafika funkcije}
x:=x+510; {prikazuje x i y odnosu na novi}
y:=-y+380; {koordinatni pocetak (510,380) }
if xs<>0 then
line (xs,ys,x,y);
xs:=x; {xs,ys- prethodne koordinate za x,y}
ys:=y;
write ('x=',x);
writeln ('y=',y);
end;
end;
begin
clrscr;
unos;
inicijalizacija;
ordinate;
grafik;
readln;
closegraph;
end.
program grafik;
uses crt,graph;
var a,b,c:real;
x,y,xs,ys:integer;
procedure inicijalizacija;
var driver,mode:integer;
begin
clrscr;
driver:=detect;
initgraph(driver,mode,'');
end;
procedure unos;
begin
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
end;
procedure ordinate;
var i:integer;
begin
line (0,380,1024,380);
line (510,0,510,768);
for i:=0 to 1024 do
if i mod 10=0 then
line (i,378,i,382);
for i:=0 to 768 do
if i mod 10=0 then
line (508,i,512,i);
end;
procedure grafik;
begin
for x:=1 to 10 do
begin
y:=round(a*sqr(x)+b*x+c); {racuna y tacku grafika funkcije}
x:=x+510; {prikazuje x i y odnosu na novi}
y:=-y+380; {koordinatni pocetak (510,380) }
if xs<>0 then
line (xs,ys,x,y);
xs:=x; {xs,ys- prethodne koordinate za x,y}
ys:=y;
write ('x=',x);
writeln ('y=',y);
end;
end;
begin
clrscr;
unos;
inicijalizacija;
ordinate;
grafik;
readln;
closegraph;
end.
Kod jos nije gotov, htio sam uvesti i nekoliko novih opcija, ali prvo treba ovo da mi proradi.