1. Вычислить значение функции, задание в табл. 2 (в соответствии с вариантом задания). Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.
2. Выполнить программу на ЭВМ и протестировать все ветви алгоритма.
Приложения:
![](https://st.uroker.com/files/b99/b995a2824cf15e80352b62d4089d4b4d.png)
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,x):=(1.65,0.7);
while x<=2.01 do begin
Write(x:3:1);
if x<1.4 then Writeln(pi*x*x-7/x/x:15:5)
else
if x=1.4 then Writeln(a*x*x*x+7*Sqrt(x):15:5)
else Writeln(Ln(x+7*Sqrt(Abs(x+a))):15:5);
x+=0.1
end
end.
Пример
0.7 -12.74633
0.8 -8.92688
0.9 -6.09729
1.0 -3.85841
1.1 -1.98380
1.2 -0.33722
1.3 1.16728
1.4 2.61190
1.5 2.63360
1.6 2.65461
1.7 2.67498
1.8 2.69476
1.9 2.71397
2.0 2.73264
// Внимание! Если программа не работает, обновите версию!
begin
var (a,x):=(1.65,0.7);
while x<=2.01 do begin
Write(x:3:1);
if x<1.4 then Writeln(pi*x*x-7/x/x:15:5)
else
if x=1.4 then Writeln(a*x*x*x+7*Sqrt(x):15:5)
else Writeln(Ln(x+7*Sqrt(Abs(x+a))):15:5);
x+=0.1
end
end.
Пример
0.7 -12.74633
0.8 -8.92688
0.9 -6.09729
1.0 -3.85841
1.1 -1.98380
1.2 -0.33722
1.3 1.16728
1.4 2.61190
1.5 2.63360
1.6 2.65461
1.7 2.67498
1.8 2.69476
1.9 2.71397
2.0 2.73264
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад