Предмет: Информатика,
автор: rikimaru1999
Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.
Приложения:
![](https://files.topotvet.com/i/79f/79f329aaa993ba04e5bd1fb79c07d143.jpg)
Аноним:
Язык программирования какой?
Ответы
Автор ответа:
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
Предмет: Математика,
автор: juliamaksiyk87
Предмет: Алгебра,
автор: usvadim67
Предмет: Математика,
автор: Spn1
Предмет: Математика,
автор: derevce567876