Question

1. Вычислить значение функции, задание в табл. 2 (в соответствии с вариантом задания). Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.
2. Выполнить программу на ЭВМ и протестировать все ветви алгоритма.

Answer 1

// 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