• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε

  • Автор темы Автор темы yuma
  • Дата начала Дата начала
Y

yuma

Banned
Регистрация
26 Апр 2013
Сообщения
2
Реакции
0
Баллы
0
Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε

помогите пожалуйста не могу сделать(
_var_www_s1_temp_13_115_9_z065yuq9wJuO.webp

_var_www_s1_temp_13_115_9_SQ3xWNI9G7.webp
 
yuma написал(а):
помогите пожалуйста не могу сделать(
Нажмите для раскрытия...
Увы - и мы тут абсолютно бессильны. Опять эти гады телепаты в отпуск укатили, а без них - ну как мы узнаем, на каком языке программирования должна быть написана программа? Никак...
 
Vladimir_S написал(а):
Увы - и мы тут абсолютно бессильны. Опять эти гады телепаты в отпуск укатили, а без них - ну как мы узнаем, на каком языке программирования должна быть написана программа? Никак...
Нажмите для раскрытия...

:D паскаль абс
 
yuma написал(а):
паскаль абс
Нажмите для раскрытия...
Ну тогда-то что... У меня, правда, Free Pascal, но, думаю, не существенно:
Код: 
VAR
 N:Integer;
 S,x,a,Eps:Real;

BEGIN
 Write('x= ');
 ReadLn(x);
 Write('Eps= ');
 ReadLn(Eps);
 a:=1;
 S:=a;
 N:=0;
 Repeat
  Inc(N);
  a:=a*2*x/N;
  S:=S+a;
 Until (Abs(a)<Eps) or (N=100);
 WriteLn('Result: ',S:0:(Round(1/Eps)+1),'  N= ',N,'  Accurate value: ',Exp(x*2):0:(Round(1/Eps)+1));
 Readln
END.
И да, у меня к Вам личная просьба: передайте, пожалуйста, составителю методички, что он (она) полный(-ая) безграмотный(-ая) необразованный(-ая) идиот(-ка). Ибо в разложении экспоненты в числителях должны стоять возрастающие степени одного и того же числа, в данном случае - 2х. А никакие не 3х, 4х и т.п.
 
Vladimir_S написал(а):
Ну тогда-то что... У меня, правда, Free Pascal, но, думаю, не существенно:
Код: 
VAR
 N:Integer;
 S,x,a,Eps:Real;

BEGIN
 Write('x= ');
 ReadLn(x);
 Write('Eps= ');
 ReadLn(Eps);
 a:=1;
 S:=a;
 N:=0;
 Repeat
  Inc(N);
  a:=a*2*x/N;
  S:=S+a;
 Until (Abs(a)<Eps) or (N=100);
 WriteLn('Result: ',S:0:(Round(1/Eps)+1),'  N= ',N,'  Accurate value: ',Exp(x*2):0:(Round(1/Eps)+1));
 Readln
END.
И да, у меня к Вам личная просьба: передайте, пожалуйста, составителю методички, что он (она) полный(-ая) безграмотный(-ая) необразованный(-ая) идиот(-ка). Ибо в разложении экспоненты в числителях должны стоять возрастающие степени одного и того же числа, в данном случае - 2х. А никакие не 3х, 4х и т.п.
Нажмите для раскрытия...

во во согласен с вами) я вообще не понял что там в задание написано. спасибо большое за помощь)
 
yuma написал(а):
...
Нажмите для раскрытия...
eicecall написал(а):
...
Нажмите для раскрытия...
Так, уже как модератор имею сообщить следующее: вопреки нашим Правилам (п. 3.6), Вы зарегистрировали два аккаунта. По этому случаю оба пользователя с никами yuma и eicecall отправляются в вечный бан, Вам же я предлагаю зарегистрироваться еще раз и уже в единственном числе и впредь держаться в рамках Правил.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху