Question

Срочно! паскаль (с использованием операторов if и elsе) Напишите программу, которая по введенным с клавиатуры числам e, f, g, h и w будет вычислять значение коэффициента a, b и c квадратного уравнения по предлагаемым формулам, а также значение дискриминанта D, решать это квадратное уравнение и выдавать результаты его решения. a=7e-f/2, b=√((g+e)^2+h/w), c=|w^2-h| sin⁡a, Где дискриминант D=b^2-4ac; корни уравнения x_1,2=(-b±√D)/2a. отладьте программу на следующем примере: е=2, f= -5, g=-5, h=3, w=2 a=16.5 b=3.24037 c=-0.711785 D=57.4778 x1=0.131547 x2=-0.327933

Answer 1

Var
   e,f,g,h,w,a,b,c,D:real;
begin
readln(e);
readln(f);
readln(g);
readln(h);
readln(w);
a:=7*e-f/2;
b:=sqrt(sqr(g+e)+h/w);
c:=abs(sqr(w)-h)*sin(a);
D:=sqr(b)-4*a*c;
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('D = ',D);
if(D<0) then writeln('Корней нет')
else if(D = 0) then
  writeln('x = ',-b/(2*a))
else
begin
  writeln('x1 = ',(-b+sqrt(D))/(2*a));
  writeln('x2 = ',(-b-sqrt(D))/(2*a));
end;
end.