• Вычислить значение функции. Паскаль

    question img

Ответы 1

  • // PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!1. Современное решениеbegin  var x:=ReadReal('x=');  var F:=x<7 ? -x*x : 2**(-x)/(x*x-9);  Writeln('F(x) = ',F)end.Примерыx= 5.3F(x) = -28.09x= 8F(x) = 7.10227272727273E-052. Решение в стиле "ТурбоПаскаль конца 80-х"var  x,F:real;begin  Write('x= ');  Readln(x);  if x<7 then F:=-x*x  else F:=Exp(-x*Ln(2))/(x*x-9);  Writeln('F(x) = ',F);  Readlnend.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years