Теперь Кью работает в режиме чтения

Мы сохранили весь контент, но добавить что-то новое уже нельзя

Pascal ABC. Ввести х, вычислить функцию?

https://i.imgur.com/BUPMuUw.png
Языки программированияPascal abc
More XO
  · 262
Интересуюсь IT, учусь на Мехмате ЮФУ  · 10 дек 2022  · u-pov.ru
Легко реализовать путем трех веток if-а:
##
var x := readreal('Введите x:');
if x > 4.5 then
  println('y = 2x =', 2*x)
else if (0 <= x) and (x <= 4.5) then
  println('y = 1 - ln|1 - x^2| =', 1 - ln(1 - x ** 2))
else if x < 0 then
  println('y = exp(-x) =', exp(-x));
UserPOV - об IT с точки зрения пользователяПерейти на u-pov.ru