Код:
Код:
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 и так далее.. Помогите пожалуйста