Вычислить значение выражения

@jaha_050 · Регистрация: 23.09.2016

Студворк — интернет-сервис помощи студентам

Нужен полный код.

Найти сумму ряда с точностью ε, общий член которого равен

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> a_n=\frac{3\cdot n!}{(3n)!}<br />$

Точность считается достигнутой, если следующий член последовательности меньше заданного ε.

@JokeR.BY · 10.10.2016, 17:23

при n от 0

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
    EPS = 0.000001;
var
    i: LongWord;
    sum, sumi: Double; //Real
begin
    sum := 0; sumi := 3; i := 0;
    while (Abs(sumi) > EPS) do
    begin
        sum := sum + sumi;
        Inc(i);
        sumi := sumi / 3 / (3 * i - 2) / (3 * i - 1);
    end;
    WriteLn(sum:0:6);
end.

@jaha_050 · 23.10.2016, 15:47 **[ТС]**

Где у меня тут не правильно???

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
    i: LongWord;
    sum, sumi, EPS: Double; //Real
begin
    write('Ввод EPS=');
    readln(EPS);
    
    sum := 0; sumi := 3; i := 0;
    while (Abs(sumi) > EPS) do
    begin
        sum := sum + sumi;
        Inc(i);
        sumi := sumi / 3 / (3 * i - 2) / (3 * i - 1);
    end;
 
    WriteLn(sum:0:6);
end.

@Cyborg Drone · 24.10.2016, 01:14

Всё правильно. jaha_050, что идёт не так?

@jaha_050 · 25.10.2016, 17:00 **[ТС]**

когда в EPS ввожу 0,0001 даёт ответ, если EPS= 0,001 то у них ответ одинаковы

@Cyborg Drone · 28.10.2016, 10:01

Всё верно. Ряд сходится достаточно быстро, поэтому различие точности всего лишь на порядок может и не добавить нового члена к ряду... Чтобы увидеть различия, сделайте так, чтобы печаталось большее количество знаков после десятичной точки:

Pascal
16
    WriteLn(sum:0:15);

и вводите EPS с большим различием, например, 0.01 и 0.000001.

Или... Может быть, Вы всего лишь желаете, чтобы при разных EPS печаталось разное количество цифр после десятичной точки?

Добавлено через 5 минут
Тогда вот так, например:

Pascal
16
    WriteLn(sum:0:trunc(-ln(EPS)/ln(10))+1);

@JokeR.BY · 28.10.2016, 10:25

вариант с функцией для понимания что делается в trunc(-ln(EPS)/ln(10))+1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function EpsToCount(eps: Double): Byte;
var
    Result: Byte;
begin
    Result := 0;
    repeat
        Inc(Result);
        eps := eps * 10;
    until (eps >= 1);
    EpsToCount := Result;
end;
var
    i: LongWord;
    sum, sumi, eps: Double; //Real
begin
    Write('Eps='); ReadLn(eps);
    sum := 0; sumi := 3; i := 0;
    while (Abs(sumi) > eps) do
    begin
        sum := sum + sumi;
        Inc(i);
        sumi := sumi / 3 / (3 * i - 2) / (3 * i - 1);
    end;
    WriteLn(sum:0:EpsToCount(eps));
end.

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@jaha_050 1 / 1 / 1 Регистрация: 23.09.2016 Сообщений: 69

	Вычислить значение выражения 10.10.2016, 16:24. Показов 1204. Ответов 6 Метки нет (Все метки) Нужен полный код. Найти сумму ряда с точностью ε, общий член которого равен $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> a_n=\frac{3\cdot n!}{(3n)!}<br />$ Точность считается достигнутой, если следующий член последовательности меньше заданного ε. 0

@Cyborg Drone Модератор 10261 / 5548 / 3375 Регистрация: 17.08.2012 Сообщений: 16,935
	24.10.2016, 01:14
	Всё правильно. jaha_050, что идёт не так? 1

@jaha_050 1 / 1 / 1 Регистрация: 23.09.2016 Сообщений: 69
	25.10.2016, 17:00 [ТС]
	когда в EPS ввожу 0,0001 даёт ответ, если EPS= 0,001 то у них ответ одинаковы 0

Опции темы

Вычислить значение выражения

Решение