вычисление корней онлайн

Ответ от Єанзил Гильмутдинов[активный]
Это для вычисления для корней и для выявления действительно ли число иль нет. >>> Program Pascal; Uses crt; Var i:integer; a,b,c,d,x1,x2:real; begin clrscr; writeln(\'Введите коэффициенты уравнения A:\'); readln(a); writeln(\'B:\'); readln(b); writeln(\'C:\'); readln(c); {считаем значение диксриминанта d} d:=sqr(b/a) - 4*(c/a); {в зависисмости от дискриминанта, тот или иной ход решения} if d<0 then writeln(\'Уравнение имеет комплексные корни\'); if d=0 then begin x1:= (-1*(b/a))/2; writeln(\'Уравнение имеет один действительный корень решения: \',x1:5:2) end; if d>0 then begin x1:=((-1*(b/a))+sqrt(d))/2; x2:=((-1*(b/a))-sqrt(d))/2; writeln(\'Действительные корни уравнения: x1= \',x1:5:2,\' x2=\',x2:5:2); end; writeln(\'Нажмите Enter\'); readln; end. Это простой способ... >>> program kv; var a,b,c,D,x1,x2:real; begin Read(a,b,c); D:=sqr(b)-4*a*c; if D<0 then WriteLn(\'Действительных корней нет\') else begin d:=sqrt(d); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); WriteLn(\'x1=\',x1); WriteLn(\'x2=\',x2); end; end.