Постройка функции y:=ax*x+bx+c

@golukon · Регистрация: 10.05.2013

Author24 — интернет-сервис помощи студентам

У меня есть программа, которая вычисляет корни уравнения вида ax*x+bx+c:=0. Вот она:

Pascal

program kBaDPaT;
uses crt, graphABC;
var a, b, c, h, m, D, z:real;
begin
writeln('Введите a в уравнении вида ax*x+bx+c=0');
readln (a);
writeln('Введите b в уравнении вида ax*x+bx+c=0');
readln (b);
writeln('Введите c в уравнении вида ax*x+bx+c=0');
readln (c);
D:=b*b-4*a*c;
if D<0 then
writeln('Данное уравнение не имеет корней')
else
begin
z:=sqrt(D);
m:=(-b+z)/(2*a);
h:=(-b-z)/(2*a);
if m=h then
writeln('x=', m)
else
writeln('Первый x=', m, '      Второй x=', h);
end;
end.

Мне надо так дополнить эту программу, чтобы она ещё строила графики функции y=a*x*x+b*x+c. Естественно мне нужно, чтобы программа также рисовала ось x и ось y со штриховкой до 40. Заранее спасибо.

	11.05.2013, 15:37