Question

Witam otoz musze napisac kod ktory wyrysuje mi funkcje kwadratowa...
Napisalem narazie tyle:

procedure fkw;
begin
clrscr;
writeln('podaj wspolczynniki a,b,c trojmianu kwadratowego');
readln(a,b,c);
delta:=(b*b)-(4*a*c);
writeln('delta=',delta:0:2);

if delta<0 then writeln('bierzace rownanie nie ma rozwiazania');
else
begin
if delta>0 then
begin
w1:=((-b)-sqrt(delta))/(2*a);
w2:=((-b) sqrt(delta))/(2*a);
writeln('x1=',w1:0:2);
writeln('x2=',w2:0:2);
end
else
begin
w1:=(-b)/(2*a);
writeln('x0=',w1:0:2);
end;
end;
readkey;

ster:=vga;
tryb:=vgahi;
initgraph(ster,tryb,'c:\pascal');

line(320,1,320,480);
line(1,240,640,240);
line(320,1,310,10);
line(320,1,330,10);
line(640,240,630,230);
line(640,240,630,250);


readkey;
closegraph;
end;


I co mam zrobic zeby obliczana funkcje wyswietlilo mi na wykresie ??
Bardzo prosze o pomoc. Z gory dziekuje.

delta,a,b,c,w1,w2,:real

Answer 1

Program rownaniekw;
VAR
d,a,b,c,x,x1,x2:real;
Begin
Writeln('Podaj wspolczynniki rownania kawdratowego');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
d:=b*b-4*a*c;
writeln('Delta=',d:2:2);
If d>0 then
begin
x1:=(-b-sqrt(d))/2*a;
x2:=(-b+sqrt(d))/2*a;
writeln('Rownanie ma 2 rozwiazania x1=' ,x1:2:2,' x2=' ,x2:2:2);
end
else
if d=0 then
begin
x:=-b/2*a;
writeln('Rownanie ma 1 rozwiazanie x=',x:2:2);
end
else
writeln('Rownanie nie nie ma rozwiazania');
readln;
End.