(Паскаль) Напишите программу, которая по введённым с клавиатуры числам e, f и g будет вычислять значения коэффициентов a, b и c квадратного уравнения по предлагаемым формулам, а также значение дискриминанта D, решать это квадратное уравнение и выдавать результаты его решения.
a = √(|e² - g| / 3)
b = |e - f/7|³ - cos g
c = f³ - g/17,
где дискриминант D = b² - 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

В программе функции Sqrt и Cos работают с действительными числами; угол для косинуса измеряется в радианах.

Программа на Паскале:
program KvadratnoeUravnenie;
var
  e, f, g, a, b, c, d, x1, x2: real;
begin
  write('e = '); readln(e);
  write('f = '); readln(f);
  write('g = '); readln(g);

  a := sqrt(abs(e * e - g) / 3);
  b := sqr(abs(e - f / 7)) * abs(e - f / 7) - cos(g);
  c := f * f * f - g / 17;
  d := b * b - 4 * a * c;

  writeln('a = ', a:0:5);
  writeln('b = ', b:0:5);
  writeln('c = ', c:0:5);
  writeln('D = ', d:0:5);

  if a = 0 then
    writeln('Это не квадратное уравнение')
  else if d < 0 then
    writeln('Действительных корней нет')
  else if d = 0 then
  begin
    x1 := -b / (2 * a);
    writeln('x = ', x1:0:5);
  end
  else
  begin
    x1 := (-b + sqrt(d)) / (2 * a);
    x2 := (-b - sqrt(d)) / (2 * a);
    writeln('x1 = ', x1:0:5);
    writeln('x2 = ', x2:0:5);
  end;
end.

При \(e=2\), \(f=-3\), \(g=-3\) значение \(a\) равно примерно \(1{,}52753\), а \(c\) — примерно \(-26{,}82353\). Приведённые в условии значения \(b\), \(D\) и корней не соответствуют записанной формуле для \(b\): при степени \(3\) получится другое значение.

0 0 Пожаловаться