Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Решить квадратное уравнение - Паскаль

Эта программа решает квадратное уравнение \(ax^{2}+bx+c=0\) и вывод его корни. После запуска программы надо ввести через пробел три коэффициента: a,b,c. Если дискриминант меньше нуля, то выдается сообщение о том, что корней нет. Если дискриминант равен нулю, то выводится один корень, если больше нуля, то выводятся два корня. Точность решения - два знака после запятой. Программа написана не очень грамотно, поэтому ваш преподаватель легко поверит, что Вы ее решили сами. Пригодится не только школьникам, но и студентам, которые только начинают изучать программирование на Паскале.
Program Kvadrat;
var a,b,c,x1,x2,d:real;
BEGIN
write('Vvedite a,b,c: ');
readln(a,b,c);
d:=(b*b)-(4*a*c);
if D<0 then writeln('NET reshenii');
if D=0 then begin
x1:=-b/(2*a);
writeln('x= ',x1:0:2);
 end;
if D>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1:0:2,'; x2= ',x2:0:2);
 end;
readln;
END.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]