• Срочно!!!! с подробным решением. В Паскаль
    Дано действительное число х≠0. Вычислить значение выражения с точностью 10^-3

    question img

Ответы 1

  • // PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var (x,eps):=(ReadReal('x='),1e-3);  var p:=MaxReal; // для предществующего члена ряда  var (k,s):=(1,0.0); // гначальные присваивания  while true do begin // выход по break    var t:=1/(x*x+k*k*k); // очередной член ряда    if Abs(t-p)<=eps then break; // достигнута точность eps    s+=t; // накопление суммы    p:=t; // запомнили значение как "предыдущее"    k+=1 // следующее k    end;  Writeln('S= ',s:0:3)end.Примерx= 2.43S= 0.2
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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