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

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

Задать свой вопрос
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 := Абс(z) lt; 1.5 ? Абс(z) + z * z : 1 / (Абс(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

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт