profile
Опубликовано 6 лет назад по предмету Информатика от Анастасия101997

Напишите программу, которая по введённым с клавиатуры числам e, f и g будет вычислять значение коэффициентов a,b и c квдратного уравнения по предлагаемым формулам, а также значение дискриминанта D, решать это квадратное уравнение и выдавать результаты его решения. a=|e-f|(|e-f| - в третьей степени) b= корень из (3e + 17)(3e+17 - в четвёртой степени) c=(g-f): 144, где D=b(в квадрате) - 4ac, корни уравнения x1,2=(-b+- корень изD): 2a отладьте программу на следующем примере: e=2 f=-2 g=3 a=64 b=529 c=0,0347222 d=279832 x1=-6<53267E-05 x2=-8,26556

  1. Ответ
    Ответ дан freakish

    var a,b,c,D,x1,x2:real;

    e,f,g:integer;

    begin

    writeln("vvedite koefficienty: ");

    read(e);

    read(f);

    read(g);

    a:=sqr(abs(e-f))*abs(e-f);

    b:=sqr(sqr(sqrt(3*e+17)));

    c:=(g-f)/144;

    D:=sqr(b)-4*a*c;

    x1:=(-b+sqrt(d))/(2*a);

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

    writeln("x1=",x1,"x2=",x2);

    readln

    end.

Самые новые вопросы