Составляем программу в PascalABC для решения квадратного уравнения

Добро пожаловать на канал “ПроГрамМироВание“. В этом видео мы познакомимся с некоторыми функциями в программе ’PascalABC’, написав программу для поиска корней квадратного уравнения. Давайте начнем! Пример1 а=1 б=2 с=1 д=0 х=-1 Пример 2 а=2 б=1 с=2 д=-15 корней нет Пример 3 а=2 б=3 с=-2 д=25 х1=-2 х2=0,5 На этом закончим наше видео! Код program a1; var a,b,c,d,x,x1,x2:real; begin writeln(’Введите а,b,c.’); readln(a,b,c); writeln(a,’x2 ’,b,’x ’,c,’=0.’); d:=Sqr(b)-(4*a*c); if d(знак меньше)0 then writeln(’Корней нет’); if d=0 then begin x:=-b/(2*a); writeln(’Один корень - ’,x,’.’); end; if d(знак больше)0 then begin x1:=(-b-Sqrt(d))/(2*a); x2:=(-b Sqrt(d))/(2*a); writeln(’Два корня - ’,x1,’, ’,x2,’.’); end; end.