СРОЧНО!!!!!!!!!!!!!!!!!!!!!! Помогите решить задачу номер 2,в паскале.Где система,очень...

Question

СРОЧНО!!!!!!!!!!!!!!!!!!!!!! Помогите решить задачу номер 2,в паскале.Где система,очень надо,наиболее простым способом если можно.

---

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 for var i := 0 to Trunc((95 + 100) / 0.5) do

 begin

   var z := -100 + 0.5 * i;

   var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);

   Writeln(z:6:1, y:20:16)

 end

end.

Результаты (приведены начало и конец)

-100.0  0.0099009900990099

-99.5  0.0099502487562189

-99.0  0.0100000000000000

-98.5  0.0100502512562814

-98.0  0.0101010101010101

. . . . . . .

 93.0  0.0106382978723404

 93.5  0.0105820105820106

 94.0  0.0105263157894737

 94.5  0.0104712041884817

 95.0  0.0104166666666667