Решение биквадратного уравнения Паскаль....

[КиношкА]

Немогу найти ошибку простенькое задание на уровне 9 класа школы а вот чтото забыла и нечего не получаеться.....

 var a,b, c, x1,x2,x3,x4,x5,x6,x7,x8,x9, t1,d,t2,n:real;
Begin
 writeln('vvedite a');
 readln(a);
 writeln('vvedite b');
 readln(b);
 writeln('vvedite c');
 readln(c);

 d:=(b*b-4*a*c);
 if d=0 then

   n:=-b/(2*a);  begin
   if n<0 then writeln('net resheniy') else
 x1:=sqr(n);
 x2:=-sqr(n);
writeln('x1=',x1:5:2,',x2=',x2:5:2)
end;
if d<0 then writeln('net resheniy')
else t1:=(-b+sqrt(d))/(2*a);

t2:=(-b-sqrt(d))/(2*a);
begin

if (t1<0) and (t2>0) then  x3:=sqrt(t2);
x4:=-sqrt(t2);
writeln('x1=',x3:5:2,',x2=',x4:5:2);
if t2<0 then x4:=sqrt(t1);
x5:=-sqrt(t1);
writeln('x1=',x4:5:2,',x2=',x5:5:2);
if t1>0 then


x6:=sqrt(t1);
x7:=-sqrt(t1);
x8:=sqrt(t2);
x9:=-sqrt(t2);
writeln('x1=',x6:5:2,',x2=',x7:5:2,',x3=',x8:5:2,',x4=',x9:5:2);
end;
readln;
End.

скорее всего ошибки со множиствои ифов..... хотя фиг его знает объесните плиз в чём ошибка?

[Makarov]

d:=(b*b-4*a*c); - это дискриминант.
if d=0 then - здесь происходит проверка, равен ли дискриминат нулю,
а n:=-b/(2*a); по-моему вместо b должно быть d. И проверьте все else.

[КиношкА]

Сообщение от Makarov

d:=(b*b-4*a*c); - это дискриминант.
if d=0 then - здесь происходит проверка, равен ли дискриминат нулю,
а n:=-b/(2*a);

нет здесь должен быть b если d=0 то корень мы вычислить не можем.... следственно считаем по этой формуле..... n:=-b/(2*a);

всё else вродь на месте.....

[Makarov]

Во например
# if d<0 then writeln('net resheniy')
# else t1:=(-b+sqrt(d))/(2*a);
#
# t2:=(-b-sqrt(d))/(2*a);
Если d=0, тут все понятно. А с else? Если d не равно нулю, то он будет считать только t1. А чтобы он считал и t2 после else нужно поставить begin, а после t2 end, закрывающий этот begin. По-моему так.

[КиношкА]

Makarov не так тоже не получаеться всёравно выдаёт 3 ответа.....

[pushok]

...

d:=(b*b-4*a*c);   
if d=0 then n:=-b/(2*a)

else if n<0 then writeln('net resheniy') 

else 
 begin 
 x1:=sqr(n);   
 x2:=-sqr(n);   
 writeln('x1=',x1:5:2,',x2=',x2:5:2)   
 end;

[_Dmitry]

Я бы упростил немного логику

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;

Begin
  write('vvedite a='); readln(a);
  write('vvedite b='); readln(b);
  write('vvedite c='); readln(c);

  d:=b*b-4*a*c;
  if d >= 0 then
    begin
      t1:=(-b+sqrt(d))/(2*a);
      t2:=(-b-sqrt(d))/(2*a);
      if t1 >= 0 then
        begin
          x1:=sqrt(t1); x2:=-x1;
          write('x1=',x1:5:2,', x2=',x2:5:2);
        end
      else write('x1=no, x2=no');
      if t2 >= 0 then
        begin
          x3:=sqrt(t2); x4:=-x3;
          writeln(', x3=',x3:5:2,', x4=',x4:5:2);
        end
      else writeln(', x3=no, x4=no');
    end
  else writeln('x1=no, x2=no, x3=no, x4=no');
  readln;
End.

[КиношкА]

_Dmitry
Идея неплохая, но нам сказали расписать это по полной)))0 А не так как ты предлогаешь)))) Спасиб за помлщь)))

П.С. я уже справилась с заданием всем огромное спасибо)

[torel]

КТО ЖЕ ВСЕТАКИ НАПИШЕТ ПРАВИЛЬНОЕ РИШЕНИЕ???