[JamperPro]

Код:

Код:

program Rivnyannya;
var D1,a,b,c,d,e,g,j,k,h:integer;
    x,x1,x2:real;
    
Begin
  WriteLn('Введiть a');
  ReadLn(a);
  WriteLn('Введiть b');
  ReadLn(b);
  WriteLn('Введiть c');
  ReadLn(c);
  WriteLn('Введiть d');
  ReadLn(d);
  WriteLn('Введiть e');
  ReadLn(e);
  WriteLn('Введiть g');
  ReadLn(g);
  WriteLn('Введiть j');
  ReadLn(j);
  WriteLn('Введiть k');
  ReadLn(h);
  WriteLn('Введiть h');
  ReadLn(a);
  D1:=(3*d+e+5*g)*(3*d+e+5*g)-4*(a+b+2*c)*(j+k+7*h);
  if D1>0 then
  begin
  x1:=(-(3*d+e+5*g)+sqrt(D1))/(2*(a+b+2*c));
  x2:=(-(3*d+e+5*g)-sqrt(D1))/(2*(a+b+2*c));
  WriteLn('x1=',x1);
  Writeln('x2=',x2);
  end 
  else if D1=0 then
   begin
   x:=-(3*d+e+5*g)/(2*(a+b+2*c));
   WriteLn('x=',x);
   end
   else WriteLn('Немає коренів');
   ReadLn;
End.

Админ: Пользуемся тегами при оформлении кода!
Програма выдаёт немного не то значения что нужно. Это как бы обычное квадратное уравнение, просто нужно будет еще вводить a,b,c,d,e и так далее.. Помогите пожалуйста

[lmikle]

см внимательно на строки 21 и 23. Не те переменные читаешь.