Предмет: Информатика, автор: rikimaru1999

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

Приложения:

Аноним: Язык программирования какой?
rikimaru1999: Paskal

Ответы

Автор ответа: iolandavalerypad353
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.

Похожие вопросы
Предмет: Алгебра, автор: p4ramonovatatyana
Предмет: Алгебра, автор: usvadim67
Предмет: Математика, автор: derevce567876