Решить биквадратное уравнение - Pascal (6229)

Формулировка задачи:

2)даны a b c биквадратное ax^4+bx^2+c=0 решить пожалуйста зачет сдать а то на пары не ходил(( в паскале

Решение задачи: «Решить биквадратное уравнение»

Листинг программы

program pr1;
uses crt;
var a,b,c:integer;
    x2,x,t,t2,d:real;
begin
clrscr;
writeln('Введите a,b,c');
readln(a); readln(b); readln(c);
d:=0; d:=sqr(b)-4*a*c;
if d>0 then begin
            t:=(-b-sqrt(d))/(2*a);
            t2:=(-b+sqrt(d))/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корень х1= +-',x);
                                              end;
            if t2<0 then writeln('действительных корней нет') else
                                               begin
                                               x2:=sqrt(t2);
                                               writeln('корень х2= +-',x2);
                                               end;
            end;
if d=0 then begin
            t:=(-b)/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корни= +-',x);
                                              end;
            end;
if d<0 then writeln('действительных корней нет');
readln;
end.

Объяснение кода листинга программы

В программе объявлены переменные a, b, c типа integer и переменные x2, x, t, t2, d типа real.
В начале программы выводится сообщение для ввода значений a, b, c.
Значение переменной d вычисляется как квадрат значения переменной b минус 4 умноженных на a и c.
Если значение переменной d больше нуля, то вычисляются значения t и t2 как частные от деления -b и sqrt(d) соответственно на 2*a.
Если значение t меньше нуля, то выводится сообщение о том, что действительных корней нет. В противном случае выводятся значения корней x1 и x2. Значение x1 вычисляется как sqrt(t), а значение x2 вычисляется как sqrt(t2).
Если значение переменной d равно нулю, то вычисляется значение t как -b деленное на 2*a. Если значение t меньше нуля, то выводится сообщение о том, что действительных корней нет. В противном случае выводятся значения корней x1 и x2, которые вычисляются как sqrt(t) и sqrt(t2) соответственно.
Если значение переменной d меньше нуля, то выводится сообщение о том, что действительных корней нет.
Программа завершается после ввода и обработки всех данных.