Вычислить с заданной точностью сумму ряда.

@Чайник_Валера · Регистрация: 27.12.2014

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

Дано действительное х.Вычислить с заданной точностью(10^-6) сумму ряда (сумма от к=1 до бесконечности выражения(1/x^2+K^3).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const z=0.000001;
var s,x:real;
      k:integer;
begin
K:=1;
s:=0;
writeln('Введите х');
readln(x);
while s>z do
s:=s+1/x*x+k*k*k;
k:=k+1;
writeln(s:0:5);
readln;
end.

Запускается,но при любом х выдает нули.

@vint-81 · 31.12.2014, 10:04

у Вас цикл не выполняется ни разу, т.к. s=0 и z=0.000001, тогда s>z - ложь

@Чайник_Валера · 31.12.2014, 10:12 **[ТС]**

vint-81 спасибо.

@Puporev · 31.12.2014, 11:11

Сообщение от Чайник_Валера

выражения(1/x^2+K^3).

Думаю что выражение 1/(x^2+k^3) иначе вряд ли сойдется ряд.

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const z=0.000001;
var s,t,x:real;
    k:integer;
begin
write('x=');
readln(x);
k:=1;
t:=1/(x*x+1);
s:=t;
while t>z do
 begin
  k:=k+1;
  t:=1/(x*x+k*k*k);
  s:=s+t
 end;
writeln(s:0:5);
readln;
end.

@Чайник_Валера · 31.12.2014, 12:09 **[ТС]**

подскажите, пожалуйста ,а можно ли так:

Pascal
1
2
3
4
5
6
K:=1;
s:=0;
while 1/(x*x+k*k*k)>z do begin
s:=s+1/(x*x+k*k*k);
k:=k+1;
end:

@Puporev · 31.12.2014, 12:24

Сообщение от Чайник_Валера

а можно ли так:

Ну запусти да проверь.

Добавлено через 2 минуты
Тебе уже писали что если s:=0 то ничего не выйдет, напиши

Pascal
1
s:=1/(x*x+1);

@Чайник_Валера · 31.12.2014, 12:35 **[ТС]**

puporev, проверял работает,но значение другие, чем при использования вашего кода.И мне писали ,что при s:=0 цикл не выполняется т.к s>z - ложь.Так почему не подходит while 1/(x*x+k*k*k)>z do.

@Puporev · 31.12.2014, 12:37

Сообщение от Чайник_Валера

т.к s>z - ложь

Все верно, я ошибся.

@Чайник_Валера · 31.12.2014, 12:51 **[ТС]**

но, не пойму почему разные ответы при

Pascal
1
2
3
4
5
6
K:=1;
s:=0;
while 1/(x*x+k*k*k)>z do begin
s:=s+1/(x*x+k*k*k);
k:=k+1;
end;

и вашим

Pascal
1
2
3
4
5
6
7
8
9
k:=1;
t:=1/(x*x+1);
s:=t;
while t>z do
 begin
  k:=k+1;
  t:=1/(x*x+k*k*k);
  s:=s+t
 end;

@Puporev · 31.12.2014, 13:26

У меня одно и тоже

@Чайник_Валера · 31.12.2014, 13:35 **[ТС]**

Сейчас перепроверю.

Добавлено через 6 минут
Puporev,спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности Express.js бэкенда Reangularity 23.05.2025 Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .	Продвинутая обработка данных с LINQ в C# stackOverflow 23.05.2025 LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .	Инфраструктура PKI и сертификатов безопасности Mr. Docker 23.05.2025 PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .	Аутентификация OAuth в Python py-thonny 22.05.2025 OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .	Хеширование и соль паролей в веб-приложениях C# stackOverflow 22.05.2025 Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	31.12.2014, 10:04
	у Вас цикл не выполняется ни разу, т.к. s=0 и z=0.000001, тогда s>z - ложь 0

@Чайник_Валера 1 / 1 / 0 Регистрация: 27.12.2014 Сообщений: 25
	31.12.2014, 10:12 [ТС]
	vint-81 спасибо. 0

@Чайник_Валера 1 / 1 / 0 Регистрация: 27.12.2014 Сообщений: 25
	31.12.2014, 12:35 [ТС]
	puporev, проверял работает,но значение другие, чем при использования вашего кода.И мне писали ,что при s:=0 цикл не выполняется т.к s>z - ложь.Так почему не подходит while 1/(xx+kk*k)>z do. 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	31.12.2014, 13:26
	У меня одно и тоже Миниатюры 1

@Чайник_Валера 1 / 1 / 0 Регистрация: 27.12.2014 Сообщений: 25
	31.12.2014, 13:35 [ТС]
	Сейчас перепроверю. Добавлено через 6 минут Puporev,спасибо за помощь. 0

Опции темы