Подсчет суммы ряда с заданной точностью

@Марсик · Регистрация: 30.05.2016

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

Помогите пожалуйста с программой в Pascal Написать программу подсчета суммы ряда с заданной точностью е=0,0001: sum (1/n^5) на языке Паскаль.

@JokeR.BY · 31.05.2016, 14:28

пролистайте страницу ниже. там найдёте редактор формул. соизвольте привести формулу в читабельный вид, и тогда - no problem.

@Марсик · 01.06.2016, 08:48 **[ТС]**

Написать программу подсчета суммы ряда с заданной точностью е=0,0001: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum \frac{1}{n^5}$

@JuriiMW · 01.06.2016, 09:48

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  eps = 1e-4;
 
var
  n : Integer;
  sum, term : Real;
  
begin
  n := 0;
  sum := 0;
  repeat
    Inc(n);
    term := 1 / n / n / n / n / n;
    sum := sum + term;
  until term < eps;
  WriteLn('sum(', n, ') = ', sum:0:5);
end.

@Марсик · 01.06.2016, 10:59 **[ТС]**

начала компилировать программу выдает ошибку Error: expected symbol ";" ("e", line 7). помогите
код программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program LoctarUgar;
uses crt;
 
const
  eps = 1e-4;
 
var
  n : Integer;
  sum, term : Real;
  
begin
  n := 0;
  sum := 0;
  repeat
    Inc(n);
    term := 1 / n / n / n / n / n;
    sum := sum + term;
  until term < eps;
  WriteLn('sum(', n, ') = ', sum:0:5);
end.

@JuriiMW · 01.06.2016, 11:03

Во-первых, зачем было вставлено вот это?

Сообщение от Марсик

Program LoctarUgar;
uses crt;

Это не нужно!

Во-вторых, от куда нам должно быть известно в каком IDE вы это запускаете и какая строчка у вас седьмая?

@Марсик · 01.06.2016, 11:28 **[ТС]**

в турбо паскале))))) про первые две строчки поняла спасибо.
7 строка это eps = 1e-4;

@JuriiMW · 01.06.2016, 11:36

Не правда! TP не может ругаться на эту строку!
Я запустил сейчас на TP5.5 эту программу.
Отработала на „ура“.

Добавлено через 33 секунды
Попробуйте переписать её ручками…

@Марсик · 01.06.2016, 12:36 **[ТС]**

Набрала ручками один в один в турбо паскале
выдает Error: expected reserved word "program" ("const", line 1)
код программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  eps=1e-4;
var
n:Integer;
sum, term:real;
begin
n:=0;
sum:=0;
repeat
  Inc(n);
  trm:=1/n/n/n/n/n;
  sum:=sum+term;
until term<eps;
WriteLn ('sum(',n,')=',sum:0:5);
end.

@ZX Spectrum-128 · 01.06.2016, 13:31

Сообщение от Марсик

Набрала ручками один в один

Не-а...
11-ю строку смотреть внимательно.

Какой-то странный у вас Турбо Паскаль.
Сделайте скриншот экрана.

@Марсик · 01.06.2016, 14:09 **[ТС]**

скинула скриншот экранаDoc1.rar

@ZX Spectrum-128 · 01.06.2016, 14:33

Марсик, вы где такое "чудо" нашли? Работайте в нормальном компиляторе.
Либо попробуйте

Pascal
1
eps=0.0001;

Pascal
1
uses crt

удалите. Не нужен.

Добавлено через 18 секунд
11-ю строку исправьте.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Марсик 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 11

	Подсчет суммы ряда с заданной точностью 30.05.2016, 10:00. Показов 1366. Ответов 11 Метки нет (Все метки) Помогите пожалуйста с программой в Pascal Написать программу подсчета суммы ряда с заданной точностью е=0,0001: sum (1/n^5) на языке Паскаль. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	31.05.2016, 14:28
	пролистайте страницу ниже. там найдёте редактор формул. соизвольте привести формулу в читабельный вид, и тогда - no problem. 0

@Марсик 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 11
	01.06.2016, 08:48 [ТС]
	Написать программу подсчета суммы ряда с заданной точностью е=0,0001: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum \frac{1}{n^5}$ 0

@Марсик 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 11
	01.06.2016, 11:28 [ТС]
	в турбо паскале))))) про первые две строчки поняла спасибо. 7 строка это eps = 1e-4; 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	01.06.2016, 11:36
	Не правда! TP не может ругаться на эту строку! Я запустил сейчас на TP5.5 эту программу. Отработала на „ура“. Добавлено через 33 секунды Попробуйте переписать её ручками… 0

@Марсик 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 11
	01.06.2016, 14:09 [ТС]
	скинула скриншот экранаDoc1.rar 0