Question

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.

Answer 1

program TabulW;

var

 a, b, c, x, dx, w: real;

begin

 a := 2.8;

 b := -0.3;

 c := 4.0;

 x := 1.0;

 dx := 0.05;

 

 Writeln('   a       b       c       x       w');

 while x - 2 < 0.0001 do

 begin

   if x < 1.2 then

     w := a * x * x + b * x + c

   else if x > 1.2 then

     w := (a + b * x) / sqrt(x * x + 1)

   else

     w := a / x + sqrt(x * x + 1);

   Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);

   x += dx

 end;

 Readln;

end.