Регистрация
Динара22235
03.01.2021 13:43
Информатика
Есть ответ 👍

(паскаль) напишите программу, которая по введенным с клавиатуры числам e, f и g будет вычислять значения коэффициентов a, b и c квадратного уравнения по предлагаемым формулам, а также значение дискриминанта d, решать это квадратное уравнение и выдавать результаты его решения. a= √(|e^2-g| / 3) b= |e-f/7|^3 - cos g c= f^3 - g/17, где дискриминант d=b^2-4*a*c; корни уравнения x1,2= -b+-√d / 2*a e=2 f= -3 g= -3 a=1.52753; b=1.35442; c=-26.8235; d=165/729; x1=3.77053; x2=-4.65721

245
272
Посмотреть ответы 2

Ответы на вопрос:

Асия2008
Асия2008
4,6(82 оценок)
Var   a,b,c,d,e,f,g,x1,x2: real; begin   write('введите значения e,f,g: '); readln(e,f,g);   a: =sqrt(abs(sqr(e)-g)/3); writeln('a= ',a: 0: 5);   b: =abs((e-f)/7); b: =b*sqr(b)-cos(g); writeln('b= ',b: 0: 5);   c: =f*sqr(f)-g/17; writeln('c= ',c: 0: 5);   d: =sqr(b)-4*a*c;   if d< 0 then writeln('действителных корней нет')   else       if d=0 then begin           x1: =(-b-sqrt(d))/(2*a); x2: =x1;           writeln('x1=x2= ',x1: 0: 5)       end       else begin           x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a);           writeln('x1= ',x1: 0: 5,', x2= ',x2: 0: 5)       end end. тестовое решение: введите значения e,f,g: 2 -3 -3 a= 1.52753 b= 1.35442 c= -26.82353 x1= -4.65721, x2= 3.77053
serartem73
serartem73
4,4(27 оценок)

Там, где выводятся эти значения (например WriteLn(...)),

нужно указать формат вывода,

например

WriteLn( x:1:3 );

3 - это три знака после запятой

Объяснение:

Популярно: Информатика